library(tidyverse)
## -- Attaching packages ----------------------------------------------------------------------------------------------------------------------------------------------------------------------- tidyverse 1.2.1 --
## v ggplot2 3.2.1 v purrr 0.3.3
## v tibble 2.1.3 v dplyr 0.8.3
## v tidyr 1.0.0 v stringr 1.4.0
## v readr 1.3.1 v forcats 0.4.0
## -- Conflicts -------------------------------------------------------------------------------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(lmtest)
## Loading required package: zoo
##
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
library(sandwich)
library(ameco)
library(readxl)
library(stargazer)
##
## Please cite as:
## Hlavac, Marek (2018). stargazer: Well-Formatted Regression and Summary Statistics Tables.
## R package version 5.2.2. https://CRAN.R-project.org/package=stargazer
library(urca)
library(tseries)
library(dynlm)
library(reshape)
##
## Attaching package: 'reshape'
## The following object is masked from 'package:dplyr':
##
## rename
## The following objects are masked from 'package:tidyr':
##
## expand, smiths
library(pdfetch)
library(reshape)
library(ecm)
library(factoextra)
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
Lande <- c("AUT","BEL","DNK","FIN","FRA","GRC","IRL","ITA","LUX","NLD","PRT","ESP","SWE","GBR","USA", "DEU")
Koder <- c(".1.0.0.0.ALCD2",".1.1.0.0.ILRV",".1.1.0.0.OCPH",".1.1.0.0.OIGT",".1.1.0.0.OMGS",".1.1.0.0.OVGD",".1.1.0.0.OXGS",".3.1.0.0.PMGS",".3.1.0.0.PVGD",".3.1.0.0.PXGS",".1.0.0.0.UIGP",".1.0.0.0.UIGT",".1.0.0.0.UTVT",".1.0.0.0.UYVT",".3.0.0.0.ZVGDF")
Variabler <- c("_WS","_r","_C","_It","_M","_GDP","_X","_Pm","_P","_Px","_Ipr","_Itcurr","_Tax","_Subsidier","_Tau")
Codelist <- NULL
#print(c(Lande , Koder, Variabler))
i <- NULL
j <- NULL
i <- length(Lande)
i_c <- 0
j <- length(Koder)
k <- length(Variabler)
ifelse(j == k, j_c <- 0, j_c <- ("NOPE! Length mismatch"))
## [1] 0
# Last two must be zeroes
# print(c(i,j,k,i_c,j_c))
# Outer country loop
while(i_c < i) {
i_c <- i_c + 1
#Inner data loop
while(j_c < j) {
j_c <- j_c +1
Codelist <- c(Codelist, paste(Lande[[i_c]],Koder[[j_c]],sep=""))
}
#inner loop reset
j_c <- 0
}
#StartYear <- 1960
DataFrame <- DataFrame_big[,c(Codelist)]
DataFrame <- data.frame(sapply(DataFrame, as.numeric))
#head(DataFrame)
WLDgdp <- NULL
W_Lande <- c(Lande,"WLD")
Worldgdp <- pdfetch_WB("NY.GDP.MKTP.KD", W_Lande)
names(Worldgdp) <- c("WLD", Lande)
Worldgdp %>% head(20)
## WLD AUT BEL DNK
## 1960-12-31 11359208453313 91836704604 119183391159 NA
## 1961-12-31 11847693064715 96922602310 125116844592 NA
## 1962-12-31 12505663899207 99489767156 131637938923 NA
## 1963-12-31 13175144802349 103606919937 137366274782 NA
## 1964-12-31 14059827712347 109952174211 146922413448 NA
## 1965-12-31 14835856628919 113778702200 152153820820 NA
## 1966-12-31 15691808087041 120199076680 156955635616 NA
## 1967-12-31 16395859345414 123814722359 163026910243 NA
## 1968-12-31 17431252308721 129352104014 169864470182 NA
## 1969-12-31 18497428030928 137470070238 181126144478 NA
## 1970-12-31 19151474826584 146159749335 191254395232 1538335372710
## 1971-12-31 19983133841383 153635774723 198877465128 1586526801039
## 1972-12-31 21127383893209 163173269957 209409229018 1654752868268
## 1973-12-31 22501796636148 171153153431 222773102104 1733808470024
## 1974-12-31 22951071549053 177900247172 232943269121 1749240556676
## 1975-12-31 23089421224007 177253160456 228363740642 1734079208363
## 1976-12-31 24306751175798 185368599583 241272562495 1819903269076
## 1977-12-31 25263142970172 194785288854 242783302276 1880819400548
## 1978-12-31 26245718827328 194374966805 249682952636 1937403718233
## 1979-12-31 27328150669407 204787050325 255528212921 2017813011683
## FIN FRA GRC IRL
## 1960-12-31 94053807816 224627031934 53950253371 594143057799
## 1961-12-31 100053342653 251219894398 58052992362 623732046622
## 1962-12-31 105723187659 276224911089 59784100977 666416962021
## 1963-12-31 106396666814 302732831572 61748068260 707959262579
## 1964-12-31 116259572090 318803434953 64982856036 755053417199
## 1965-12-31 121555491844 338738643803 68428804488 791760397184
## 1966-12-31 124887218608 363283850225 70052498910 833342363036
## 1967-12-31 131793943890 379051598739 71571817739 874352381695
## 1968-12-31 139112562517 404057709040 73220324248 913622247908
## 1969-12-31 148167744746 440047192036 80244560670 978575996368
## 1970-12-31 150533749285 458928030182 84524731544 1038354070711
## 1971-12-31 155057281771 480265767125 86516911992 1093560406402
## 1972-12-31 161150079802 519406206674 93209415272 1142895007224
## 1973-12-31 167745865765 559859978747 99719000501 1215406902953
## 1974-12-31 165863095711 591317311558 102946439507 1267680569948
## 1975-12-31 163447059292 594523453555 104804517401 1255512298279
## 1976-12-31 173130654020 614165269035 105165446300 1310211942484
## 1977-12-31 176368700994 631598806490 105417328479 1355601771312
## 1978-12-31 180295212466 640839118402 108495206708 1409534980874
## 1979-12-31 187271035321 641105364689 116222155466 1459573319724
## ITA LUX NLD PRT
## 1960-12-31 730143163141 52154874969 NA 546121684551
## 1961-12-31 749689964075 59041321835 NA 590943234191
## 1962-12-31 757958367028 59256710799 NA 627603286844
## 1963-12-31 794904168380 66275589781 NA 662810124018
## 1964-12-31 838891457503 72511908470 NA 681353577964
## 1965-12-31 856861993532 80319998391 NA 703620374507
## 1966-12-31 870341293100 85536382572 NA 745730606048
## 1967-12-31 894593132528 90385855351 NA 799263716293
## 1968-12-31 943268691296 96896998296 NA 851571967041
## 1969-12-31 961418094328 108101844794 NA 903501336497
## 1970-12-31 987472576976 117755967345 37691202577 951104047855
## 1971-12-31 1021879306390 126989421095 38999045050 968396146507
## 1972-12-31 1065840044908 139891738290 41530008362 1004134668260
## 1973-12-31 1135211065594 151212307385 43490817890 1075687921973
## 1974-12-31 1107246340116 141476895307 45343626537 1134852275893
## 1975-12-31 1090856260992 150484458469 47908554776 1111132014475
## 1976-12-31 1122592563204 160795500110 48576787086 1190304450022
## 1977-12-31 1150016495673 165524498489 52565573026 1220782205022
## 1978-12-31 1198342705001 177519832683 56343318029 1260337255045
## 1979-12-31 1243181009260 183346175954 58074768667 1335442761630
## ESP SWE GBR USA
## 1960-12-31 8504063008 188226201393 39866242695 135098930702
## 1961-12-31 8829767186 188782497668 42072800748 142774296538
## 1962-12-31 8949735261 201701841717 44855684178 148855121257
## 1963-12-31 9257526370 209012770099 47490373449 156786023558
## 1964-12-31 9985707548 226308376028 50487370948 167480656139
## 1965-12-31 9912319227 245868423815 54258266893 173880942118
## 1966-12-31 10021939973 252607933838 56470869878 177516521866
## 1967-12-31 10043660605 265945669996 60731304790 183490642626
## 1968-12-31 10463874552 283009100657 66121517354 190166960051
## 1969-12-31 11507421896 301205026668 67523783589 199692566114
## 1970-12-31 12026066085 319699562057 76040291880 212620011683
## 1971-12-31 12346829678 333500929395 81083019678 214628518640
## 1972-12-31 13161497281 345286433662 87582388232 219540804817
## 1973-12-31 14255570084 364084597563 97392203544 228252142515
## 1974-12-31 14856081313 376604439635 98505260451 235552092558
## 1975-12-31 13879833147 376612079911 94222615151 241565414012
## 1976-12-31 14231594161 393395080128 100724193241 244121429415
## 1977-12-31 14454998350 403310368830 106367364186 240224620145
## 1978-12-31 15044035450 414184611633 109362633032 244432269767
## 1979-12-31 15396909622 422526978053 115529523409 253818477524
## DEU
## 1960-12-31 3170879604151
## 1961-12-31 3243809835046
## 1962-12-31 3441682234984
## 1963-12-31 3593116253323
## 1964-12-31 3801516996016
## 1965-12-31 4044814083761
## 1966-12-31 4307726999206
## 1967-12-31 4415420174186
## 1968-12-31 4627360342547
## 1969-12-31 4770808513165
## 1970-12-31 4758686862324
## 1971-12-31 4915407665123
## 1972-12-31 5173903810640
## 1973-12-31 5466007905455
## 1974-12-31 5436461589444
## 1975-12-31 5425291617344
## 1976-12-31 5717613883134
## 1977-12-31 5982005451922
## 1978-12-31 6313127560815
## 1979-12-31 6513010666187
Worldgdp %>% tail(20)
## WLD AUT BEL DNK
## 1999-12-31 47819268922998 325507251811 391289642724 3030581471655
## 2000-12-31 NA 336495472200 405832615319 3118322470844
## 2001-12-31 NA 340759435782 410295216338 3171263240548
## 2002-12-31 NA 346387261608 417298500905 3164969581244
## 2003-12-31 NA 349648396949 421629863437 3142386463737
## 2004-12-31 NA 359211700962 436687079148 3179778188496
## 2005-12-31 NA 367272646185 446825806298 3202731537067
## 2006-12-31 NA 379958397037 458230381597 3324902546895
## 2007-12-31 NA 394121024465 475079138083 3424120208152
## 2008-12-31 NA 399876861218 477202345355 3457069367840
## 2009-12-31 NA 384823184162 467559394366 3260114884059
## 2010-12-31 NA 391892746545 480951629493 3396354075664
## 2011-12-31 NA 403346977096 489101342572 3529631540931
## 2012-12-31 NA 406091533761 492716925962 3544440148183
## 2013-12-31 NA 406195106237 494979620294 3559618974281
## 2014-12-31 NA 408881164188 502792988582 3638845013304
## 2015-12-31 NA 413029270084 513013709008 3702151812972
## 2016-12-31 NA 421631052474 520765890122 3784709797179
## 2017-12-31 NA 432072509043 530994736008 3878004030197
## 2018-12-31 NA 442527642505 538738791661 3937238459204
## FIN FRA GRC IRL
## 1999-12-31 287450544676 1095038925602 197722002676 2245421037201
## 2000-12-31 298220921668 1152484609387 209137217062 2333523930935
## 2001-12-31 300675736193 1197811239502 214595170247 2379814544584
## 2002-12-31 302077924106 1230523730745 218258528240 2406838088087
## 2003-12-31 303256204812 1267216654328 222631777857 2426650235214
## 2004-12-31 311347745369 1306789235709 231519990363 2495318441311
## 2005-12-31 318622825451 1354513605582 237955368835 2536821076703
## 2006-12-31 331090561914 1410085602560 247538904165 2598956034037
## 2007-12-31 334100966293 1460914788660 260656004026 2661973862802
## 2008-12-31 332390313434 1473875223828 262699590890 2668760457244
## 2009-12-31 316081424058 1418409880842 241487608810 2592078593348
## 2010-12-31 321995279402 1420722034063 249181190476 2642609548930
## 2011-12-31 326299640742 1409152050946 255529156858 2700554065740
## 2012-12-31 327038708766 1367449023146 251958508582 2709010438738
## 2013-12-31 330091094980 1347820738371 249685796238 2724623188645
## 2014-12-31 335436569762 1366473336622 248774592178 2750675573688
## 2015-12-31 343294474743 1418879948439 250169211136 2781288181597
## 2016-12-31 354437668061 1461890475184 256743654125 2811756203338
## 2017-12-31 361654604535 1504164957710 264577624745 2875307593549
## 2018-12-31 370302958452 1539527998175 268999878035 2924903217201
## ITA LUX NLD PRT
## 1999-12-31 2031050676959 242023226600 153329285307 1993183067822
## 2000-12-31 2100867467607 251509982263 167812387197 2068664016523
## 2001-12-31 2163354906535 261901399075 176670248837 2109031337731
## 2002-12-31 2213638870146 272175455238 187128802584 2114387075160
## 2003-12-31 2286387401482 287946747016 192780034502 2117318184221
## 2004-12-31 2340665128141 302519710603 205737461753 2147460202202
## 2005-12-31 2415091934236 304332233491 217464680666 2165023183425
## 2006-12-31 2482432535772 321534411122 228492099413 2203790947646
## 2007-12-31 2542769379517 332060633951 240657629409 2236562927372
## 2008-12-31 2535620292133 330947657768 229875245087 2215046904823
## 2009-12-31 2427911661952 316714480450 218199392507 2098071668645
## 2010-12-31 2475244321361 299361576558 222148757313 2134017843247
## 2011-12-31 2513366731633 272022398152 222911706772 2149112463084
## 2012-12-31 2550537514107 252163419403 223414851581 2085049445706
## 2013-12-31 2605105899522 243989731145 226434602685 2046662320727
## 2014-12-31 2673033408186 245794711396 245809905127 2046569247891
## 2015-12-31 2735997359822 244718538732 307661903751 2062497785388
## 2016-12-31 2788478032879 244251243064 318977141892 2088890974062
## 2017-12-31 2841238185459 247927466910 344958774769 2124739839581
## 2018-12-31 2880608472044 252723303503 373141461440 2141192550333
## ESP SWE GBR USA
## 1999-12-31 37673641691 709727004594 213075736312 378103093862
## 2000-12-31 40777874096 739504612306 221207085356 396533825052
## 2001-12-31 41810359729 756712552640 225506626603 402354614827
## 2002-12-31 43407293733 758356688953 227245111627 411190560754
## 2003-12-31 44114523107 759537041306 225130547822 420420170774
## 2004-12-31 45708017663 774613439115 229157538404 438608099276
## 2005-12-31 47158078370 790499800803 230949201013 451309722987
## 2006-12-31 49600152792 817858911965 234702205004 472081201584
## 2007-12-31 53744023982 848715440731 240585203508 488277759560
## 2008-12-31 53056323200 867135322335 241353265766 487094695370
## 2009-12-31 50743806609 835338475726 233818025950 466459315772
## 2010-12-31 53212476812 846554894931 237880908318 495328620126
## 2011-12-31 54563666585 859686563472 233846053840 510447652146
## 2012-12-31 54371319169 850828748521 224358232357 507226858303
## 2013-12-31 56358248486 849721180252 222288203808 512744630322
## 2014-12-31 58779842014 861816072529 224049151195 526831200566
## 2015-12-31 61311156256 878700511813 228064215666 550121352380
## 2016-12-31 64115896583 897959111482 232669938560 563395990435
## 2017-12-31 65270740382 924097826462 240828150382 576984264815
## 2018-12-31 67301206244 948100838892 246707408374 589823541463
## DEU
## 1999-12-31 12120016643946
## 2000-12-31 12620268393365
## 2001-12-31 12746261681131
## 2002-12-31 12968262715350
## 2003-12-31 13339312044507
## 2004-12-31 13846057986119
## 2005-12-31 14332499605580
## 2006-12-31 14741688498027
## 2007-12-31 15018267850123
## 2008-12-31 14997755929110
## 2009-12-31 14617299295858
## 2010-12-31 14992052727000
## 2011-12-31 15224554803721
## 2012-12-31 15567038144850
## 2013-12-31 15853795607833
## 2014-12-31 16242526401218
## 2015-12-31 16710459044262
## 2016-12-31 16972347893377
## 2017-12-31 17348626599471
## 2018-12-31 17856476888950
WLDgdp <- pdfetch_WB("NY.GDP.MKTP.KD")
typeof(WLDgdp)
## [1] "double"
length(WLDgdp)
## [1] 1003
attributes(WLDgdp)
## $class
## [1] "xts" "zoo"
##
## $.indexCLASS
## [1] "Date"
##
## $tclass
## [1] "Date"
##
## $.indexTZ
## [1] "UTC"
##
## $tzone
## [1] "UTC"
##
## $index
## [1] -284083200 -252547200 -221011200 -189475200 -157852800 -126316800
## [7] -94780800 -63244800 -31622400 -86400 31449600 62985600
## [13] 94608000 126144000 157680000 189216000 220838400 252374400
## [19] 283910400 315446400 347068800 378604800 410140800 441676800
## [25] 473299200 504835200 536371200 567907200 599529600 631065600
## [31] 662601600 694137600 725760000 757296000 788832000 820368000
## [37] 851990400 883526400 915062400 946598400 978220800 1009756800
## [43] 1041292800 1072828800 1104451200 1135987200 1167523200 1199059200
## [49] 1230681600 1262217600 1293753600 1325289600 1356912000 1388448000
## [55] 1419984000 1451520000 1483142400 1514678400 1546214400
## attr(,"tzone")
## [1] "UTC"
## attr(,"tclass")
## [1] "Date"
##
## $dim
## [1] 59 17
##
## $dimnames
## $dimnames[[1]]
## NULL
##
## $dimnames[[2]]
## [1] "NY.GDP.MKTP.KD.1A" "NY.GDP.MKTP.KD.4E" "NY.GDP.MKTP.KD.7E"
## [4] "NY.GDP.MKTP.KD.B8" "NY.GDP.MKTP.KD.EU" "NY.GDP.MKTP.KD.F1"
## [7] "NY.GDP.MKTP.KD.S3" "NY.GDP.MKTP.KD.T4" "NY.GDP.MKTP.KD.T7"
## [10] "NY.GDP.MKTP.KD.V2" "NY.GDP.MKTP.KD.XC" "NY.GDP.MKTP.KD.XD"
## [13] "NY.GDP.MKTP.KD.XE" "NY.GDP.MKTP.KD.XF" "NY.GDP.MKTP.KD.Z4"
## [16] "NY.GDP.MKTP.KD.Z7" "NY.GDP.MKTP.KD.ZT"
names(WLDgdp)
## [1] "NY.GDP.MKTP.KD.1A" "NY.GDP.MKTP.KD.4E" "NY.GDP.MKTP.KD.7E"
## [4] "NY.GDP.MKTP.KD.B8" "NY.GDP.MKTP.KD.EU" "NY.GDP.MKTP.KD.F1"
## [7] "NY.GDP.MKTP.KD.S3" "NY.GDP.MKTP.KD.T4" "NY.GDP.MKTP.KD.T7"
## [10] "NY.GDP.MKTP.KD.V2" "NY.GDP.MKTP.KD.XC" "NY.GDP.MKTP.KD.XD"
## [13] "NY.GDP.MKTP.KD.XE" "NY.GDP.MKTP.KD.XF" "NY.GDP.MKTP.KD.Z4"
## [16] "NY.GDP.MKTP.KD.Z7" "NY.GDP.MKTP.KD.ZT"
is.atomic(WLDgdp)
## [1] TRUE
WLDgdp <- WLDgdp$NY.GDP.MKTP.KD.XD
WLDgdp <- as.numeric(WLDgdp$NY.GDP.MKTP.KD.XD)
WLDgdp %>% head()
## [1] 9025109173170 9451201416390 10006840672916 10554139918847
## [5] 11244185136607 11863589239650
WLDgdp %>% glimpse()
## num [1:59] 9025109173170 9451201416390 10006840672916 10554139918847 11244185136607 ...
length(WLDgdp)
## [1] 59
WLDgdp <- ts(WLDgdp, start=1960, frequency = 1)
Worldgdp$WLD <- WLDgdp
#Koder <- c(".1.0.0.0.ALCD2",".1.1.0.0.ILRV",".1.1.0.0.OCPH",".1.1.0.0.OIGT",".1.1.0.0.OMGS",".1.1.0.0.OVGD",".1.1.0.0.OXGS",".3.1.0.0.PMGS",".3.1.0.0.PVGD",".3.1.0.0.PXGS",".1.0.0.0.UIGP",".1.0.0.0.UIGT",".1.0.0.0.UTVT",".1.0.0.0.UYVT",".3.0.0.0.ZVGDF")
#Variabler <- c("_WS","_r","_C","_It","_M","_GDP","_X","_Pm","_P","_Px","_Ipr","_Itcurr","_Tax","_Subsidier","_Tau")
Bulk_Names <- c("WS", "lWS", "dWS", "PS", "lPS", "dPS", "Y", "lY", "dY", "Yrw", "lYrw", "dYrw", "Tax", "Yf", "lYf", "dYf", "C", "lC", "dC", "W", "lW", "dW", "R", "lR", "dR", "It", "lIt", "dIt", "Itcurr", "lItcurr", "dItcurr", "Ipr", "lIpr", "dIpr", "Ips", "lIps", "dIps", "I", "lI", "dI", "r", "lr", "dr", "P", "lP", "dP", "Pm", "lPm", "dPm", "Px", "lPx", "dPx", "X", "lX", "dX", "M", "lM", "dM", "rulc", "lrulc", "drulc", "ulc", "lulc", "dulc", "Tau", "lTau", "dTau", "dPxdPm", "dPdPm")
Arne_Names <- c("WS", "WS_l", "WS_dl", "PS", "PS_l", "PS_dl", "Y", "Y_l", "Y_dl", "Yrw", "Yrw_l", "Yrw_dl", "Tax", "Yf", "Yf_l", "Yf_dl", "C", "C_l", "C_dl", "W", "W_l", "W_dl", "R", "R_l", "R_dl", "It", "It_l", "It_dl", "Itcurr", "Itcurr_l", "Itcurr_dl", "Ipr", "Ipr_l", "Ipr_dl", "Ips", "Ips_l", "Ips_dl", "I", "I_l", "I_dl", "r", "r_l", "r_dl", "P", "P_l", "P_dl", "Pm", "Pm_l", "Pm_dl", "Px", "Px_l", "Px_dl", "X", "X_l", "X_dl", "M", "M_l", "M_dl", "rulc", "rulc_l", "rulc_dl", "ulc", "ulc_l", "ulc_dl", "Tau", "Tau_l", "Tau_dl", "dPxdPm", "dPdPm")
RowCount <- nrow(DataFrame)
ColCount <- length(Bulk_Names)
Arne_df <- data.frame(matrix(ncol = ColCount, nrow = RowCount))
colnames(Arne_df) <- Arne_Names
rownames(Arne_df) <- c(1960:sum(1959+63))
Frame <- NULL
i <- NULL
j <- NULL
i <- length(Lande)
i_c <- 0
j <- length(Koder)
k <- length(Variabler)
ifelse(j == k, j_c <- 0, j_c <- ("NOPE! Length mismatch"))
## [1] 0
# Outer country loop
while(i_c < i) {
i_c <- i_c + 1
Frame <- NULL
Frame <- Arne_df
#WS
WS <- ts(get(paste(Lande[i_c],".1.0.0.0.ALCD2",sep=""), DataFrame), frequency = 1)
WS <- WS/100
lWS <- log(WS)
dWS <- diff(lWS)
Frame$WS <- WS
Frame$WS_l <- lWS
Frame$WS_dl[2:63] <- dWS
#Frame$WS_ddl[3:63] <- diff(dWS)
#PS
PS <- ts(1-WS)
lPS <- log(PS)
dPS <- diff(lPS)
Frame$PS <- PS
Frame$PS_l <- lPS
Frame$PS_dl[2:63] <- dPS
#Frame$PS_ddl[3:63] <- diff(dPS)
#Y
Y <- ts(get(paste(Lande[i_c],".1.1.0.0.OVGD",sep=""), DataFrame), frequency = 1)
lY <- log(Y)
dY <- diff(lY)
Frame$Y <- Y
Frame$Y_l <- lY
Frame$Y_dl[2:63] <- dY
#Frame$Y_ddl[3:63] <- diff(dY)
#Yrw
Yrw <- WLDgdp - ts(get(paste(Lande[i_c],sep=""), Worldgdp), start=1960, frequency = 1)
lYrw <- log(Yrw)
dYrw <- diff(lYrw)
Frame$Yrw[1:59] <- Yrw
Frame$Yrw_l[1:59] <- lYrw
Frame$Yrw_dl[2:59] <- dYrw
#Frame$Yrw_ddl[3:63] <- diff(dYrw)
#Tax
Tax <- ts(get(paste(Lande[i_c],".1.0.0.0.UTVT",sep=""), DataFrame), frequency = 1)
Frame$Tax <- Tax
#Yf
Yf <- ts(Y-Tax)
lYf <- log(Yf)
dYf <- diff(lYf)
Frame$Yf <- Yf
Frame$Yf_l <- lYf
Frame$Yf_dl[2:63] <- dYf
#Frame$Yf_ddl[3:63] <- diff(dYf)
#C
C <- ts(get(paste(Lande[i_c],".1.1.0.0.OCPH",sep=""), DataFrame), frequency = 1)
lC <- log(C)
dC <- diff(lC)
Frame$C <- C
Frame$C_l <- lC
Frame$C_dl[2:63] <- dC
#Frame$C_ddl[3:63] <- diff(dC)
#W
W <- ts(WS*Yf)
lW <- log(W)
dW <- diff(lW)
Frame$W <- W
Frame$W_l <- lW
Frame$W_dl[2:63] <- dW
#Frame$W_ddl[3:63] <- diff(dW)
#R
R <- ts(PS*Yf)
lR <- log(R)
dR <- diff(lR)
Frame$R <- R
Frame$R_l <- lR
Frame$R_dl[2:63] <- dR
#Frame$R_ddl[3:63] <- diff(dR)
#It
It <- ts(get(paste(Lande[i_c],".1.1.0.0.OIGT",sep=""), DataFrame), frequency = 1)
lIt <- log(It)
dIt <- diff(lIt)
Frame$It <- It
Frame$It_l <- lIt
Frame$It_dl[2:63] <- dIt
#Frame$It_ddl[3:63] <- diff(dIt)
#Itcurr
Itcurr <- ts(get(paste(Lande[i_c],".1.0.0.0.UIGT",sep=""), DataFrame), frequency = 1)
lItcurr <- log(Itcurr)
dItcurr <- diff(lItcurr)
Frame$Itcurr <- Itcurr
Frame$Itcurr_l <- lItcurr
Frame$Itcurr_dl[2:63] <- dItcurr
#Frame$Itcurr_ddl[3:63] <- diff(dItcurr)
#Ipr
Ipr <- ts(get(paste(Lande[i_c],".1.0.0.0.UIGP",sep=""), DataFrame), frequency = 1)
Ipr <- as.numeric(Ipr)
lIpr <- log(Ipr)
dIpr <- diff(lIpr)
Frame$Ipr <- Ipr
Frame$Ipr_l <- lIpr
Frame$Ipr_dl[2:63] <- dIpr
#Frame$Ipr_ddl[3:63] <- diff(dIpr)
#Ips
Ips <- ts(Ipr/Itcurr)
lIps <- log(Ips)
dIps <- diff(lIps)
Frame$Ips <- Ips
Frame$Ips_l <- lIps
Frame$Ips_dl[2:63] <- dIps
#Frame$Ips_ddl[3:63] <- diff(dIps)
#I
I <- ts(It*Ips)
lI <- log(I)
dI <- diff(lI)
Frame$I <- I
Frame$I_l <- lI
Frame$I_dl[2:63] <- dI
#Frame$I_ddl[3:63] <- diff(dI)
#r
r <- ts(get(paste(Lande[i_c],".1.1.0.0.ILRV",sep=""), DataFrame), frequency = 1)
r <- as.numeric(r)
lr <- log(r+1-min(r, na.rm=T))
dr <- diff(lr)
Frame$r <- r
Frame$r_l <- lr
Frame$r_dl[2:63] <- dr
#Frame$r_ddl[3:63] <- diff(dr)
#P
P <- ts(get(paste(Lande[i_c],".3.1.0.0.PVGD",sep=""), DataFrame), frequency = 1)
lP <- log(P)
dP <- diff(lP)
Frame$P <- P
Frame$P_l <- lP
Frame$P_dl[2:63] <- dP
#Frame$P_ddl[3:63] <- diff(dP)
#Pm
Pm <- ts(get(paste(Lande[i_c],".3.1.0.0.PMGS",sep=""), DataFrame), frequency = 1)
lPm <- log(Pm)
dPm <- diff(lPm)
Frame$Pm <- Pm
Frame$Pm_l <- lPm
Frame$Pm_dl[2:63] <- dPm
#Frame$Pm_ddl[3:63] <- diff(dPm)
#Px
Px <- ts(get(paste(Lande[i_c],".3.1.0.0.PXGS",sep=""), DataFrame), frequency = 1)
lPx <- log(Px)
dPx <- diff(lPx)
Frame$Px <- Px
Frame$Px_l <- lPx
Frame$Px_dl[2:63] <- dPx
#Frame$Px_ddl[3:63] <- diff(dPx)
#X
X <- ts(get(paste(Lande[i_c],".1.1.0.0.OXGS",sep=""), DataFrame), frequency = 1)
lX <- log(X)
dX <- diff(lX)
Frame$X <- X
Frame$X_l <- lX
Frame$X_dl[2:63] <- dX
#Frame$X_ddl[3:63] <- diff(dX)
#M
M <- ts(get(paste(Lande[i_c],".1.1.0.0.OMGS",sep=""), DataFrame), frequency = 1)
lM <- log(M)
dM <- diff(lM)
Frame$M <- M
Frame$M_l <- lM
Frame$M_dl[2:63] <- dM
#Frame$M_ddl[3:63] <- diff(dM)
#Ã…benhed
Trade <- (M+X)/Y
Frame$Trade <- Trade
#rulc
rulc <- ts(WS*(Yf/Y))
lrulc <- log(rulc)
drulc <- diff(lrulc)
Frame$rulc <- rulc
Frame$rulc_l <- lrulc
Frame$rulc_dl[2:63] <- drulc
#Frame$rulc_ddl[3:63] <- diff(drulc)
#ulc
ulc <- ts(rulc*P)
lulc <- log(ulc)
dulc <- diff(lulc)
Frame$ulc <- ulc
Frame$ulc_l <- lulc
Frame$ulc_dl[2:63] <- dulc
#Frame$ulc_ddl[3:63] <- diff(dulc)
#Tau
Tau <- ts(get(paste(Lande[i_c],".3.0.0.0.ZVGDF",sep=""), DataFrame), frequency = 1)
lTau <- log(Tau)
dTau <- diff(lTau)
Frame$Tau <- Tau
Frame$Tau_l <- lTau
Frame$Tau_dl[2:63] <- dTau
#Frame$Tau_ddl[3:63] <- diff(dTau)
PxPm <- ts(Px/Pm)
dPxdPm <- diff(log(PxPm))
Frame$dPxdPm[2:63] <- dPxdPm
PPm <- ts(P/Pm)
dPdPm <- diff(log(PPm))
Frame$dPxdPm[2:63] <- dPxdPm
Frame$dPdPm[2:63] <- dPdPm
assign(paste(Lande[i_c],"_df",sep=""), Frame)
}
print(Frame)
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 0.6423539 -0.4426159 NA 0.3576461 -1.0282113 NA
## 1992 0.6533819 -0.4255935 0.0170223663 0.3466181 -1.0595316 -0.031320288
## 1993 0.6548756 -0.4233100 0.0022835500 0.3451244 -1.0638503 -0.004318767
## 1994 0.6470786 -0.4352874 -0.0119774520 0.3529214 -1.0415100 0.022340307
## 1995 0.6466922 -0.4358849 -0.0005974211 0.3533078 -1.0404156 0.001094441
## 1996 0.6443945 -0.4394441 -0.0035592752 0.3556055 -1.0339334 0.006482237
## 1997 0.6359522 -0.4526318 -0.0131877094 0.3640478 -1.0104702 0.023463203
## 1998 0.6330377 -0.4572252 -0.0045934014 0.3669623 -1.0024963 0.007973900
## 1999 0.6401756 -0.4460128 0.0112124289 0.3598244 -1.0221390 -0.019642796
## 2000 0.6495396 -0.4314915 0.0145213282 0.3504604 -1.0485075 -0.026368482
## 2001 0.6408141 -0.4450159 -0.0135243630 0.3591859 -1.0239152 0.024592287
## 2002 0.6383157 -0.4489222 -0.0039063887 0.3616843 -1.0169836 0.006931612
## 2003 0.6402775 -0.4458536 0.0030686749 0.3597225 -1.0224224 -0.005438809
## 2004 0.6283168 -0.4647108 -0.0188572699 0.3716832 -0.9897133 0.032709136
## 2005 0.6231104 -0.4730315 -0.0083206630 0.3768896 -0.9758031 0.013910220
## 2006 0.6083016 -0.4970845 -0.0240529511 0.3916984 -0.9372631 0.038539938
## 2007 0.6005277 -0.5099466 -0.0128621176 0.3994723 -0.9176108 0.019652383
## 2008 0.6114669 -0.4918944 0.0180521762 0.3885331 -0.9453770 -0.027766246
## 2009 0.6404493 -0.4455854 0.0463090013 0.3595507 -1.0229000 -0.077522941
## 2010 0.6272676 -0.4663820 -0.0207966552 0.3727324 -0.9868945 0.036005428
## 2011 0.6243784 -0.4709987 -0.0046166699 0.3756216 -0.9791730 0.007721552
## 2012 0.6366872 -0.4514768 0.0195219408 0.3633128 -1.0124911 -0.033318171
## 2013 0.6379298 -0.4495270 0.0019498145 0.3620702 -1.0159173 -0.003426147
## 2014 0.6350984 -0.4539753 -0.0044483264 0.3649016 -1.0081276 0.007789663
## 2015 0.6374442 -0.4502885 0.0036867789 0.3625558 -1.0145769 -0.006449305
## 2016 0.6379087 -0.4495601 0.0007283992 0.3620913 -1.0158589 -0.001281957
## 2017 0.6403651 -0.4457168 0.0038433331 0.3596349 -1.0226660 -0.006807076
## 2018 0.6478182 -0.4341452 0.0115715694 0.3521818 -1.0436077 -0.020941741
## 2019 0.6568661 -0.4202752 0.0138700458 0.3431339 -1.0696344 -0.026026681
## 2020 0.6559190 -0.4217179 -0.0014427436 0.3440810 -1.0668783 0.002756071
## 2021 0.6509527 -0.4293183 -0.0076003907 0.3490473 -1.0525478 0.014330476
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 NA NA NA 5854229569019 29.39819 NA
## 1961 NA NA NA 6207391581344 29.45676 0.0585763692
## 1962 NA NA NA 6565158437932 29.51280 0.0560358687
## 1963 NA NA NA 6961023665524 29.57135 0.0585499007
## 1964 NA NA NA 7442668140591 29.63825 0.0669028637
## 1965 NA NA NA 7818775155889 29.68755 0.0492985070
## 1966 NA NA NA 8273573770758 29.74409 0.0565386398
## 1967 NA NA NA 8749755625143 29.80005 0.0559592190
## 1968 NA NA NA 9361136753158 29.86759 0.0675409597
## 1969 NA NA NA 10028904874151 29.93649 0.0689046799
## 1970 NA NA NA 10429414863916 29.97565 0.0391587552
## 1971 NA NA NA 10873999497165 30.01740 0.0417444063
## 1972 NA NA NA 11499542646223 30.07333 0.0559326922
## 1973 NA NA NA 12263046535497 30.13761 0.0642831289
## 1974 NA NA NA 12506548925291 30.15727 0.0196620276
## 1975 NA NA NA 12500248008917 30.15677 -0.0005039363
## 1976 NA NA NA 13098816465739 30.20354 0.0467733952
## 1977 NA NA NA 13563735778365 30.23842 0.0348778644
## 1978 NA NA NA 14036689016070 30.27270 0.0342748013
## 1979 NA NA NA 14678781578475 30.31742 0.0447284753
## 1980 NA NA NA 15012070253662 30.33988 0.0224515401
## 1981 NA NA NA 15272518067013 30.35708 0.0172004474
## 1982 NA NA NA 15379983658710 30.36409 0.0070118931
## 1983 NA NA NA 15672664257157 30.38294 0.0188511631
## 1984 NA NA NA 16200811735720 30.41608 0.0331432834
## 1985 NA NA NA 16737848041754 30.44869 0.0326111568
## 1986 NA NA NA 17262134501637 30.47954 0.0308428406
## 1987 NA NA NA 17868000973679 30.51403 0.0344961124
## 1988 NA NA NA 18781549954868 30.56390 0.0498635446
## 1989 NA NA NA 19532657826725 30.60311 0.0392128225
## 1990 NA NA NA 20259693228943 30.63965 0.0365455319
## 1991 2215.890 7.703409 NA 20715284390085 30.66189 0.0222384471
## 1992 2258.614 7.722507 0.019097222 21014228425241 30.67622 0.0143279482
## 1993 2236.495 7.712665 -0.009841443 21122060210480 30.68134 0.0051182496
## 1994 2290.127 7.736363 0.023697366 21714141156460 30.70898 0.0276457126
## 1995 2325.276 7.751594 0.015231467 22370999766659 30.73879 0.0298017523
## 1996 2344.365 7.759770 0.008175835 22950590507829 30.76436 0.0255781996
## 1997 2386.180 7.777449 0.017679185 23601800210285 30.79234 0.0279793229
## 1998 2434.358 7.797438 0.019989306 24050244547741 30.81117 0.0188221756
## 1999 2480.415 7.816181 0.018742818 24661554915554 30.83627 0.0251003851
## 2000 2552.228 7.844722 0.028540818 25643737704971 30.87532 0.0390538478
## 2001 2595.558 7.861557 0.016834819 26092386504422 30.89266 0.0173441692
## 2002 2590.407 7.859570 -0.001986516 26459851213860 30.90665 0.0139849686
## 2003 2571.923 7.852409 -0.007161138 26951574240670 30.92506 0.0184131734
## 2004 2602.527 7.864238 0.011829028 27780292663497 30.95535 0.0302851633
## 2005 2621.314 7.871431 0.007192823 28484540321319 30.98038 0.0250346229
## 2006 2721.306 7.908867 0.037436193 29416232180877 31.01257 0.0321851417
## 2007 2802.512 7.938271 0.029404246 30371435559606 31.04452 0.0319559100
## 2008 2829.479 7.947848 0.009576438 30565938470916 31.05091 0.0063837202
## 2009 2668.280 7.889189 -0.058658526 29434123516995 31.01318 -0.0377316020
## 2010 2779.786 7.930129 0.040939876 30364599633747 31.04430 0.0311227790
## 2011 2888.869 7.968620 0.038491130 30975131682852 31.06421 0.0199072346
## 2012 2900.989 7.972807 0.004186637 31224821413772 31.07223 0.0080286579
## 2013 2913.412 7.977080 0.004273190 31611788036280 31.08455 0.0123167535
## 2014 2978.256 7.999093 0.022012991 32184758346255 31.10251 0.0179629071
## 2015 3030.070 8.016341 0.017247827 32845353701172 31.12283 0.0203172979
## 2016 3097.641 8.038396 0.022055133 33432591937880 31.14055 0.0177209356
## 2017 3173.998 8.062747 0.024351138 34217026656709 31.16374 0.0231921449
## 2018 3222.479 8.077906 0.015158947 34863149324820 31.18245 0.0187070024
## 2019 3240.660 8.083532 0.005626074 NA NA NA
## 2020 3031.003 8.016649 -0.066883425 NA NA NA
## 2021 3208.995 8.073713 0.057064216 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 161.0210 2054.869 7.627967 NA 1258.567 7.137729
## 1992 173.0900 2085.524 7.642775 0.014808044 1295.419 7.166589
## 1993 183.7370 2052.758 7.626940 -0.015835888 1296.220 7.167208
## 1994 199.7130 2090.414 7.645117 0.018177878 1314.646 7.181323
## 1995 201.0070 2124.269 7.661183 0.016065611 1334.995 7.196683
## 1996 201.3710 2142.994 7.669959 0.008776173 1356.305 7.212519
## 1997 204.6070 2181.573 7.687801 0.017842260 1366.399 7.219934
## 1998 211.8640 2222.494 7.706385 0.018583813 1386.106 7.234254
## 1999 227.1680 2253.247 7.720128 0.013742298 1422.157 7.259930
## 2000 231.7590 2320.469 7.749525 0.029397033 1445.710 7.276356
## 2001 234.5430 2361.015 7.766847 0.017322291 1463.014 7.288254
## 2002 235.9460 2354.461 7.764067 -0.002779785 1442.666 7.274248
## 2003 240.6050 2331.318 7.754189 -0.009878054 1448.754 7.278459
## 2004 238.7100 2363.817 7.768033 0.013843912 1458.048 7.284854
## 2005 241.1170 2380.197 7.774939 0.006905572 1469.103 7.292407
## 2006 250.5910 2470.715 7.812263 0.037324325 1488.971 7.305841
## 2007 274.1770 2528.335 7.835316 0.023053401 1485.286 7.303363
## 2008 279.1420 2550.337 7.843981 0.008664524 1490.413 7.306809
## 2009 279.7890 2388.491 7.778417 -0.065563722 1488.971 7.305841
## 2010 282.5630 2497.223 7.822935 0.044517529 1499.546 7.312918
## 2011 300.3500 2588.519 7.858841 0.035906583 1527.425 7.331339
## 2012 305.7140 2595.275 7.861448 0.002606587 1550.177 7.346124
## 2013 310.0050 2603.407 7.864576 0.003128488 1555.785 7.349736
## 2014 318.8150 2659.441 7.885871 0.021294978 1572.128 7.360185
## 2015 332.7540 2697.316 7.900012 0.014141254 1602.250 7.379164
## 2016 341.4420 2756.199 7.921608 0.021595352 1638.621 7.401610
## 2017 351.8050 2822.193 7.945270 0.023661686 1660.572 7.414917
## 2018 362.6940 2859.785 7.958502 0.013232205 1681.722 7.427574
## 2019 375.5970 2865.063 7.960346 0.001843892 1707.999 7.443078
## 2020 350.7557 2680.247 7.893664 -0.066681273 1567.054 7.356953
## 2021 377.0030 2831.992 7.948736 0.055071285 1660.364 7.414792
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 NA 1319.953 7.185351 NA 734.9159 6.599756
## 1992 0.0288604228 1362.644 7.217182 0.031830410 722.8804 6.583244
## 1993 0.0006181417 1344.301 7.203630 -0.013552338 708.4569 6.563089
## 1994 0.0141150913 1352.662 7.209830 0.006200426 737.7517 6.603607
## 1995 0.0153601187 1373.748 7.225298 0.015468190 750.5208 6.620767
## 1996 0.0158365440 1380.934 7.230515 0.005216898 762.0604 6.636026
## 1997 0.0074147217 1387.376 7.235170 0.004654550 794.1968 6.677331
## 1998 0.0143195647 1406.923 7.249160 0.013990411 815.5714 6.703889
## 1999 0.0256763562 1442.474 7.274115 0.024954727 810.7733 6.697989
## 2000 0.0164258172 1507.236 7.318033 0.043918362 813.2325 6.701017
## 2001 0.0118981410 1512.972 7.321831 0.003797928 848.0433 6.742932
## 2002 -0.0140059006 1502.889 7.315145 -0.006686173 851.5715 6.747083
## 2003 0.0042110859 1492.691 7.308335 -0.006809379 838.6275 6.731767
## 2004 0.0063946782 1485.226 7.303322 -0.005013357 878.5911 6.778320
## 2005 0.0075534556 1483.126 7.301907 -0.001415091 897.0714 6.799135
## 2006 0.0134332669 1502.940 7.315178 0.013271374 967.7751 6.875000
## 2007 -0.0024779311 1518.335 7.325370 0.010191283 1009.9999 6.917705
## 2008 0.0034459165 1559.447 7.352086 0.026716700 990.8902 6.898604
## 2009 -0.0009679854 1529.707 7.332832 -0.019254720 858.7837 6.755517
## 2010 0.0070771183 1566.427 7.356553 0.023720873 930.7959 6.836040
## 2011 0.0184209154 1616.215 7.387842 0.031289913 972.3037 6.879668
## 2012 0.0147858069 1652.378 7.409971 0.022128527 942.8966 6.848957
## 2013 0.0036111234 1660.791 7.415049 0.005078302 942.6160 6.848659
## 2014 0.0104498742 1689.007 7.431896 0.016846652 970.4342 6.877744
## 2015 0.0189787758 1719.388 7.449724 0.017828033 977.9275 6.885436
## 2016 0.0224461431 1758.203 7.472048 0.022323751 997.9957 6.905749
## 2017 0.0133070869 1807.234 7.499553 0.027505019 1014.9591 6.922604
## 2018 0.0126561471 1852.621 7.524357 0.024803774 1007.1643 6.914894
## 2019 0.0155042414 1881.963 7.540070 0.015713938 983.1004 6.890711
## 2020 -0.0861250864 1758.025 7.471946 -0.068124017 922.2221 6.826786
## 2021 0.0578394319 1843.493 7.519417 0.047470894 988.4992 6.896188
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 NA 489.4186 6.193218 NA 394.7210 5.978179
## 1992 -0.016512244 511.3536 6.237061 0.043843171 428.9390 6.061315
## 1993 -0.020154655 488.1461 6.190615 -0.046446581 421.1980 6.043103
## 1994 0.040518185 505.5972 6.225740 0.035125559 441.6790 6.090583
## 1995 0.017160052 504.6277 6.223821 -0.001919375 445.9730 6.100258
## 1996 0.015258411 502.4463 6.219489 -0.004332161 442.4420 6.092309
## 1997 0.041305463 505.0518 6.224661 0.005172230 444.2130 6.096304
## 1998 0.026557712 525.3508 6.264066 0.039405232 459.2520 6.129599
## 1999 -0.005900498 547.8919 6.306078 0.042011775 474.4770 6.162213
## 2000 0.003028551 559.3441 6.326765 0.020686843 487.5020 6.189294
## 2001 0.041914578 544.6804 6.300199 -0.026565647 473.1400 6.159391
## 2002 0.004151827 511.5354 6.237417 -0.062782409 442.3010 6.091991
## 2003 -0.015316863 503.2340 6.221055 -0.016361521 431.7720 6.067898
## 2004 0.046553048 501.0526 6.216711 -0.004344185 431.9380 6.068282
## 2005 0.020815792 505.5366 6.225620 0.008909354 436.5340 6.078866
## 2006 0.075864263 543.5897 6.298195 0.072574295 472.3150 6.157646
## 2007 0.042705784 563.2222 6.333674 0.035479487 501.3230 6.217251
## 2008 -0.019101722 572.1295 6.349365 0.015691143 517.0130 6.248068
## 2009 -0.143086662 518.0190 6.250012 -0.099353443 471.2320 6.155351
## 2010 0.080522956 545.3469 6.301422 0.051410185 501.1480 6.216901
## 2011 0.043628135 585.6420 6.372709 0.071286575 548.7010 6.307554
## 2012 -0.030711585 584.3089 6.370430 -0.002278900 557.8770 6.324139
## 2013 -0.000297659 576.7952 6.357487 -0.012942517 559.5000 6.327044
## 2014 0.029084641 595.4582 6.389331 0.031843929 586.6650 6.374454
## 2015 0.007691949 605.9410 6.406783 0.017451428 605.9410 6.406783
## 2016 0.020313396 628.9668 6.444078 0.037295852 636.4210 6.455860
## 2017 0.016854610 644.3577 6.468254 0.024175534 665.8890 6.501123
## 2018 -0.007709536 666.5957 6.502184 0.033929709 707.7190 6.562047
## 2019 -0.024182788 683.9256 6.527849 0.025665425 746.8740 6.615896
## 2020 -0.063925202 644.4054 6.468328 -0.059521109 717.7619 6.576138
## 2021 0.069401761 682.5412 6.525823 0.057494860 777.5564 6.656156
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 NA 344.9460 5.843388 NA 0.8738983 -0.1347913
## 1992 0.0831355315 373.6210 5.923242 0.079854032 0.8710353 -0.1380728
## 1993 -0.0182116858 366.8480 5.904948 -0.018294321 0.8709633 -0.1381554
## 1994 0.0474803420 388.0960 5.961253 0.056305138 0.8786834 -0.1293306
## 1995 0.0096750382 396.1180 5.981712 0.020459415 0.8882107 -0.1185463
## 1996 -0.0079490297 393.6620 5.975493 -0.006219474 0.8897483 -0.1168167
## 1997 0.0039947947 398.2650 5.987118 0.011624940 0.8965631 -0.1091866
## 1998 0.0332949019 412.7490 6.022840 0.035722047 0.8987419 -0.1067594
## 1999 0.0326140658 425.3040 6.052804 0.029964547 0.8963638 -0.1094089
## 2000 0.0270812482 438.5000 6.083360 0.030555604 0.8994835 -0.1059346
## 2001 -0.0299030652 423.9440 6.049601 -0.033758441 0.8960223 -0.1097900
## 2002 -0.0674006820 394.0620 5.976508 -0.073093114 0.8909363 -0.1154824
## 2003 -0.0240929746 384.9470 5.953106 -0.023402595 0.8915516 -0.1147920
## 2004 0.0003843883 388.0230 5.961065 0.007958954 0.8983303 -0.1072174
## 2005 0.0105842051 392.4430 5.972391 0.011326688 0.8989976 -0.1064750
## 2006 0.0787798713 423.5150 6.048589 0.076197629 0.8966791 -0.1090572
## 2007 0.0596044681 452.0270 6.113742 0.065152980 0.9016682 -0.1035087
## 2008 0.0308174153 463.2320 6.138228 0.024486096 0.8959775 -0.1098400
## 2009 -0.0927174775 413.0930 6.023673 -0.114555259 0.8766234 -0.1316778
## 2010 0.0615509249 440.6920 6.088346 0.064673470 0.8793650 -0.1285552
## 2011 0.0906521999 486.1710 6.186560 0.098214195 0.8860399 -0.1209933
## 2012 0.0165848414 497.0740 6.208739 0.022178495 0.8910100 -0.1153996
## 2013 0.0029050198 498.2450 6.211092 0.002353016 0.8905183 -0.1159516
## 2014 0.0474104307 525.2680 6.263909 0.052816685 0.8953457 -0.1105453
## 2015 0.0323286631 541.0930 6.293591 0.029682559 0.8929797 -0.1131915
## 2016 0.0490776724 567.7470 6.341676 0.048084729 0.8920934 -0.1141844
## 2017 0.0452626959 592.7320 6.384742 0.043066461 0.8901363 -0.1163806
## 2018 0.0609241323 628.1790 6.442825 0.058082800 0.8876108 -0.1192220
## 2019 0.0538493740 661.3590 6.494297 0.051471651 0.8855028 -0.1215997
## 2020 -0.0397585978 625.8580 6.439124 -0.055173301 0.8719577 -0.1370144
## 2021 0.0800182832 680.0105 6.522108 0.082984731 0.8745481 -0.1340479
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 NA 427.7021 6.058427 NA NA NA
## 1992 -0.00328149987 445.4070 6.098989 0.040561672 2.4111500 1.7520947
## 1993 -0.00008263553 425.1573 6.052459 -0.046529217 2.5255730 1.7717426
## 1994 0.00882479639 444.2599 6.096410 0.043950355 4.7278219 2.0898053
## 1995 0.01078437679 448.2157 6.105275 0.008865002 4.7644388 2.0943250
## 1996 0.00172955609 447.0507 6.102672 -0.002602605 5.5999368 2.1922630
## 1997 0.00763014505 452.8108 6.115474 0.012802375 5.3437592 2.1632401
## 1998 0.00242714528 472.1548 6.157307 0.041832377 3.8602013 1.9762621
## 1999 -0.00264951847 491.1105 6.196669 0.039362256 4.1374856 2.0139699
## 2000 0.00347435628 503.1208 6.220830 0.024161199 5.7598662 2.2099637
## 2001 -0.00385537557 488.0458 6.190409 -0.030421022 3.4665297 1.9201599
## 2002 -0.00569243171 455.7454 6.121934 -0.068474841 3.3551269 1.9036953
## 2003 0.00069037979 448.6591 6.106263 -0.015671141 2.6990242 1.8008090
## 2004 0.00757456546 450.1107 6.109494 0.003230380 2.9072179 1.8346174
## 2005 0.00074248238 454.4762 6.119145 0.009651836 2.9228396 1.8371087
## 2006 -0.00258224246 487.4255 6.189138 0.069992052 3.3475666 1.9025680
## 2007 0.00554851192 507.8395 6.230166 0.041027999 2.4146943 1.7527092
## 2008 -0.00633131939 512.6151 6.239525 0.009359823 3.0454352 1.8564472
## 2009 -0.02183778178 454.1076 6.118334 -0.121191225 1.3496211 1.5486557
## 2010 0.00312254464 479.5590 6.172867 0.054532729 2.0803991 1.6930285
## 2011 0.00756199521 518.9022 6.251715 0.078848571 1.5231802 1.5848787
## 2012 0.00559365308 520.6251 6.255030 0.003314753 0.0045085 1.2119493
## 2013 -0.00055200423 513.6467 6.241536 -0.013494521 -0.3911804 1.0866541
## 2014 0.00540625391 533.1410 6.278786 0.037250183 -0.6890209 0.9807663
## 2015 -0.00264610372 541.0930 6.293591 0.014805325 -1.2150954 0.7610040
## 2016 -0.00099294344 561.0972 6.329894 0.036302908 -1.0743615 0.8246833
## 2017 -0.00219623535 573.5662 6.351873 0.021979298 -0.7197912 0.9691596
## 2018 -0.00284133212 591.6775 6.382962 0.031088376 -1.0954619 0.8153903
## 2019 -0.00237772275 605.6180 6.406249 0.023287702 -2.3555196 0.0000000
## 2020 -0.01541470285 561.8942 6.331314 -0.074935811 NA NA
## 2021 0.00296644776 596.9151 6.391775 0.060461308 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 22.19090 3.099682 NA 45.51832 3.818115
## 1961 NA 23.24077 3.145908 0.046225708 44.43546 3.794038
## 1962 NA 24.15110 3.184330 0.038421709 44.33084 3.791681
## 1963 NA 24.89615 3.214713 0.030383338 45.38310 3.815140
## 1964 NA 25.64937 3.244519 0.029805905 46.19565 3.832886
## 1965 NA 26.60496 3.281098 0.036578386 47.55459 3.861878
## 1966 NA 27.52088 3.314945 0.033847500 48.40740 3.879653
## 1967 NA 27.95183 3.330483 0.015537642 47.72939 3.865547
## 1968 NA 28.59377 3.353189 0.022706320 48.04525 3.872143
## 1969 NA 29.78553 3.394023 0.040833559 48.94956 3.890790
## 1970 NA 32.07914 3.468206 0.074183532 45.74480 3.823078
## 1971 NA 34.52400 3.541655 0.073448734 46.43686 3.838093
## 1972 NA 36.08858 3.585977 0.044321692 47.24497 3.855346
## 1973 NA 38.36199 3.647067 0.061090562 51.29779 3.937648
## 1974 NA 41.15293 3.717295 0.070228068 63.28156 4.147594
## 1975 NA 43.48491 3.772414 0.055118942 64.68216 4.169485
## 1976 NA 44.92261 3.804941 0.032527175 68.29934 4.223900
## 1977 NA 46.31553 3.835477 0.030536137 69.60283 4.242805
## 1978 NA 47.95781 3.870322 0.034844239 68.37260 4.224972
## 1979 NA 50.00951 3.912213 0.041891558 74.16675 4.306316
## 1980 NA 52.73563 3.965291 0.053078026 83.52666 4.425166
## 1981 NA 54.93746 4.006195 0.040904266 93.30771 4.535903
## 1982 NA 57.45418 4.050988 0.044792257 95.80007 4.562263
## 1983 NA 59.06746 4.078680 0.027692442 96.44129 4.568934
## 1984 NA 60.24240 4.098376 0.019696155 101.15689 4.616673
## 1985 NA 61.52238 4.119401 0.021024697 103.51975 4.639762
## 1986 NA 63.36777 4.148955 0.029554356 91.60731 4.517511
## 1987 NA 64.17867 4.161671 0.012715501 87.25912 4.468882
## 1988 NA 65.26359 4.178434 0.016763334 89.03423 4.489021
## 1989 NA 67.14257 4.206818 0.028383999 93.68763 4.539966
## 1990 NA 69.42316 4.240221 0.033402313 92.49129 4.527114
## 1991 NA 71.56492 4.270605 0.030384437 95.10680 4.555000
## 1992 NA 75.35860 4.322258 0.051653055 93.11671 4.533854
## 1993 0.019647839 78.28724 4.360385 0.038126617 91.61958 4.517645
## 1994 0.318062778 79.88859 4.380633 0.020248330 91.45985 4.515900
## 1995 0.004519692 81.47894 4.400345 0.019711592 91.25540 4.513662
## 1996 0.097937969 81.95737 4.406199 0.005854642 91.20712 4.513133
## 1997 -0.029022874 82.18784 4.409007 0.002808187 93.46776 4.537617
## 1998 -0.186978022 82.74953 4.415818 0.006810927 90.98120 4.510653
## 1999 0.037707841 83.02964 4.419198 0.003379371 89.61361 4.495507
## 2000 0.195993788 82.63721 4.414460 -0.004737631 96.21858 4.566623
## 2001 -0.289803822 83.70223 4.427266 0.012805596 96.82084 4.572862
## 2002 -0.016464616 84.85617 4.440958 0.013692023 94.33082 4.546808
## 2003 -0.102886264 85.98895 4.454219 0.013261134 92.04352 4.522262
## 2004 0.033808358 86.93550 4.465166 0.010947655 91.76168 4.519195
## 2005 0.002491283 87.29631 4.469308 0.004141709 94.33200 4.546820
## 2006 0.065459375 87.64469 4.473291 0.003982800 96.96658 4.574366
## 2007 -0.149858896 89.18964 4.490765 0.017473848 97.10139 4.575756
## 2008 0.103738016 89.99854 4.499793 0.009028564 99.79167 4.603085
## 2009 -0.307791490 91.65943 4.518080 0.018286497 93.14385 4.534145
## 2010 0.144372863 92.25170 4.524521 0.006440796 97.48761 4.579725
## 2011 -0.108149790 93.23927 4.535169 0.010648245 102.69699 4.631783
## 2012 -0.372929413 94.63359 4.550012 0.014843528 104.71460 4.651239
## 2013 -0.125295196 96.49681 4.569510 0.019497505 103.01817 4.634905
## 2014 -0.105887877 98.29344 4.587957 0.018447292 101.49204 4.619980
## 2015 -0.219762230 100.00000 4.605170 0.017212922 100.00000 4.605170
## 2016 0.063679219 101.17701 4.616872 0.011701340 97.54992 4.580364
## 2017 0.144476324 102.23666 4.627290 0.010418833 100.08611 4.606031
## 2018 -0.153769232 103.78251 4.642297 0.015007084 101.92786 4.624265
## 2019 -0.815390344 106.02038 4.663631 0.021333924 101.80637 4.623073
## 2020 NA 108.28340 4.684752 0.021120466 99.62199 4.601383
## 2021 NA 110.03404 4.700790 0.016037972 100.09663 4.606136
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 37.09301 3.613429 NA NA NA
## 1961 -0.0240769973 36.76024 3.604417 -0.0090118725 NA NA
## 1962 -0.0023572762 37.47668 3.623719 0.0193020552 NA NA
## 1963 0.0234590878 37.83464 3.633225 0.0095062072 NA NA
## 1964 0.0177460365 38.83770 3.659392 0.0261664791 NA NA
## 1965 0.0289925138 39.88557 3.686015 0.0266230468 NA NA
## 1966 0.0177744310 40.90002 3.711131 0.0251160901 NA NA
## 1967 -0.0141053273 40.99052 3.713341 0.0022101291 NA NA
## 1968 0.0065959910 41.01070 3.713833 0.0004923268 NA NA
## 1969 0.0186469995 42.65650 3.753180 0.0393465802 NA NA
## 1970 -0.0677122717 44.08087 3.786026 0.0328462459 NA NA
## 1971 0.0150153762 46.00562 3.828763 0.0427375268 NA NA
## 1972 0.0172527793 47.21491 3.854710 0.0259462268 NA NA
## 1973 0.0823014928 50.11473 3.914315 0.0596051801 NA NA
## 1974 0.2099461982 57.62508 4.053958 0.1396430792 NA NA
## 1975 0.0218914952 60.33713 4.099948 0.0459897278 NA NA
## 1976 0.0544146220 62.64479 4.137481 0.0375328989 NA NA
## 1977 0.0189052360 63.85867 4.156672 0.0191917850 NA NA
## 1978 -0.0178331182 65.01419 4.174606 0.0179331517 NA NA
## 1979 0.0813437463 67.98199 4.219243 0.0446372189 NA NA
## 1980 0.1188500183 72.01478 4.276871 0.0576286931 NA NA
## 1981 0.1107368009 76.05873 4.331506 0.0546344154 NA NA
## 1982 0.0263606730 79.18888 4.371836 0.0403300868 NA NA
## 1983 0.0066710315 80.80458 4.392034 0.0201977016 NA NA
## 1984 0.0477382092 83.34629 4.423004 0.0309704489 NA NA
## 1985 0.0230898035 85.58104 4.449464 0.0264596394 NA NA
## 1986 -0.1222513693 84.67929 4.438871 -0.0105927232 NA NA
## 1987 -0.0486289435 83.87666 4.429347 -0.0095236078 NA NA
## 1988 0.0201388245 85.36485 4.446934 0.0175870474 NA NA
## 1989 0.0509451956 87.48460 4.471463 0.0245282828 NA NA
## 1990 -0.0128516566 87.56185 4.472345 0.0008826527 NA NA
## 1991 0.0278859420 88.80248 4.486415 0.0140692130 422.599 6.046424
## 1992 -0.0211468254 89.69274 4.496390 0.0099752717 421.179 6.043058
## 1993 -0.0162086032 89.77044 4.497256 0.0008658668 396.195 5.981907
## 1994 -0.0017449622 90.33229 4.503495 0.0062392029 427.567 6.058111
## 1995 -0.0022378766 91.41958 4.515460 0.0119647855 455.816 6.122089
## 1996 -0.0005291717 91.03108 4.511201 -0.0042587611 482.503 6.178987
## 1997 0.0244835467 91.81364 4.519761 0.0085599254 541.698 6.294709
## 1998 -0.0269636191 91.19735 4.513026 -0.0067349945 583.291 6.368686
## 1999 -0.0151457670 90.41270 4.504385 -0.0086411922 614.095 6.420150
## 2000 0.0711153656 93.09772 4.533650 0.0292650414 698.842 6.549425
## 2001 0.0062397333 93.68834 4.539974 0.0063239609 738.447 6.604549
## 2002 -0.0260542336 93.08109 4.533471 -0.0065026826 769.677 6.645971
## 2003 -0.0245465001 92.53942 4.527635 -0.0058363395 784.157 6.664609
## 2004 -0.0030667590 92.38954 4.526014 -0.0016208898 874.582 6.773746
## 2005 0.0276257236 93.33961 4.536245 0.0102307322 933.067 6.838477
## 2006 0.0275459505 94.31570 4.546648 0.0104031537 1047.766 6.954416
## 2007 0.0013892176 94.91499 4.552982 0.0063339389 1140.888 7.039562
## 2008 0.0273290527 95.89941 4.563300 0.0103182165 1163.033 7.058787
## 2009 -0.0689396799 93.51656 4.538139 -0.0251613266 996.946 6.904697
## 2010 0.0455802608 95.69917 4.561210 0.0230711621 1140.604 7.039313
## 2011 0.0520575387 98.19119 4.586917 0.0257068465 1235.998 7.119634
## 2012 0.0194556964 99.96097 4.604780 0.0178632970 1271.770 7.148165
## 2013 -0.0163331840 99.40304 4.599183 -0.0055971483 1284.546 7.158161
## 2014 -0.0149249335 99.20644 4.597203 -0.0019797138 1346.155 7.205008
## 2015 -0.0148102153 100.00000 4.605170 0.0079672363 1419.545 7.258092
## 2016 -0.0248059298 99.22943 4.597435 -0.0077355191 1453.614 7.281808
## 2017 0.0256666702 100.88225 4.613954 0.0165193045 1524.591 7.329481
## 2018 0.0182343699 101.83203 4.623325 0.0093707257 1557.241 7.350671
## 2019 -0.0011926412 102.62202 4.631053 0.0077278413 1570.869 7.359384
## 2020 -0.0216897258 102.96784 4.634417 0.0033641322 1380.899 7.230490
## 2021 0.0047530910 103.33265 4.637953 0.0035367408 1522.837 7.328330
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 NA 402.716 5.998232 NA 0.5956763 -0.5180579
## 1992 -0.003365817 414.858 6.027936 0.029704694 0.6033096 -0.5053247
## 1993 -0.061151407 387.240 5.959045 -0.068891637 0.6010750 -0.5090356
## 1994 0.076204487 419.024 6.037928 0.078883542 0.5906495 -0.5265326
## 1995 0.063978218 448.189 6.105215 0.067286821 0.5907893 -0.5262959
## 1996 0.056897919 466.522 6.145305 0.040090160 0.5890438 -0.5292548
## 1997 0.115721512 509.495 6.233420 0.088114860 0.5814214 -0.5422794
## 1998 0.073977554 557.469 6.323407 0.089986857 0.5779440 -0.5482783
## 1999 0.051463435 606.871 6.408316 0.084909351 0.5815453 -0.5420664
## 2000 0.129275040 672.463 6.510947 0.102630843 0.5905571 -0.5266889
## 2001 0.055124653 678.058 6.519233 0.008285739 0.5829081 -0.5397258
## 2002 0.041421614 660.439 6.492905 -0.026328065 0.5801750 -0.5444254
## 2003 0.018638309 697.699 6.547788 0.054883012 0.5803792 -0.5440737
## 2004 0.109136803 752.339 6.623187 0.075399243 0.5706860 -0.5609160
## 2005 0.064730952 797.099 6.680979 0.057791867 0.5657947 -0.5695240
## 2006 0.115938548 885.903 6.786607 0.105628577 0.5522863 -0.5936888
## 2007 0.085146628 940.900 6.846837 0.060229400 0.5417765 -0.6129017
## 2008 0.019224341 962.685 6.869726 0.022889391 0.5511427 -0.5957615
## 2009 -0.154089921 869.356 6.767753 -0.101973548 0.5732934 -0.5563577
## 2010 0.134616620 981.255 6.888832 0.121079657 0.5635063 -0.5735767
## 2011 0.080320794 1053.037 6.959434 0.070601285 0.5594630 -0.5807779
## 2012 0.028530890 1054.108 6.960450 0.001016541 0.5695914 -0.5628360
## 2013 0.009995718 1082.321 6.986863 0.026412898 0.5700502 -0.5620309
## 2014 0.046847032 1124.937 7.025482 0.038619225 0.5671127 -0.5671972
## 2015 0.053084017 1190.410 7.082053 0.056570752 0.5674418 -0.5666170
## 2016 0.023716472 1242.074 7.124538 0.042484777 0.5675943 -0.5663484
## 2017 0.047673308 1306.475 7.175088 0.050550108 0.5693872 -0.5631945
## 2018 0.021189488 1353.615 7.210534 0.035446121 0.5749054 -0.5535497
## 2019 0.008713304 1379.447 7.229438 0.018903903 0.5807344 -0.5434618
## 2020 -0.128894233 1253.059 7.133343 -0.096094932 0.5800144 -0.5447024
## 2021 0.097840306 1360.312 7.215469 0.082126323 0.5744767 -0.5542957
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA NA NA NA 52.83543 3.967182
## 1961 NA NA NA NA 53.74501 3.984251
## 1962 NA NA NA NA 55.07111 4.008625
## 1963 NA NA NA NA 55.54587 4.017209
## 1964 NA NA NA NA 58.09439 4.062069
## 1965 NA NA NA NA 59.86838 4.092148
## 1966 NA NA NA NA 60.60388 4.104359
## 1967 NA NA NA NA 60.82166 4.107946
## 1968 NA NA NA NA 63.25220 4.147130
## 1969 NA NA NA NA 66.32176 4.194518
## 1970 NA NA NA NA 67.99133 4.219380
## 1971 NA NA NA NA 68.76521 4.230698
## 1972 NA NA NA NA 70.34678 4.253437
## 1973 NA NA NA NA 72.09539 4.277990
## 1974 NA NA NA NA 72.35137 4.281534
## 1975 NA NA NA NA 72.18869 4.279283
## 1976 NA NA NA NA 75.24968 4.320812
## 1977 NA NA NA NA 76.91258 4.342669
## 1978 NA NA NA NA 77.96332 4.356239
## 1979 NA NA NA NA 79.39086 4.374383
## 1980 NA NA NA NA 78.85640 4.367628
## 1981 NA NA NA NA 78.53588 4.363556
## 1982 NA NA NA NA 78.06191 4.357502
## 1983 NA NA NA NA 79.17973 4.371720
## 1984 NA NA NA NA 80.46449 4.387816
## 1985 NA NA NA NA 81.14120 4.396191
## 1986 NA NA NA NA 81.51970 4.400845
## 1987 NA NA NA NA 81.44907 4.399978
## 1988 NA NA NA NA 83.17206 4.420912
## 1989 NA NA NA NA 84.77392 4.439988
## 1990 NA NA NA NA 86.77552 4.463325
## 1991 NA 42.62952 3.752547 NA 88.85054 4.486956
## 1992 0.0127331878 45.46457 3.816933 0.0643862426 90.12068 4.501150
## 1993 -0.0037108953 47.05650 3.851349 0.0344157216 89.02085 4.488871
## 1994 -0.0174969406 47.18615 3.854100 0.0027513898 90.20580 4.502094
## 1995 0.0002367225 48.13688 3.874049 0.0199483142 90.50950 4.505455
## 1996 -0.0029589364 48.27648 3.876944 0.0028957060 90.46379 4.504950
## 1997 -0.0130246344 47.78577 3.866728 -0.0102164471 91.37842 4.515009
## 1998 -0.0059988948 47.82459 3.867540 0.0008120318 91.82324 4.519865
## 1999 0.0062119090 48.28550 3.877131 0.0095912800 91.89869 4.520687
## 2000 0.0153775433 48.80200 3.887771 0.0106399121 92.61835 4.528487
## 2001 -0.0130368914 48.79071 3.887540 -0.0002312955 93.72832 4.540400
## 2002 -0.0046996573 49.23143 3.896532 0.0089923653 93.42165 4.537123
## 2003 0.0003517594 49.90620 3.910145 0.0136128931 93.04251 4.533056
## 2004 -0.0168423853 49.61288 3.904250 -0.0058947301 93.71806 4.540291
## 2005 -0.0086079137 49.39179 3.899784 -0.0044662049 94.21847 4.545616
## 2006 -0.0241648194 48.40496 3.879602 -0.0201820199 97.00463 4.574759
## 2007 -0.0192129625 48.32085 3.877863 -0.0017391147 98.48008 4.589854
## 2008 0.0171402623 49.60204 3.904032 0.0261688258 98.20749 4.587082
## 2009 0.0394038055 52.54775 3.961722 0.0576903028 92.42876 4.526438
## 2010 -0.0172190028 51.98442 3.950944 -0.0107782067 95.88932 4.563195
## 2011 -0.0072012166 52.16392 3.954391 0.0034470286 98.59086 4.590979
## 2012 0.0179418900 53.90248 3.987176 0.0327854182 98.03696 4.585345
## 2013 0.0008051127 55.00802 4.007479 0.0203026173 97.76457 4.582562
## 2014 -0.0051663393 55.74346 4.020760 0.0132809531 99.13339 4.596466
## 2015 0.0005802058 56.74418 4.038553 0.0177931278 100.00000 4.605170
## 2016 0.0002686188 57.42749 4.050523 0.0119699583 101.12504 4.616358
## 2017 0.0031538808 58.21225 4.064096 0.0135727134 102.40745 4.628959
## 2018 0.0096448271 59.66513 4.088748 0.0246519111 102.70404 4.631851
## 2019 0.0100878645 61.56968 4.120170 0.0314217886 102.27748 4.627690
## 2020 -0.0012405918 62.80592 4.140049 0.0198798740 95.91437 4.563456
## 2021 -0.0095933222 63.21199 4.146494 0.0064446500 100.75677 4.612709
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA NA
## 1961 0.0170688407 0.01506512478 0.070302706 NA
## 1962 0.0243744118 0.02165933144 0.040778986 NA
## 1963 0.0085838384 -0.01395288055 0.006924250 NA
## 1964 0.0448599840 0.00842044265 0.012059868 NA
## 1965 0.0300793537 -0.00236946706 0.007585873 NA
## 1966 0.0122104240 0.00734165914 0.016073069 NA
## 1967 0.0035870732 0.01631545639 0.029642969 NA
## 1968 0.0391839900 -0.00610366423 0.016110329 NA
## 1969 0.0473881450 0.02069958065 0.022186559 NA
## 1970 0.0248620985 0.10055851760 0.141895804 NA
## 1971 0.0113177621 0.02772215057 0.058433358 NA
## 1972 0.0227391319 0.00869344758 0.027068913 NA
## 1973 0.0245530231 -0.02269631272 -0.021210930 NA
## 1974 0.0035443090 -0.07030311902 -0.139718130 NA
## 1975 -0.0022510462 0.02409823255 0.033227447 NA
## 1976 0.0415283038 -0.01688172308 -0.021887447 NA
## 1977 0.0218578339 0.00028654901 0.011630901 NA
## 1978 0.0135690406 0.03576626991 0.052677358 NA
## 1979 0.0181447058 -0.03670652735 -0.039452188 NA
## 1980 -0.0067547475 -0.06122132527 -0.065771993 NA
## 1981 -0.0040728356 -0.05610238556 -0.069832535 NA
## 1982 -0.0060533885 0.01396941376 0.018431584 NA
## 1983 0.0142180613 0.01352667010 0.021021411 NA
## 1984 0.0160956950 -0.01676776025 -0.028042055 NA
## 1985 0.0083747999 0.00336983591 -0.002065107 NA
## 1986 0.0046538940 0.11165864611 0.151805725 NA
## 1987 -0.0008667207 0.03910533565 0.061344444 NA
## 1988 0.0209335452 -0.00255177706 -0.003375490 NA
## 1989 0.0190763932 -0.02641691276 -0.022561197 NA
## 1990 0.0233366137 0.01373430924 0.046253970 NA
## 1991 0.0236311226 -0.01381672898 0.002498495 0.3724531
## 1992 0.0141940663 0.03112209705 0.072799880 0.3701549
## 1993 -0.0122790754 0.01707447003 0.054335220 0.3502959
## 1994 0.0132230832 0.00798416512 0.021993293 0.3696699
## 1995 0.0033610932 0.01420266210 0.021949468 0.3887732
## 1996 -0.0005051033 -0.00372958936 0.006383814 0.4048111
## 1997 0.0100596575 -0.01592362131 -0.021675359 0.4405338
## 1998 0.0048560267 0.02022862455 0.033774546 0.4686082
## 1999 0.0008213685 0.00650457479 0.018525138 0.4922426
## 2000 0.0078005613 -0.04185032420 -0.075852997 0.5372972
## 2001 0.0119130299 0.00008422759 0.006565863 0.5457420
## 2002 -0.0032772282 0.01955155103 0.039746256 0.5520816
## 2003 -0.0040666907 0.01871016062 0.037807634 0.5761665
## 2004 0.0072344582 0.00144586916 0.014014414 0.6251313
## 2005 0.0053253870 -0.01739499146 -0.023484015 0.6600377
## 2006 0.0291424322 -0.01714279684 -0.023563151 0.7105665
## 2007 0.0150956133 0.00494472124 0.016084630 0.7428293
## 2008 -0.0027718841 -0.01701083618 -0.018300489 0.7512754
## 2009 -0.0606442363 0.04377835336 0.087226177 0.6994401
## 2010 0.0367563659 -0.02250909869 -0.039139465 0.7633174
## 2011 0.0277839630 -0.02635069220 -0.041409294 0.7923637
## 2012 -0.0056340154 -0.00159239941 -0.004612168 0.8017535
## 2013 -0.0027822364 0.01073603574 0.035830689 0.8124038
## 2014 0.0139040477 0.01294521968 0.033372226 0.8297111
## 2015 0.0087038539 0.02277745164 0.032023137 0.8613514
## 2016 0.0111876047 0.01707041066 0.036507269 0.8702390
## 2017 0.0126016331 -0.00914736575 -0.015247838 0.8919558
## 2018 0.0028919893 -0.00886364422 -0.003227286 0.9032971
## 2019 -0.0041618798 0.00892048248 0.022526565 0.9104059
## 2020 -0.0642336972 0.02505385800 0.042810192 0.8690054
## 2021 0.0492535555 -0.00121635020 0.011284881 0.8984586
## 2022 NA NA NA NA
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Trades <- cbind(Year,AUT_df$Trade,BEL_df$Trade,DNK_df$Trade,FIN_df$Trade,FRA_df$Trade,GRC_df$Trade,IRL_df$Trade,ITA_df$Trade,LUX_df$Trade,NLD_df$Trade,PRT_df$Trade,ESP_df$Trade,SWE_df$Trade,GBR_df$Trade,DEU_df$Trade)
Trades <- data.frame(Y=as.matrix(Trades), date=time(Trades))
colnames(Trades) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Trades <- Trades[1:61,]
meltedTrades = melt(Trades[1:16], id = "Year")
ggplot(meltedTrades, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Trade - (Import+Export)/GDP - ratio") +
xlab("Year")
AUT_df$Trade
## Time Series:
## Start = 1
## End = 63
## Frequency = 1
## [1] 0.2462179 0.2432959 0.2542790 0.2648907 0.2707510 0.2869504 0.2954235
## [8] 0.2977178 0.3071240 0.3261037 0.3553906 0.3595506 0.3765099 0.3864741
## [15] 0.4038546 0.3906635 0.4275974 0.4301848 0.4450711 0.4678203 0.4817985
## [22] 0.4916845 0.4725404 0.4723560 0.5072265 0.5303376 0.4987629 0.5099909
## [29] 0.5375111 0.5709162 0.5923618 0.5959249 0.5938367 0.5670482 0.5985258
## [36] 0.6209801 0.6333802 0.6766130 0.6974684 0.7087145 0.7667577 0.7986837
## [43] 0.8038404 0.8120789 0.8562495 0.8882972 0.9164737 0.9421544 0.9433314
## [50] 0.8509288 0.9406031 0.9682179 0.9731209 0.9793548 1.0013377 1.0242732
## [57] 1.0370053 1.0628577 1.0922071 1.1048278 1.0321149 1.0782529 NA
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Consumption <- cbind(Year,AUT_df$C,BEL_df$C,DNK_df$C,FIN_df$C,FRA_df$C,GRC_df$C,IRL_df$C,ITA_df$C,LUX_df$C,NLD_df$C,PRT_df$C,ESP_df$C,SWE_df$C,GBR_df$C,DEU_df$C)
Consumption <- data.frame(Y=as.matrix(Consumption), date=time(Consumption))
colnames(Consumption) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Consumption <- Consumption[1:61,]
meltedConsumption = melt(Consumption[1:16], id = "Year")
ggplot(meltedConsumption, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Consumption - konstante 2015 priser - Mrd DKK") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Consumption_log <- cbind(Year,AUT_df$C_l,BEL_df$C_l,DNK_df$C_l,FIN_df$C_l,FRA_df$C_l,GRC_df$C_l,IRL_df$C_l,ITA_df$C_l,LUX_df$C_l,NLD_df$C_l,PRT_df$C_l,ESP_df$C_l,SWE_df$C_l,GBR_df$C_l,DEU_df$C_l)
Consumption_log <- data.frame(Y=as.matrix(Consumption_log), date=time(Consumption_log))
colnames(Consumption_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Consumption_log <- Consumption_log[1:61,]
meltedConsumption_log = melt(Consumption_log[1:16], id = "Year")
ggplot(meltedConsumption_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Consumption_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Consumption_difflog <- cbind(Year,AUT_df$C_dl,BEL_df$C_dl,DNK_df$C_dl,FIN_df$C_dl,FRA_df$C_dl,GRC_df$C_dl,IRL_df$C_dl,ITA_df$C_dl,LUX_df$C_dl,NLD_df$C_dl,PRT_df$C_dl,ESP_df$C_dl,SWE_df$C_dl,GBR_df$C_dl,DEU_df$C_dl)
Consumption_difflog <- data.frame(Y=as.matrix(Consumption_difflog), date=time(Consumption_difflog))
colnames(Consumption_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Consumption_difflog <- Consumption_difflog[1:61,]
meltedConsumption_difflog = melt(Consumption_difflog[1:16], id = "Year")
ggplot(meltedConsumption_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Consumption_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Private_investment <- cbind(Year,AUT_df$I,BEL_df$I,DNK_df$I,FIN_df$I,FRA_df$I,GRC_df$I,IRL_df$I,ITA_df$I,LUX_df$I,NLD_df$I,PRT_df$I,ESP_df$I,SWE_df$I,GBR_df$I,DEU_df$I)
Private_investment <- data.frame(Y=as.matrix(Private_investment), date=time(Private_investment))
colnames(Private_investment) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Private_investment <- Private_investment[1:61,]
meltedPrivate_investment = melt(Private_investment[1:16], id = "Year")
ggplot(meltedPrivate_investment, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Private_investment - konstante 2015 priser - Mrd DKK") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Private_investment_log <- cbind(Year,AUT_df$I_l,BEL_df$I_l,DNK_df$I_l,FIN_df$I_l,FRA_df$I_l,GRC_df$I_l,IRL_df$I_l,ITA_df$I_l,LUX_df$I_l,NLD_df$I_l,PRT_df$I_l,ESP_df$I_l,SWE_df$I_l,GBR_df$I_l,DEU_df$I_l)
Private_investment_log <- data.frame(Y=as.matrix(Private_investment_log), date=time(Private_investment_log))
colnames(Private_investment_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Private_investment_log <- Private_investment_log[1:61,]
meltedPrivate_investment_log = melt(Private_investment_log[1:16], id = "Year")
ggplot(meltedPrivate_investment_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Private_investment_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Private_investment_difflog <- cbind(Year,AUT_df$I_dl,BEL_df$I_dl,DNK_df$I_dl,FIN_df$I_dl,FRA_df$I_dl,GRC_df$I_dl,IRL_df$I_dl,ITA_df$I_dl,LUX_df$I_dl,NLD_df$I_dl,PRT_df$I_dl,ESP_df$I_dl,SWE_df$I_dl,GBR_df$I_dl,DEU_df$I_dl)
Private_investment_difflog <- data.frame(Y=as.matrix(Private_investment_difflog), date=time(Private_investment_difflog))
colnames(Private_investment_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Private_investment_difflog <- Private_investment_difflog[1:61,]
meltedPrivate_investment_difflog = melt(Private_investment_difflog[1:16], id = "Year")
ggplot(meltedPrivate_investment_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Private_investment_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Export <- cbind(Year,AUT_df$X,BEL_df$X,DNK_df$X,FIN_df$X,FRA_df$X,GRC_df$X,IRL_df$X,ITA_df$X,LUX_df$X,NLD_df$X,PRT_df$X,ESP_df$X,SWE_df$X,GBR_df$X,DEU_df$X)
Export <- data.frame(Y=as.matrix(Export), date=time(Export))
colnames(Export) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Export <- Export[1:61,]
meltedExport = melt(Export[1:16], id = "Year")
ggplot(meltedExport, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Export - konstante 2015 priser - Mrd DKK") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Export_log <- cbind(Year,AUT_df$X_l,BEL_df$X_l,DNK_df$X_l,FIN_df$X_l,FRA_df$X_l,GRC_df$X_l,IRL_df$X_l,ITA_df$X_l,LUX_df$X_l,NLD_df$X_l,PRT_df$X_l,ESP_df$X_l,SWE_df$X_l,GBR_df$X_l,DEU_df$X_l)
Export_log <- data.frame(Y=as.matrix(Export_log), date=time(Export_log))
colnames(Export_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Export_log <- Export_log[1:61,]
meltedExport_log = melt(Export_log[1:16], id = "Year")
ggplot(meltedExport_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Export_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Export_difflog <- cbind(Year,AUT_df$X_dl,BEL_df$X_dl,DNK_df$X_dl,FIN_df$X_dl,FRA_df$X_dl,GRC_df$X_dl,IRL_df$X_dl,ITA_df$X_dl,LUX_df$X_dl,NLD_df$X_dl,PRT_df$X_dl,ESP_df$X_dl,SWE_df$X_dl,GBR_df$X_dl,DEU_df$X_dl)
Export_difflog <- data.frame(Y=as.matrix(Export_difflog), date=time(Export_difflog))
colnames(Export_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Export_difflog <- Export_difflog[1:61,]
meltedExport_difflog = melt(Export_difflog[1:16], id = "Year")
ggplot(meltedExport_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Export_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Import <- cbind(Year,AUT_df$M,BEL_df$M,DNK_df$M,FIN_df$M,FRA_df$M,GRC_df$M,IRL_df$M,ITA_df$M,LUX_df$M,NLD_df$M,PRT_df$M,ESP_df$M,SWE_df$M,GBR_df$M,DEU_df$M)
Import <- data.frame(Y=as.matrix(Import), date=time(Import))
colnames(Import) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Import <- Import[1:61,]
meltedImport = melt(Import[1:16], id = "Year")
ggplot(meltedImport, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Import - konstante 2015 priser - Mrd DKK") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Import_log <- cbind(Year,AUT_df$M_l,BEL_df$M_l,DNK_df$M_l,FIN_df$M_l,FRA_df$M_l,GRC_df$M_l,IRL_df$M_l,ITA_df$M_l,LUX_df$M_l,NLD_df$M_l,PRT_df$M_l,ESP_df$M_l,SWE_df$M_l,GBR_df$M_l,DEU_df$M_l)
Import_log <- data.frame(Y=as.matrix(Import_log), date=time(Import_log))
colnames(Import_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Import_log <- Import_log[1:61,]
meltedImport_log = melt(Import_log[1:16], id = "Year")
ggplot(meltedImport_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Import_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Import_difflog <- cbind(Year,AUT_df$M_dl,BEL_df$M_dl,DNK_df$M_dl,FIN_df$M_dl,FRA_df$M_dl,GRC_df$M_dl,IRL_df$M_dl,ITA_df$M_dl,LUX_df$M_dl,NLD_df$M_dl,PRT_df$M_dl,ESP_df$M_dl,SWE_df$M_dl,GBR_df$M_dl,DEU_df$M_dl)
Import_difflog <- data.frame(Y=as.matrix(Import_difflog), date=time(Import_difflog))
colnames(Import_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Import_difflog <- Import_difflog[1:61,]
meltedImport_difflog = melt(Import_difflog[1:16], id = "Year")
ggplot(meltedImport_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Import_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
interest <- cbind(Year,AUT_df$r,BEL_df$r,DNK_df$r,FIN_df$r,FRA_df$r,GRC_df$r,IRL_df$r,ITA_df$r,LUX_df$r,NLD_df$r,PRT_df$r,ESP_df$r,SWE_df$r,GBR_df$r,DEU_df$r)
interest <- data.frame(Y=as.matrix(interest), date=time(interest))
colnames(interest) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
interest <- interest[1:61,]
meltedinterest = melt(interest[1:16], id = "Year")
ggplot(meltedinterest, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Real long-term interest rate - pct.") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Bruttonationalprodukt <- cbind(Year,AUT_df$Y,BEL_df$Y,DNK_df$Y,FIN_df$Y,FRA_df$Y,GRC_df$Y,IRL_df$Y,ITA_df$Y,LUX_df$Y,NLD_df$Y,PRT_df$Y,ESP_df$Y,SWE_df$Y,GBR_df$Y,DEU_df$Y)
Bruttonationalprodukt <- data.frame(Y=as.matrix(Bruttonationalprodukt), date=time(Bruttonationalprodukt))
colnames(Bruttonationalprodukt) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Bruttonationalprodukt <- Bruttonationalprodukt[1:61,]
meltedBruttonationalprodukt = melt(Bruttonationalprodukt[1:16], id = "Year")
ggplot(meltedBruttonationalprodukt, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Bruttonationalprodukt - konstante 2015 priser - Mrd USD") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Bruttonationalprodukt_log <- cbind(Year,AUT_df$Y_l,BEL_df$Y_l,DNK_df$Y_l,FIN_df$Y_l,FRA_df$Y_l,GRC_df$Y_l,IRL_df$Y_l,ITA_df$Y_l,LUX_df$Y_l,NLD_df$Y_l,PRT_df$Y_l,ESP_df$Y_l,SWE_df$Y_l,GBR_df$Y_l,DEU_df$Y_l)
Bruttonationalprodukt_log <- data.frame(Y=as.matrix(Bruttonationalprodukt_log), date=time(Bruttonationalprodukt_log))
colnames(Bruttonationalprodukt_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Bruttonationalprodukt_log <- Bruttonationalprodukt_log[1:61,]
meltedBruttonationalprodukt_log = melt(Bruttonationalprodukt_log[1:16], id = "Year")
ggplot(meltedBruttonationalprodukt_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Bruttonationalprodukt_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Bruttonationalprodukt_difflog <- cbind(Year,AUT_df$Y_dl,BEL_df$Y_dl,DNK_df$Y_dl,FIN_df$Y_dl,FRA_df$Y_dl,GRC_df$Y_dl,IRL_df$Y_dl,ITA_df$Y_dl,LUX_df$Y_dl,NLD_df$Y_dl,PRT_df$Y_dl,ESP_df$Y_dl,SWE_df$Y_dl,GBR_df$Y_dl,DEU_df$Y_dl)
Bruttonationalprodukt_difflog <- data.frame(Y=as.matrix(Bruttonationalprodukt_difflog), date=time(Bruttonationalprodukt_difflog))
colnames(Bruttonationalprodukt_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Bruttonationalprodukt_difflog <- Bruttonationalprodukt_difflog[1:61,]
meltedBruttonationalprodukt_difflog = melt(Bruttonationalprodukt_difflog[1:16], id = "Year")
ggplot(meltedBruttonationalprodukt_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Bruttonationalprodukt_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Bruttonationalprodukt_faktor <- cbind(Year,AUT_df$Yf,BEL_df$Yf,DNK_df$Yf,FIN_df$Yf,FRA_df$Yf,GRC_df$Yf,IRL_df$Yf,ITA_df$Yf,LUX_df$Yf,NLD_df$Yf,PRT_df$Yf,ESP_df$Yf,SWE_df$Yf,GBR_df$Yf,DEU_df$Yf)
Bruttonationalprodukt_faktor <- data.frame(Y=as.matrix(Bruttonationalprodukt_faktor), date=time(Bruttonationalprodukt_faktor))
colnames(Bruttonationalprodukt_faktor) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Bruttonationalprodukt_faktor <- Bruttonationalprodukt_faktor[1:61,]
meltedBruttonationalprodukt_faktor = melt(Bruttonationalprodukt_faktor[1:16], id = "Year")
ggplot(meltedBruttonationalprodukt_faktor, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Bruttonationalprodukt faktor - konstante 2015 priser - Mrd USD") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Total_investment <- cbind(Year,AUT_df$It,BEL_df$It,DNK_df$It,FIN_df$It,FRA_df$It,GRC_df$It,IRL_df$It,ITA_df$It,LUX_df$It,NLD_df$It,PRT_df$It,ESP_df$It,SWE_df$It,GBR_df$It,DEU_df$It)
Total_investment <- data.frame(Y=as.matrix(Total_investment), date=time(Total_investment))
colnames(Total_investment) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Total_investment <- Total_investment[1:61,]
meltedTotal_investment = melt(Total_investment[1:16], id = "Year")
ggplot(meltedTotal_investment, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Total_investment - konstante 2015 priser - Mrd DKK") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Total_investment_log <- cbind(Year,AUT_df$It_l,BEL_df$It_l,DNK_df$It_l,FIN_df$It_l,FRA_df$It_l,GRC_df$It_l,IRL_df$It_l,ITA_df$It_l,LUX_df$It_l,NLD_df$It_l,PRT_df$It_l,ESP_df$It_l,SWE_df$It_l,GBR_df$It_l,DEU_df$It_l)
Total_investment_log <- data.frame(Y=as.matrix(Total_investment_log), date=time(Total_investment_log))
colnames(Total_investment_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Total_investment_log <- Total_investment_log[1:61,]
meltedTotal_investment_log = melt(Total_investment_log[1:16], id = "Year")
ggplot(meltedTotal_investment_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Total_investment_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Total_investment_difflog <- cbind(Year,AUT_df$It_dl,BEL_df$It_dl,DNK_df$It_dl,FIN_df$It_dl,FRA_df$It_dl,GRC_df$It_dl,IRL_df$It_dl,ITA_df$It_dl,LUX_df$It_dl,NLD_df$It_dl,PRT_df$It_dl,ESP_df$It_dl,SWE_df$It_dl,GBR_df$It_dl,DEU_df$It_dl)
Total_investment_difflog <- data.frame(Y=as.matrix(Total_investment_difflog), date=time(Total_investment_difflog))
colnames(Total_investment_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Total_investment_difflog <- Total_investment_difflog[1:61,]
meltedTotal_investment_difflog = melt(Total_investment_difflog[1:16], id = "Year")
ggplot(meltedTotal_investment_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Total_investment_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Ratio_private_to_total_investement <- cbind(Year,AUT_df$Ips,BEL_df$Ips,DNK_df$Ips,FIN_df$Ips,FRA_df$Ips,GRC_df$Ips,IRL_df$Ips,ITA_df$Ips,LUX_df$Ips,NLD_df$Ips,PRT_df$Ips,ESP_df$Ips,SWE_df$Ips,GBR_df$Ips,DEU_df$Ips)
Ratio_private_to_total_investement <- data.frame(Y=as.matrix(Ratio_private_to_total_investement), date=time(Ratio_private_to_total_investement))
colnames(Ratio_private_to_total_investement) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Ratio_private_to_total_investement <- Ratio_private_to_total_investement[1:61,]
meltedRatio_private_to_total_investement = melt(Ratio_private_to_total_investement[1:16], id = "Year")
ggplot(meltedRatio_private_to_total_investement, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Ratio_private_to_total_investement - ratio") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Ratio_private_to_total_investement_log <- cbind(Year,AUT_df$Ips_l,BEL_df$Ips_l,DNK_df$Ips_l,FIN_df$Ips_l,FRA_df$Ips_l,GRC_df$Ips_l,IRL_df$Ips_l,ITA_df$Ips_l,LUX_df$Ips_l,NLD_df$Ips_l,PRT_df$Ips_l,ESP_df$Ips_l,SWE_df$Ips_l,GBR_df$Ips_l,DEU_df$Ips_l)
Ratio_private_to_total_investement_log <- data.frame(Y=as.matrix(Ratio_private_to_total_investement_log), date=time(Ratio_private_to_total_investement_log))
colnames(Ratio_private_to_total_investement_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Ratio_private_to_total_investement_log <- Ratio_private_to_total_investement_log[1:61,]
meltedRatio_private_to_total_investement_log = melt(Ratio_private_to_total_investement_log[1:16], id = "Year")
ggplot(meltedRatio_private_to_total_investement_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Ratio_private_to_total_investement_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Ratio_private_to_total_investement_difflog <- cbind(Year,AUT_df$Ips_dl,BEL_df$Ips_dl,DNK_df$Ips_dl,FIN_df$Ips_dl,FRA_df$Ips_dl,GRC_df$Ips_dl,IRL_df$Ips_dl,ITA_df$Ips_dl,LUX_df$Ips_dl,NLD_df$Ips_dl,PRT_df$Ips_dl,ESP_df$Ips_dl,SWE_df$Ips_dl,GBR_df$Ips_dl,DEU_df$Ips_dl)
Ratio_private_to_total_investement_difflog <- data.frame(Y=as.matrix(Ratio_private_to_total_investement_difflog), date=time(Ratio_private_to_total_investement_difflog))
colnames(Ratio_private_to_total_investement_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Ratio_private_to_total_investement_difflog <- Ratio_private_to_total_investement_difflog[1:61,]
meltedRatio_private_to_total_investement_difflog = melt(Ratio_private_to_total_investement_difflog[1:16], id = "Year")
ggplot(meltedRatio_private_to_total_investement_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Ratio_private_to_total_investement_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Real_unit_labour_cost <- cbind(Year,AUT_df$rulc,BEL_df$rulc,DNK_df$rulc,FIN_df$rulc,FRA_df$rulc,GRC_df$rulc,IRL_df$rulc,ITA_df$rulc,LUX_df$rulc,NLD_df$rulc,PRT_df$rulc,ESP_df$rulc,SWE_df$rulc,GBR_df$rulc,DEU_df$rulc)
Real_unit_labour_cost <- data.frame(Y=as.matrix(Real_unit_labour_cost), date=time(Real_unit_labour_cost))
colnames(Real_unit_labour_cost) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Real_unit_labour_cost <- Real_unit_labour_cost[1:61,]
meltedReal_unit_labour_cost = melt(Real_unit_labour_cost[1:16], id = "Year")
ggplot(meltedReal_unit_labour_cost, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Real_unit_labour_cost - konstante 2015 priser - Mrd USD") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Real_unit_labour_cost_log <- cbind(Year,AUT_df$rulc_l,BEL_df$rulc_l,DNK_df$rulc_l,FIN_df$rulc_l,FRA_df$rulc_l,GRC_df$rulc_l,IRL_df$rulc_l,ITA_df$rulc_l,LUX_df$rulc_l,NLD_df$rulc_l,PRT_df$rulc_l,ESP_df$rulc_l,SWE_df$rulc_l,GBR_df$rulc_l,DEU_df$rulc_l)
Real_unit_labour_cost_log <- data.frame(Y=as.matrix(Real_unit_labour_cost_log), date=time(Real_unit_labour_cost_log))
colnames(Real_unit_labour_cost_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Real_unit_labour_cost_log <- Real_unit_labour_cost_log[1:61,]
meltedReal_unit_labour_cost_log = melt(Real_unit_labour_cost_log[1:16], id = "Year")
ggplot(meltedReal_unit_labour_cost_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Real_unit_labour_cost_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Real_unit_labour_cost_difflog <- cbind(Year,AUT_df$rulc_dl,BEL_df$rulc_dl,DNK_df$rulc_dl,FIN_df$rulc_dl,FRA_df$rulc_dl,GRC_df$rulc_dl,IRL_df$rulc_dl,ITA_df$rulc_dl,LUX_df$rulc_dl,NLD_df$rulc_dl,PRT_df$rulc_dl,ESP_df$rulc_dl,SWE_df$rulc_dl,GBR_df$rulc_dl,DEU_df$rulc_dl)
Real_unit_labour_cost_difflog <- data.frame(Y=as.matrix(Real_unit_labour_cost_difflog), date=time(Real_unit_labour_cost_difflog))
colnames(Real_unit_labour_cost_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Real_unit_labour_cost_difflog <- Real_unit_labour_cost_difflog[1:61,]
meltedReal_unit_labour_cost_difflog = melt(Real_unit_labour_cost_difflog[1:16], id = "Year")
ggplot(meltedReal_unit_labour_cost_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Real_unit_labour_cost_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Unit_labour_cost <- cbind(Year,AUT_df$ulc,BEL_df$ulc,DNK_df$ulc,FIN_df$ulc,FRA_df$ulc,GRC_df$ulc,IRL_df$ulc,ITA_df$ulc,LUX_df$ulc,NLD_df$ulc,PRT_df$ulc,ESP_df$ulc,SWE_df$ulc,GBR_df$ulc,DEU_df$ulc)
Unit_labour_cost <- data.frame(Y=as.matrix(Unit_labour_cost), date=time(Unit_labour_cost))
colnames(Unit_labour_cost) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Unit_labour_cost <- Unit_labour_cost[1:61,]
meltedUnit_labour_cost = melt(Unit_labour_cost[1:16], id = "Year")
ggplot(meltedUnit_labour_cost, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Unit_labour_cost - konstante 2015 priser - Mrd USD") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Unit_labour_cost_log <- cbind(Year,AUT_df$ulc_l,BEL_df$ulc_l,DNK_df$ulc_l,FIN_df$ulc_l,FRA_df$ulc_l,GRC_df$ulc_l,IRL_df$ulc_l,ITA_df$ulc_l,LUX_df$ulc_l,NLD_df$ulc_l,PRT_df$ulc_l,ESP_df$ulc_l,SWE_df$ulc_l,GBR_df$ulc_l,DEU_df$ulc_l)
Unit_labour_cost_log <- data.frame(Y=as.matrix(Unit_labour_cost_log), date=time(Unit_labour_cost_log))
colnames(Unit_labour_cost_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Unit_labour_cost_log <- Unit_labour_cost_log[1:61,]
meltedUnit_labour_cost_log = melt(Unit_labour_cost_log[1:16], id = "Year")
ggplot(meltedUnit_labour_cost_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Unit_labour_cost_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Unit_labour_cost_difflog <- cbind(Year,AUT_df$ulc_dl,BEL_df$ulc_dl,DNK_df$ulc_dl,FIN_df$ulc_dl,FRA_df$ulc_dl,GRC_df$ulc_dl,IRL_df$ulc_dl,ITA_df$ulc_dl,LUX_df$ulc_dl,NLD_df$ulc_dl,PRT_df$ulc_dl,ESP_df$ulc_dl,SWE_df$ulc_dl,GBR_df$ulc_dl,DEU_df$ulc_dl)
Unit_labour_cost_difflog <- data.frame(Y=as.matrix(Unit_labour_cost_difflog), date=time(Unit_labour_cost_difflog))
colnames(Unit_labour_cost_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Unit_labour_cost_difflog <- Unit_labour_cost_difflog[1:61,]
meltedUnit_labour_cost_difflog = melt(Unit_labour_cost_difflog[1:16], id = "Year")
ggplot(meltedUnit_labour_cost_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Unit_labour_cost_difflog") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Total_factor_productivity <- cbind(Year,AUT_df$Tau,BEL_df$Tau,DNK_df$Tau,FIN_df$Tau,FRA_df$Tau,GRC_df$Tau,IRL_df$Tau,ITA_df$Tau,LUX_df$Tau,NLD_df$Tau,PRT_df$Tau,ESP_df$Tau,SWE_df$Tau,GBR_df$Tau,DEU_df$Tau)
Total_factor_productivity <- data.frame(Y=as.matrix(Total_factor_productivity), date=time(Total_factor_productivity))
colnames(Total_factor_productivity) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Total_factor_productivity <- Total_factor_productivity[1:61,]
meltedTotal_factor_productivity = melt(Total_factor_productivity[1:16], id = "Year")
ggplot(meltedTotal_factor_productivity, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Total_factor_productivity - pct.") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Total_factor_productivity_log <- cbind(Year,AUT_df$Tau_l,BEL_df$Tau_l,DNK_df$Tau_l,FIN_df$Tau_l,FRA_df$Tau_l,GRC_df$Tau_l,IRL_df$Tau_l,ITA_df$Tau_l,LUX_df$Tau_l,NLD_df$Tau_l,PRT_df$Tau_l,ESP_df$Tau_l,SWE_df$Tau_l,GBR_df$Tau_l,DEU_df$Tau_l)
Total_factor_productivity_log <- data.frame(Y=as.matrix(Total_factor_productivity_log), date=time(Total_factor_productivity_log))
colnames(Total_factor_productivity_log) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Total_factor_productivity_log <- Total_factor_productivity_log[1:61,]
meltedTotal_factor_productivity_log = melt(Total_factor_productivity_log[1:16], id = "Year")
ggplot(meltedTotal_factor_productivity_log, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Total_factor_productivity_log") +
xlab("Year")
Year <- ts(c(1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022),frequency = 1)
Total_factor_productivity_difflog <- cbind(Year,AUT_df$Tau_dl,BEL_df$Tau_dl,DNK_df$Tau_dl,FIN_df$Tau_dl,FRA_df$Tau_dl,GRC_df$Tau_dl,IRL_df$Tau_dl,ITA_df$Tau_dl,LUX_df$Tau_dl,NLD_df$Tau_dl,PRT_df$Tau_dl,ESP_df$Tau_dl,SWE_df$Tau_dl,GBR_df$Tau_dl,DEU_df$Tau_dl)
Total_factor_productivity_difflog <- data.frame(Y=as.matrix(Total_factor_productivity_difflog), date=time(Total_factor_productivity_difflog))
colnames(Total_factor_productivity_difflog) <- c("Year","Østrig","Belgium","Danmark","Finland","Frankrig","Grækenland","Irland","Italien","Luxemborg","Holland","Portugal","Spanien","Sverige","Storbritannien","Tyskland")
Total_factor_productivity_difflog <- Total_factor_productivity_difflog[1:61,]
meltedTotal_factor_productivity_difflog = melt(Total_factor_productivity_difflog[1:16], id = "Year")
ggplot(meltedTotal_factor_productivity_difflog, aes(x = Year, y = value, colour = variable)) +
geom_line() +
ylab(label="Total_factor_productivity_difflog") +
xlab("Year")
AUT_df[!complete.cases(AUT_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.7256254 -0.3207214 NA 0.2743746 -1.2932610 NA
## 1961 0.7239438 -0.3230415 -0.002320152 0.2760562 -1.2871508 0.006110179
## 1962 0.7357610 -0.3068499 0.016191616 0.2642390 -1.3309014 -0.043750593
## 1963 0.7310768 -0.3132368 -0.006386871 0.2689232 -1.3133294 0.017571976
## 1964 0.7334377 -0.3100126 0.003224132 0.2665623 -1.3221473 -0.008817819
## 1965 0.7319154 -0.3120903 -0.002077668 0.2680846 -1.3164528 0.005694458
## 2019 0.6260351 -0.4683488 0.006421170 0.3739649 -0.9835933 -0.010657909
## 2020 0.6251904 -0.4696990 -0.001350188 0.3748096 -0.9813371 0.002256208
## 2021 0.6263528 -0.4678416 0.001857472 0.3736472 -0.9844431 -0.003106001
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 76.8953 4.342445 NA 8933272468566 29.82080 NA
## 1961 80.9800 4.394202 0.05175745 9354278814080 29.86685 0.04605108
## 1962 82.9215 4.417894 0.02369217 9907350905759 29.92430 0.05744313
## 1963 86.3039 4.457875 0.03998041 10450532998910 29.97767 0.05337598
## 1964 91.5147 4.516500 0.05862483 11134232962396 30.04105 0.06337143
## 1965 94.1302 4.544679 0.02817932 11749810537450 30.09486 0.05381270
## 2019 374.7020 5.926131 0.01572255 NA NA NA
## 2020 354.0442 5.869422 -0.05670928 NA NA NA
## 2021 371.7651 5.918262 0.04884044 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1960 1.75668 75.13862 4.319335 NA 44.4182 3.793649 NA
## 1961 1.99310 78.98690 4.369282 0.04994734 46.6942 3.843620 0.04997066
## 1962 2.15925 80.76225 4.391510 0.02222764 48.2497 3.876390 0.03276965
## 1963 2.34590 83.95800 4.430317 0.03880702 50.9175 3.930207 0.05381707
## 1964 2.63795 88.87675 4.487251 0.05693390 52.6630 3.963913 0.03370645
## 1965 2.88242 91.24778 4.513579 0.02632808 55.2635 4.012113 0.04819953
## 2019 55.49361 319.20839 5.765844 0.01395298 191.6717 5.255784 0.01389627
## 2020 53.47147 300.57273 5.705690 -0.06015440 182.5673 5.207119 -0.04866514
## 2021 56.25372 315.51138 5.754195 0.04850500 191.4400 5.254574 0.04745557
## 2022 NA NA NA NA NA NA NA
## W W_l W_dl R R_l R_dl
## 1960 54.52249 3.998613 NA 20.61613 3.026074 NA
## 1961 57.18208 4.046241 0.04762719 21.80482 3.082131 0.056057520
## 1962 59.42172 4.084660 0.03841925 21.34053 3.060608 -0.021522955
## 1963 61.37975 4.117080 0.03242015 22.57825 3.116987 0.056378997
## 1964 65.18556 4.177238 0.06015804 23.69119 3.165103 0.048116085
## 1965 66.78566 4.201488 0.02425042 24.46212 3.197126 0.032022543
## 2019 199.83565 5.297495 0.02037415 119.37274 4.782251 0.003295072
## 2020 187.91518 5.235991 -0.06150458 112.65755 4.724353 -0.057898187
## 2021 197.62142 5.286353 0.05036247 117.88996 4.769752 0.045398995
## 2022 NA NA NA NA NA NA
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1960 17.21160 2.845584 NA 3.30813 1.196383 NA 2.64469
## 1961 19.37717 2.964096 0.11851199 3.85243 1.348704 0.15232104 3.10021
## 1962 19.90820 2.991132 0.02703614 4.03305 1.394523 0.04581880 3.23092
## 1963 20.59366 3.024983 0.03385155 4.38616 1.478454 0.08393122 3.50877
## 1964 22.56715 3.116495 0.09151205 4.87514 1.584149 0.10569469 3.86724
## 1965 23.73844 3.167096 0.05060037 5.48371 1.701782 0.11763306 4.36347
## 2019 90.39978 4.504242 0.02862798 97.02811 4.575001 0.04924926 85.22380
## 2020 81.85431 4.404941 -0.09930087 88.79337 4.486312 -0.08868875 76.42119
## 2021 87.51514 4.471812 0.06687085 94.95447 4.553398 0.06708553 82.04948
## 2022 NA NA NA NA NA NA NA
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1960 0.9725539 NA 0.7994517 -0.2238292 NA 13.75984
## 1961 1.1314699 0.15891599 0.8047414 -0.2172343 0.006594952 15.59361
## 1962 1.1727669 0.04129708 0.8011108 -0.2217560 -0.004521720 15.94867
## 1963 1.2552655 0.08249862 0.7999640 -0.2231886 -0.001432593 16.47419
## 1964 1.3525411 0.09727553 0.7932572 -0.2316077 -0.008419167 17.90155
## 1965 1.4732676 0.12072654 0.7957149 -0.2285143 0.003093481 18.88903
## 2019 4.4452807 0.05533616 0.8783413 -0.1297200 0.006086903 79.40186
## 2020 4.3362600 -0.10902072 0.8606632 -0.1500520 -0.020331979 70.44900
## 2021 4.4073225 0.07106247 0.8640929 -0.1460750 0.003976938 75.62121
## 2022 NA NA NA NA NA NA
## I_l I_dl r r_l r_dl P P_l
## 1960 2.621754 NA NA NA NA 16.36998 2.795449
## 1961 2.746861 0.12510695 NA NA NA 17.24669 2.847621
## 1962 2.769376 0.02251442 NA NA NA 17.90530 2.885097
## 1963 2.801795 0.03241896 NA NA NA 18.54220 2.920049
## 1964 2.884888 0.08309288 NA NA NA 19.14571 2.952079
## 1965 2.938581 0.05369385 0.771622 1.22179 NA 20.23595 3.007461
## 2019 4.374522 0.03471488 -1.621633 0.00000 -0.4863231 106.35703 4.666802
## 2020 4.254889 -0.11963285 NA NA NA 107.60710 4.678487
## 2021 4.325737 0.07084778 NA NA NA 108.75249 4.689075
## 2022 NA NA NA NA NA NA NA
## P_dl Pm Pm_l Pm_dl Px Px_l
## 1960 NA 27.61355 3.318307 NA 31.61577 3.453656
## 1961 0.05217135 28.22812 3.340319 0.022011933 32.78156 3.489866
## 1962 0.03747642 28.40090 3.346421 0.006102343 32.90333 3.493574
## 1963 0.03495245 28.64915 3.355124 0.008703020 33.40812 3.508799
## 1964 0.03202934 29.13785 3.372038 0.016914144 34.29642 3.535041
## 1965 0.05538209 29.70072 3.391171 0.019133238 35.25322 3.562557
## 2019 0.01694908 104.44071 4.648620 0.006281889 103.05591 4.635272
## 2020 0.01168502 102.77412 4.632534 -0.016086037 101.30548 4.618141
## 2021 0.01058792 103.20387 4.636706 0.004172825 101.81201 4.623128
## 2022 NA NA NA NA NA NA
## Px_dl X X_l X_dl M M_l
## 1960 NA 8.5168 2.142041 NA 10.4162 2.343362
## 1961 0.036210386 8.9977 2.196969 0.05492831 10.7044 2.370655
## 1962 0.003707447 9.8819 2.290705 0.09373581 11.2033 2.416208
## 1963 0.015225115 10.5874 2.359665 0.06895981 12.2737 2.507459
## 1964 0.026242237 11.1696 2.413196 0.05353119 13.6081 2.610665
## 1965 0.027515658 11.9664 2.482103 0.06890692 15.0443 2.710999
## 2019 0.003864065 215.2062 5.371597 0.02693113 198.7750 5.292174
## 2020 -0.017131073 188.2023 5.237517 -0.13407919 177.2120 5.177347
## 2021 0.004987541 207.6474 5.335841 0.09832400 193.2094 5.263775
## 2022 NA NA NA NA NA NA
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1960 NA 0.7090484 -0.3438314 NA 11.60711 2.451618
## 1961 0.02729259 0.7061259 -0.3479617 -0.004130265 12.17834 2.499659
## 1962 0.04555351 0.7166020 -0.3332346 0.014727087 12.83098 2.551862
## 1963 0.09125038 0.7112048 -0.3407949 -0.007560262 13.18730 2.579254
## 1964 0.10320644 0.7122960 -0.3392617 0.001533210 13.63741 2.612817
## 1965 0.10033398 0.7095030 -0.3431906 -0.003928898 14.35747 2.664270
## 2019 0.02751533 0.5333189 -0.6286357 0.004651600 56.72221 4.038166
## 2020 -0.11482678 0.5307676 -0.6334310 -0.004795304 57.11436 4.045056
## 2021 0.08642782 0.5315760 -0.6319090 0.001522030 57.81022 4.057166
## 2022 NA NA NA NA NA NA
## ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm
## 1960 NA 50.86872 3.929248 NA NA NA
## 1961 0.04804109 52.46886 3.960220 0.030971556 0.0141984525 0.030159417
## 1962 0.05220351 52.80409 3.966589 0.006368885 -0.0023948953 0.031374076
## 1963 0.02739218 54.33431 3.995156 0.028567221 0.0065220951 0.026249427
## 1964 0.03356255 56.73544 4.038399 0.043243107 0.0093280925 0.015115201
## 1965 0.05145320 57.61425 4.053770 0.015370904 0.0083824206 0.036248855
## 2019 0.02160068 102.35448 4.628442 0.001554939 -0.0024178249 0.010667186
## 2020 0.00688972 97.08278 4.575564 -0.052878053 -0.0010450354 0.027771062
## 2021 0.01210995 100.53851 4.610541 0.034976889 0.0008147166 0.006415097
## 2022 NA NA NA NA NA NA
## Trade
## 1960 0.2462179
## 1961 0.2432959
## 1962 0.2542790
## 1963 0.2648907
## 1964 0.2707510
## 1965 0.2869504
## 2019 1.1048278
## 2020 1.0321149
## 2021 1.0782529
## 2022 NA
AUT <- AUT_df[7:59,]
AUT[!complete.cases(AUT),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
AUT %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1966 0.7302082 -0.3144255 -0.002335234 0.2697918 -1.310105 0.006347949
## 1967 0.7369296 -0.3052629 0.009162667 0.2630704 -1.335334 -0.025228880
## 1968 0.7333948 -0.3100712 -0.004808288 0.2666052 -1.321986 0.013347481
## 1969 0.7260672 -0.3201127 -0.010041548 0.2739328 -1.294872 0.027113785
## 1970 0.7024946 -0.3531175 -0.033004806 0.2975054 -1.212323 0.082549431
## 1971 0.7182453 -0.3309441 0.022173387 0.2817547 -1.266718 -0.054395417
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1966 99.4420 4.599575 0.05489563 12461101693283 30.15363 0.05877481
## 1967 102.4329 4.629208 0.02963339 13041361076969 30.19915 0.04551400
## 1968 107.0141 4.672961 0.04375265 13859144991691 30.25997 0.06081937
## 1969 113.7304 4.733831 0.06087013 14662243317079 30.31630 0.05633040
## 1970 121.8313 4.802637 0.06880657 15041941976905 30.34186 0.02556672
## 1971 128.0607 4.852504 0.04986707 15635771387565 30.38058 0.03871890
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1966 3.20887 96.23313 4.566774 0.05319502 57.6582 4.054532 0.04241982
## 1967 3.34135 99.09155 4.596044 0.02927049 59.6729 4.088878 0.03434551
## 1968 3.74026 103.27384 4.637384 0.04133993 62.0636 4.128160 0.03928168
## 1969 4.03963 109.69077 4.697665 0.06028112 63.8764 4.156950 0.02879030
## 1970 4.51467 117.31663 4.764877 0.06721129 66.5363 4.197748 0.04079770
## 1971 5.12365 122.93705 4.811672 0.04679592 71.0063 4.262769 0.06502094
## W W_l W_dl R R_l R_dl It
## 1966 70.27022 4.252348 0.05085979 25.96291 3.256669 0.059542971 25.83622
## 1967 73.02350 4.290781 0.03843315 26.06805 3.260710 0.004041605 25.85506
## 1968 75.74049 4.327313 0.03653164 27.53335 3.315398 0.054687412 26.59323
## 1969 79.64287 4.377553 0.05023958 30.04790 3.402793 0.087394909 27.90011
## 1970 82.41430 4.411759 0.03420649 34.90233 3.552553 0.149760725 30.63815
## 1971 88.29896 4.480728 0.06896930 34.63809 3.544954 -0.007599501 34.86329
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1966 3.251777 0.0846817082 6.08253 1.805421 0.10363885 4.86986 1.583065
## 1967 3.252506 0.0007289431 6.18586 1.822266 0.01684531 4.82290 1.573375
## 1968 3.280657 0.0281503456 6.41611 1.858812 0.03654597 4.99744 1.608926
## 1969 3.328631 0.0479739594 6.83024 1.921360 0.06254780 5.35356 1.677762
## 1970 3.422246 0.0936153330 7.90664 2.067703 0.14634310 6.23408 1.830031
## 1971 3.551434 0.1291884487 9.51107 2.252456 0.18475347 7.50516 2.015591
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1966 0.109797577 0.8006307 -0.2223555 0.0061587282 20.68527 3.029422
## 1967 -0.009689782 0.7796652 -0.2488906 -0.0265350968 20.15829 3.003616
## 1968 0.035550374 0.7788894 -0.2498862 -0.0009955984 20.71318 3.030770
## 1969 0.068835979 0.7838026 -0.2435981 0.0062881819 21.86818 3.085033
## 1970 0.152269254 0.7884613 -0.2376719 0.0059261532 24.15700 3.184574
## 1971 0.185559770 0.7890973 -0.2368656 0.0008062993 27.51053 3.314569
## I_dl r r_l r_dl P P_l
## 1966 0.09084044 3.672955 1.839690 0.61790054 20.86779 3.038207
## 1967 -0.02580615 3.847295 1.867010 0.02732017 21.54553 3.070168
## 1968 0.02715475 4.766787 1.999914 0.13290357 22.15697 3.098152
## 1969 0.05426214 4.659378 1.985270 -0.01464424 22.76258 3.125118
## 1970 0.09954149 2.938292 1.715585 -0.26968514 23.84207 3.171452
## 1971 0.12999475 1.415896 1.395633 -0.31995178 25.32176 3.231664
## P_dl Pm Pm_l Pm_dl Px Px_l
## 1966 0.03074607 30.20869 3.408130 0.016958321 35.89198 3.580514
## 1967 0.03196130 30.65458 3.422782 0.014652525 36.06646 3.585363
## 1968 0.02798411 30.83908 3.428783 0.006000478 36.63989 3.601138
## 1969 0.02696582 32.35130 3.476654 0.047871504 37.57028 3.626213
## 1970 0.04633347 34.36546 3.537052 0.060397922 39.62501 3.679461
## 1971 0.06021259 35.93268 3.581647 0.044595066 41.03117 3.714332
## Px_dl X X_l X_dl M M_l M_dl
## 1966 0.017957088 12.7712 2.547193 0.06508991 16.6063 2.809782 0.09878296
## 1967 0.004849631 13.5144 2.603756 0.05656315 16.9817 2.832136 0.02235415
## 1968 0.015774041 14.6570 2.684918 0.08116225 18.2096 2.901949 0.06981263
## 1969 0.025075839 17.2363 2.847018 0.16209959 19.8516 2.988285 0.08633568
## 1970 0.053247196 20.0798 2.999714 0.15269671 23.2179 3.144924 0.15663892
## 1971 0.034871545 21.3666 3.061829 0.06211462 24.6777 3.205900 0.06097647
## rulc rulc_l rulc_dl ulc ulc_l ulc_dl
## 1966 0.7066453 -0.3472264 -0.004035842 14.74613 2.690980 0.02671023
## 1967 0.7128911 -0.3384267 0.008799762 15.35961 2.731742 0.04076106
## 1968 0.7077618 -0.3456477 -0.007221009 15.68186 2.752505 0.02076310
## 1969 0.7002778 -0.3562782 -0.010630558 15.94013 2.768840 0.01633526
## 1970 0.6764625 -0.3908783 -0.034600077 16.12826 2.780573 0.01173339
## 1971 0.6895086 -0.3717761 0.019102235 17.45957 2.859888 0.07931483
## Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## 1966 60.14964 4.096835 0.04306560 0.0009987675 0.01378775 0.2954235
## 1967 61.63206 4.121182 0.02434665 -0.0098028939 0.01730878 0.2977178
## 1968 63.88342 4.157060 0.03587778 0.0097735632 0.02198363 0.3071240
## 1969 66.89507 4.203125 0.04606533 -0.0227956650 -0.02090569 0.3261037
## 1970 70.29668 4.252725 0.04959931 -0.0071507269 -0.01406445 0.3553906
## 1971 71.94648 4.275923 0.02319801 -0.0097235211 0.01561753 0.3595506
AUT %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1966 0.7302082 -0.3144255 -0.0023352345 0.2697918 -1.3101048 0.0063479488
## 1967 0.7369296 -0.3052629 0.0091626672 0.2630704 -1.3353337 -0.0252288802
## 1968 0.7333948 -0.3100712 -0.0048082883 0.2666052 -1.3219862 0.0133474809
## 1969 0.7260672 -0.3201127 -0.0100415478 0.2739328 -1.2948725 0.0271137846
## 1970 0.7024946 -0.3531175 -0.0330048055 0.2975054 -1.2123230 0.0825494309
## 1971 0.7182453 -0.3309441 0.0221733871 0.2817547 -1.2667184 -0.0543954175
## 1972 0.7080671 -0.3452164 -0.0142722457 0.2919329 -1.2312314 0.0354870375
## 1973 0.7248455 -0.3217968 0.0234195582 0.2751545 -1.2904224 -0.0591909501
## 1974 0.7234502 -0.3237235 -0.0019267329 0.2765498 -1.2853644 0.0050579338
## 1975 0.7550935 -0.2809137 0.0428098833 0.2449065 -1.4068789 -0.1215144565
## 1976 0.7447495 -0.2947074 -0.0137937277 0.2552505 -1.3655098 0.0413691071
## 1977 0.7375652 -0.3044009 -0.0096934633 0.2624348 -1.3377524 0.0277573471
## 1978 0.7541657 -0.2821431 0.0222577163 0.2458343 -1.4030977 -0.0653452353
## 1979 0.7288232 -0.3163241 -0.0341809966 0.2711768 -1.3049842 0.0981134773
## 1980 0.7281737 -0.3172157 -0.0008915888 0.2718263 -1.3025919 0.0023923297
## 1981 0.7321943 -0.3117093 0.0055063795 0.2678057 -1.3174936 -0.0149017633
## 1982 0.7083579 -0.3448058 -0.0330964125 0.2916421 -1.2322280 0.0852655840
## 1983 0.6890603 -0.3724266 -0.0276208038 0.3109397 -1.1681561 0.0640719019
## 1984 0.6955245 -0.3630891 0.0093374568 0.3044755 -1.1891645 -0.0210083853
## 1985 0.6924821 -0.3674728 -0.0043837326 0.3075179 -1.1792221 0.0099424113
## 1986 0.6885638 -0.3731473 -0.0056744695 0.3114362 -1.1665608 0.0126613381
## 1987 0.6868220 -0.3756802 -0.0025328762 0.3131780 -1.1609834 0.0055773448
## 1988 0.6820174 -0.3827001 -0.0070199674 0.3179826 -1.1457585 0.0152248929
## 1989 0.6753973 -0.3924541 -0.0097539942 0.3246027 -1.1251534 0.0206051683
## 1990 0.6737550 -0.3948888 -0.0024346114 0.3262450 -1.1201066 0.0050467521
## 1991 0.6766945 -0.3905354 0.0043533486 0.3233055 -1.1291575 -0.0090508864
## 1992 0.6830690 -0.3811594 0.0093760330 0.3169310 -1.1490713 -0.0199137586
## 1993 0.6882852 -0.3735520 0.0076073827 0.3117148 -1.1656666 -0.0165953638
## 1994 0.6867336 -0.3758089 -0.0022568618 0.3132664 -1.1607013 0.0049653211
## 1995 0.6696854 -0.4009472 -0.0251383304 0.3303146 -1.1077098 0.0529914549
## 1996 0.6649566 -0.4080335 -0.0070863479 0.3350434 -1.0934952 0.0142146896
## 1997 0.6566108 -0.4206638 -0.0126302417 0.3433892 -1.0688909 0.0246042665
## 1998 0.6521350 -0.4275036 -0.0068398680 0.3478650 -1.0559409 0.0129499972
## 1999 0.6520188 -0.4276818 -0.0001781968 0.3479812 -1.0556069 0.0003339761
## 2000 0.6401519 -0.4460497 -0.0183679015 0.3598481 -1.0220734 0.0335335428
## 2001 0.6345172 -0.4548908 -0.0088411078 0.3654828 -1.0065361 0.0155372418
## 2002 0.6303192 -0.4615289 -0.0066380129 0.3696808 -0.9951155 0.0114206715
## 2003 0.6285502 -0.4643394 -0.0028105189 0.3714498 -0.9903416 0.0047738967
## 2004 0.6170934 -0.4827349 -0.0183955090 0.3829066 -0.9599642 0.0303773709
## 2005 0.6077146 -0.4980499 -0.0153150311 0.3922854 -0.9357656 0.0241985487
## 2006 0.6023380 -0.5069366 -0.0088866724 0.3976620 -0.9221528 0.0136128501
## 2007 0.5959448 -0.5176073 -0.0106706881 0.4040552 -0.9062037 0.0159490779
## 2008 0.6067708 -0.4996041 0.0180031678 0.3932292 -0.9333627 -0.0271589873
## 2009 0.6276645 -0.4657496 0.0338545405 0.3723355 -0.9879598 -0.0545971182
## 2010 0.6231149 -0.4730243 -0.0072747186 0.3768851 -0.9758150 0.0121448071
## 2011 0.6175363 -0.4820175 -0.0089931715 0.3824637 -0.9611215 0.0146935308
## 2012 0.6248806 -0.4701946 0.0118228149 0.3751194 -0.9805110 -0.0193894958
## 2013 0.6307595 -0.4608307 0.0093639476 0.3692405 -0.9963070 -0.0157959963
## 2014 0.6298056 -0.4623441 -0.0015133899 0.3701944 -0.9937270 0.0025799796
## 2015 0.6267327 -0.4672351 -0.0048910457 0.3732673 -0.9854605 0.0082664770
## 2016 0.6243728 -0.4710076 -0.0037724568 0.3756272 -0.9791582 0.0063022921
## 2017 0.6212788 -0.4759753 -0.0049677217 0.3787212 -0.9709550 0.0082032032
## 2018 0.6220281 -0.4747700 0.0012052922 0.3779719 -0.9729354 -0.0019803914
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1966 99.4420 4.599575 0.0548956294 12461101693283 30.15363 0.0587748119
## 1967 102.4329 4.629208 0.0296333904 13041361076969 30.19915 0.0455140003
## 1968 107.0141 4.672961 0.0437526514 13859144991691 30.25997 0.0608193748
## 1969 113.7304 4.733831 0.0608701338 14662243317079 30.31630 0.0563304048
## 1970 121.8313 4.802637 0.0688065656 15041941976905 30.34186 0.0255667232
## 1971 128.0607 4.852504 0.0498670693 15635771387565 30.38058 0.0387188959
## 1972 136.0105 4.912732 0.0602277184 16510273186905 30.43500 0.0544214776
## 1973 142.6577 4.960448 0.0477159658 17557901287522 30.49653 0.0615212599
## 1974 148.2838 4.999128 0.0386799507 17765110267562 30.50826 0.0117323721
## 1975 147.7466 4.995499 -0.0036293610 17748286465804 30.50731 -0.0009474623
## 1976 154.5089 5.040252 0.0447530557 18631061749289 30.55585 0.0485412002
## 1977 162.3579 5.089803 0.0495514578 19350955941433 30.59376 0.0379116466
## 1978 162.0159 5.087694 -0.0021086791 20155441610080 30.63450 0.0407324861
## 1979 170.6946 5.139876 0.0521815163 20987005194336 30.67492 0.0404291389
## 1980 173.6502 5.157043 0.0171669361 21300025730957 30.68973 0.0148048348
## 1981 173.3996 5.155599 -0.0014441734 21725631682177 30.70951 0.0197844663
## 1982 176.8871 5.175512 0.0199129184 21708821117384 30.70874 -0.0007740660
## 1983 182.1461 5.204809 0.0292974363 22295029489370 30.73538 0.0266450797
## 1984 182.2395 5.205322 0.0005126438 23318114201622 30.78025 0.0448667313
## 1985 186.7931 5.230002 0.0246798312 24155570921782 30.81554 0.0352845414
## 1986 191.0920 5.252755 0.0227534003 24939309681021 30.84747 0.0319302272
## 1987 193.6854 5.266235 0.0134802058 25815593535048 30.88200 0.0345334493
## 1988 200.0690 5.298662 0.0324271138 27063164707138 30.92919 0.0471948575
## 1989 207.8459 5.336797 0.0381346327 28117913162312 30.96743 0.0382332849
## 1990 216.8781 5.379335 0.0425385048 29000729651919 30.99834 0.0309141378
## 1991 224.3422 5.413173 0.0338371202 29437621231116 31.01329 0.0149524999
## 1992 229.0389 5.433892 0.0207192934 30047650491517 31.03381 0.0205109813
## 1993 230.2455 5.439146 0.0052542728 30410275117282 31.04580 0.0119960773
## 1994 235.7763 5.462883 0.0237373432 31381056813469 31.07723 0.0314238761
## 1995 242.0667 5.489213 0.0263298339 32297449313935 31.10601 0.0287838338
## 1996 247.7542 5.512437 0.0232238176 33255647993824 31.13525 0.0292363587
## 1997 252.9412 5.533157 0.0207199250 34372141729313 31.16827 0.0330217857
## 1998 262.0001 5.568345 0.0351878348 35305980054076 31.19507 0.0268059534
## 1999 271.3177 5.603290 0.0349455735 36456064307688 31.22713 0.0320554617
## 2000 280.4766 5.636490 0.0331998401 37927510626135 31.26670 0.0395689049
## 2001 284.0307 5.649082 0.0125920319 38497888749771 31.28162 0.0149266793
## 2002 288.7216 5.665463 0.0163805711 39081726667602 31.29668 0.0150516070
## 2003 291.4398 5.674833 0.0093705644 39941237888228 31.31843 0.0217543121
## 2004 299.4111 5.701818 0.0269840790 41267138948654 31.35109 0.0326571949
## 2005 306.1301 5.724010 0.0221926295 42449767280713 31.37934 0.0282549144
## 2006 316.7039 5.757967 0.0339570930 43777962281867 31.41015 0.0308091160
## 2007 328.5088 5.794564 0.0365963580 44995582385264 31.43759 0.0274337692
## 2008 333.3064 5.809062 0.0144985611 45163817538808 31.44132 0.0037319536
## 2009 320.7588 5.770689 -0.0383727482 43666599628692 31.40760 -0.0337127700
## 2010 326.6515 5.788894 0.0182044145 44964759614202 31.43690 0.0292955640
## 2011 336.1988 5.817703 0.0288087983 45796339509477 31.45523 0.0183251013
## 2012 338.4865 5.824484 0.0067815581 46385768024861 31.46801 0.0127885240
## 2013 338.5728 5.824739 0.0002549260 47059388537876 31.48243 0.0144177014
## 2014 340.8117 5.831330 0.0065909897 48018403583285 31.50261 0.0201739554
## 2015 344.2692 5.841424 0.0100937841 49142783475351 31.52575 0.0231456639
## 2016 351.4390 5.862036 0.0206122448 49983308778784 31.54271 0.0169591160
## 2017 360.1422 5.886499 0.0244627992 51133580747138 31.56546 0.0227523136
## 2018 368.8568 5.910408 0.0239095394 52277098571264 31.58758 0.0221169505
## Tax Yf Yf_l Yf_dl C C_l
## 1966 3.20887 96.23313 4.566774 0.053195022 57.6582 4.054532
## 1967 3.34135 99.09155 4.596044 0.029270485 59.6729 4.088878
## 1968 3.74026 103.27384 4.637384 0.041339931 62.0636 4.128160
## 1969 4.03963 109.69077 4.697665 0.060281124 63.8764 4.156950
## 1970 4.51467 117.31663 4.764877 0.067211294 66.5363 4.197748
## 1971 5.12365 122.93705 4.811672 0.046795917 71.0063 4.262769
## 1972 6.03785 129.97265 4.867324 0.055651608 75.3236 4.321793
## 1973 7.11675 135.54095 4.909274 0.041949765 79.3699 4.374119
## 1974 7.82601 140.45779 4.944907 0.035633208 81.7447 4.403601
## 1975 8.16344 139.58316 4.938661 -0.006246464 84.3992 4.435558
## 1976 8.75046 145.75844 4.981951 0.043290178 88.2346 4.479999
## 1977 9.80404 152.55386 5.027518 0.045566983 93.9080 4.542316
## 1978 10.13261 151.88329 5.023112 -0.004405317 92.3064 4.525113
## 1979 10.93804 159.75656 5.073651 0.050538760 96.6879 4.571488
## 1980 11.81371 161.83649 5.086587 0.012935348 99.1244 4.596376
## 1981 12.61584 160.78376 5.080060 -0.006526148 100.3886 4.609049
## 1982 13.32320 163.56390 5.097204 0.017143383 102.3192 4.628097
## 1983 14.25381 167.89229 5.123323 0.026118903 107.8795 4.681015
## 1984 15.75053 166.48897 5.114929 -0.008393582 105.5842 4.659509
## 1985 16.42699 170.36611 5.137950 0.023020649 107.4962 4.677455
## 1986 17.03711 174.05489 5.159371 0.021421000 109.8536 4.699149
## 1987 17.71631 175.96909 5.170308 0.010937645 112.5096 4.723039
## 1988 18.72861 181.34039 5.200376 0.030067518 115.2187 4.746832
## 1989 19.91350 187.93240 5.236082 0.035706451 119.3530 4.782085
## 1990 20.93549 195.94261 5.277822 0.041739487 124.4074 4.823562
## 1991 22.49080 201.85140 5.307532 0.029709973 128.1334 4.853072
## 1992 23.83168 205.20722 5.324020 0.016488515 132.5915 4.887273
## 1993 24.78178 205.46372 5.325269 0.001249175 132.7319 4.888331
## 1994 26.18177 209.59453 5.345175 0.019905381 135.4437 4.908556
## 1995 26.10627 215.96043 5.375095 0.029920342 136.5982 4.917044
## 1996 27.63164 220.12256 5.394184 0.019089286 140.6128 4.946010
## 1997 29.05485 223.88635 5.411139 0.016954075 141.2035 4.950202
## 1998 30.05098 231.94912 5.446518 0.035379480 145.3058 4.978840
## 1999 31.37845 239.93925 5.480386 0.033867729 148.8186 5.002728
## 2000 32.02227 248.45433 5.515259 0.034873280 153.4565 5.033417
## 2001 32.88781 251.14289 5.526022 0.010763014 155.4221 5.046145
## 2002 34.02022 254.70138 5.540092 0.014069740 156.4821 5.052942
## 2003 34.42558 257.01422 5.549131 0.009039614 159.2093 5.070220
## 2004 35.62320 263.78790 5.575145 0.026013957 162.9044 5.093164
## 2005 36.60296 269.52714 5.596669 0.021523719 166.5672 5.115399
## 2006 37.49685 279.20705 5.631954 0.035284531 170.0524 5.136107
## 2007 39.39558 289.11322 5.666818 0.034864755 171.9293 5.147083
## 2008 41.11726 292.18914 5.677401 0.010582956 173.5563 5.156502
## 2009 41.48328 279.27552 5.632199 -0.045202511 175.0327 5.164973
## 2010 42.62592 284.02558 5.649064 0.016865483 176.7732 5.174868
## 2011 44.89381 291.30499 5.674371 0.025306489 179.1509 5.188228
## 2012 46.77901 291.70749 5.675752 0.001380760 180.0860 5.193435
## 2013 47.30677 291.26603 5.674237 -0.001514512 179.9437 5.192644
## 2014 48.18694 292.62476 5.678891 0.004654064 180.4901 5.195676
## 2015 49.90653 294.36267 5.684813 0.005921473 181.3708 5.200544
## 2016 51.72465 299.71435 5.702830 0.018017276 184.3040 5.216587
## 2017 52.75709 307.38511 5.728101 0.025271537 186.9200 5.230681
## 2018 54.07139 314.78541 5.751891 0.023789777 189.0266 5.241888
## C_dl W W_l W_dl R R_l
## 1966 0.0424198198 70.27022 4.252348 0.0508597872 25.96291 3.256669
## 1967 0.0343455067 73.02350 4.290781 0.0384331525 26.06805 3.260710
## 1968 0.0392816847 75.74049 4.327313 0.0365316425 27.53335 3.315398
## 1969 0.0287903004 79.64287 4.377553 0.0502395763 30.04790 3.402793
## 1970 0.0407976973 82.41430 4.411759 0.0342064882 34.90233 3.552553
## 1971 0.0650209421 88.29896 4.480728 0.0689693040 34.63809 3.544954
## 1972 0.0590248932 92.02936 4.522108 0.0413793622 37.94329 3.636093
## 1973 0.0523257045 98.24624 4.587477 0.0653693232 37.29471 3.618851
## 1974 0.0294817727 101.61422 4.621183 0.0337064750 38.84357 3.659543
## 1975 0.0319569470 105.39834 4.657747 0.0365634194 34.18482 3.531782
## 1976 0.0444412535 108.55352 4.687243 0.0294964505 37.20492 3.616441
## 1977 0.0623164033 112.51841 4.723117 0.0358735198 40.03545 3.689765
## 1978 -0.0172021014 114.54517 4.740969 0.0178523992 37.33812 3.620015
## 1979 0.0463747871 116.43428 4.757327 0.0163577630 43.32228 3.768667
## 1980 0.0248873616 117.84507 4.769371 0.0120437591 43.99142 3.783995
## 1981 0.0126730280 117.72496 4.768351 -0.0010197684 43.05880 3.762567
## 1982 0.0190486836 115.86179 4.752398 -0.0159530295 47.70211 3.864976
## 1983 0.0529175248 115.68790 4.750896 -0.0015019007 52.20439 3.955167
## 1984 -0.0215061246 115.79715 4.751840 0.0009438749 50.69182 3.925765
## 1985 0.0179467592 117.97549 4.770477 0.0186369161 52.39062 3.958728
## 1986 0.0216930721 119.84790 4.786223 0.0157465301 54.20699 3.992810
## 1987 0.0238899811 120.85943 4.794628 0.0084047692 55.10966 4.009325
## 1988 0.0237935101 123.67730 4.817676 0.0230475509 57.66309 4.054617
## 1989 0.0352534271 126.92904 4.843628 0.0259524567 61.00336 4.110929
## 1990 0.0414761754 132.01731 4.882933 0.0393048751 63.92530 4.157715
## 1991 0.0295102447 136.59173 4.916996 0.0340633215 65.25967 4.178374
## 1992 0.0342010644 140.17069 4.942861 0.0258645478 65.03653 4.174949
## 1993 0.0010583312 141.41764 4.951717 0.0088565581 64.04608 4.159603
## 1994 0.0202247515 143.93560 4.969366 0.0176485197 65.65893 4.184474
## 1995 0.0084877141 144.62555 4.974148 0.0047820113 71.33488 4.267385
## 1996 0.0289662437 146.37195 4.986151 0.0120029378 73.75061 4.300689
## 1997 0.0041920986 147.00620 4.990475 0.0043238332 76.88015 4.342248
## 1998 0.0286383749 151.26215 5.019014 0.0285396123 80.68697 4.390577
## 1999 0.0238876274 156.44491 5.052704 0.0336895323 83.49434 4.424779
## 2000 0.0306890247 159.04852 5.069209 0.0165053782 89.40581 4.493186
## 2001 0.0127275022 159.35449 5.071131 0.0019219063 91.78840 4.519486
## 2002 0.0067969850 160.54318 5.078563 0.0074317271 94.15820 4.544976
## 2003 0.0172780623 161.54634 5.084792 0.0062290951 95.46788 4.558790
## 2004 0.0229438369 162.78177 5.092410 0.0076184480 101.00613 4.615181
## 2005 0.0222353059 163.79558 5.098619 0.0062086880 105.73156 4.660903
## 2006 0.0207077933 168.17701 5.125017 0.0263978586 111.03004 4.709801
## 2007 0.0109767209 172.29551 5.149211 0.0241940667 116.81771 4.760615
## 2008 0.0094186966 177.29185 5.177797 0.0285861240 114.89729 4.744039
## 2009 0.0084707712 175.29132 5.166449 -0.0113479704 103.98420 4.644239
## 2010 0.0098947414 176.98058 5.176040 0.0095907645 107.04500 4.673249
## 2011 0.0133609125 179.89140 5.192353 0.0163133179 111.41359 4.713249
## 2012 0.0052060471 182.28236 5.205557 0.0132035746 109.42513 4.695241
## 2013 -0.0007904904 183.71880 5.213406 0.0078494359 107.54723 4.677930
## 2014 0.0030319044 184.29671 5.216547 0.0031406738 108.32805 4.685164
## 2015 0.0048676259 184.48671 5.217577 0.0010304272 109.87596 4.699352
## 2016 0.0160430137 187.13350 5.231822 0.0142448191 112.58085 4.723672
## 2017 0.0140941496 190.97186 5.252126 0.0203038154 116.41325 4.757146
## 2018 0.0112070281 195.80537 5.277121 0.0249950694 118.98004 4.778956
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1966 0.059542971 25.83622 3.251777 0.0846817082 6.08253 1.805421
## 1967 0.004041605 25.85506 3.252506 0.0007289431 6.18586 1.822266
## 1968 0.054687412 26.59323 3.280657 0.0281503456 6.41611 1.858812
## 1969 0.087394909 27.90011 3.328631 0.0479739594 6.83024 1.921360
## 1970 0.149760725 30.63815 3.422246 0.0936153330 7.90664 2.067703
## 1971 -0.007599501 34.86329 3.551434 0.1291884487 9.51107 2.252456
## 1972 0.091138645 39.09483 3.665990 0.1145558200 11.78999 2.467251
## 1973 -0.017241185 39.23133 3.669476 0.0034854291 12.60848 2.534370
## 1974 0.040691142 40.78830 3.708395 0.0389196133 14.29671 2.660029
## 1975 -0.127760920 38.76851 3.657608 -0.0507869564 14.23162 2.655466
## 1976 0.084659285 40.24869 3.695077 0.0374691376 15.35359 2.731349
## 1977 0.073324330 43.84376 3.780632 0.0855549486 17.50377 2.862416
## 1978 -0.069750552 41.00595 3.713717 -0.0669152273 17.22398 2.846303
## 1979 0.148652237 43.39493 3.770343 0.0566254359 19.08944 2.949135
## 1980 0.015327678 44.83690 3.803031 0.0326888471 21.06219 3.047479
## 1981 -0.021427911 44.81183 3.802472 -0.0005592941 22.36990 3.107716
## 1982 0.102408967 41.08134 3.715554 -0.0869181633 21.68736 3.076730
## 1983 0.090190805 40.90472 3.711245 -0.0043085440 22.29382 3.104310
## 1984 -0.029401967 40.80445 3.708791 -0.0024543157 22.91774 3.131911
## 1985 0.032963060 43.32681 3.768772 0.0599804679 24.84264 3.212562
## 1986 0.034082338 44.14397 3.787456 0.0186847259 25.93525 3.255603
## 1987 0.016514990 46.07326 3.830233 0.0427764004 27.57386 3.316868
## 1988 0.045292411 49.32651 3.898462 0.0682289264 29.81002 3.394845
## 1989 0.056311619 51.52693 3.942105 0.0436429189 32.21375 3.472393
## 1990 0.046786239 54.35696 3.995573 0.0534680806 34.89283 3.552281
## 1991 0.020659087 58.87928 4.075489 0.0799165818 38.99318 3.663387
## 1992 -0.003425244 58.95992 4.076858 0.0013686449 40.55350 3.702622
## 1993 -0.015346188 58.23828 4.064543 -0.0123150205 41.06592 3.715179
## 1994 0.024870703 61.23512 4.114721 0.0501780106 44.20105 3.788749
## 1995 0.082911797 61.35265 4.116638 0.0019174839 44.68035 3.799534
## 1996 0.033303975 64.03728 4.159465 0.0428270488 47.08066 3.851862
## 1997 0.041558341 64.51121 4.166839 0.0073735934 47.97247 3.870627
## 1998 0.048329477 66.72389 4.200563 0.0337240526 50.00991 3.912221
## 1999 0.034201705 67.54174 4.212746 0.0121827174 50.87956 3.929461
## 2000 0.068406822 71.47847 4.269396 0.0566505083 54.70821 4.002014
## 2001 0.026300256 70.68466 4.258229 -0.0111677092 54.68277 4.001549
## 2002 0.025490412 68.65904 4.229153 -0.0290757702 53.35209 3.976913
## 2003 0.013813511 71.29743 4.266860 0.0377074759 55.89767 4.023523
## 2004 0.056391328 71.96806 4.276222 0.0093621276 57.17361 4.046092
## 2005 0.045722268 72.14998 4.278747 0.0025245985 58.56967 4.070217
## 2006 0.048897381 72.98022 4.290188 0.0114414375 60.53035 4.103145
## 2007 0.050813833 76.36965 4.335585 0.0453969204 65.07931 4.175607
## 2008 -0.016576031 77.59683 4.351527 0.0159412099 68.37739 4.225042
## 2009 -0.099799629 72.02721 4.277044 -0.0744826115 64.55933 4.167585
## 2010 0.029010290 70.16420 4.250838 -0.0262057548 63.90398 4.157382
## 2011 0.040000020 74.83000 4.315219 0.0643806647 69.69123 4.244074
## 2012 -0.018008736 75.50789 4.324237 0.0090182800 72.17266 4.279061
## 2013 -0.017310508 76.68890 4.339757 0.0155198241 74.62955 4.312537
## 2014 0.007234043 76.37988 4.335719 -0.0040376675 75.49274 4.324036
## 2015 0.014187950 78.13778 4.358474 0.0227543680 78.13778 4.358474
## 2016 0.024319568 81.31263 4.398301 0.0398276764 82.53461 4.413218
## 2017 0.033474740 84.52567 4.437055 0.0387539202 87.12569 4.467352
## 2018 0.021809386 87.84851 4.475614 0.0385585785 92.36531 4.525751
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1966 0.1036388487 4.86986 1.583065 0.1097975769 0.8006307 -0.2223555
## 1967 0.0168453144 4.82290 1.573375 -0.0096897824 0.7796652 -0.2488906
## 1968 0.0365459728 4.99744 1.608926 0.0355503744 0.7788894 -0.2498862
## 1969 0.0625477970 5.35356 1.677762 0.0688359789 0.7838026 -0.2435981
## 1970 0.1463431007 6.23408 1.830031 0.1522692539 0.7884613 -0.2376719
## 1971 0.1847534706 7.50516 2.015591 0.1855597699 0.7890973 -0.2368656
## 1972 0.2147944830 9.37421 2.237962 0.2223715177 0.7950991 -0.2292886
## 1973 0.0671187371 10.05045 2.307617 0.0696551080 0.7971183 -0.2267522
## 1974 0.1256598374 11.28474 2.423451 0.1158339609 0.7893243 -0.2365781
## 1975 -0.0045631913 11.01159 2.398948 -0.0245030161 0.7737411 -0.2565179
## 1976 0.0758830733 12.13083 2.495750 0.0968017915 0.7900973 -0.2355992
## 1977 0.1310669634 13.98155 2.637739 0.1419884573 0.7987736 -0.2246777
## 1978 -0.0161136874 13.40671 2.595755 -0.0419832754 0.7783747 -0.2505473
## 1979 0.1028327037 15.15569 2.718376 0.1226207111 0.7939306 -0.2307593
## 1980 0.0983441873 17.03997 2.835562 0.1171857218 0.8090313 -0.2119177
## 1981 0.0602368153 18.18150 2.900405 0.0648428328 0.8127663 -0.2073117
## 1982 -0.0309867029 17.56646 2.865991 -0.0344131915 0.8099861 -0.2107382
## 1983 0.0275799077 18.08108 2.894866 0.0288746856 0.8110355 -0.2094434
## 1984 0.0276017731 18.59400 2.922839 0.0279728603 0.8113365 -0.2090723
## 1985 0.0806502485 20.38140 3.014623 0.0917837722 0.8204201 -0.1979388
## 1986 0.0430415156 21.06905 3.047805 0.0331824188 0.8123712 -0.2077979
## 1987 0.0612651752 22.86068 3.129418 0.0816132652 0.8290707 -0.1874498
## 1988 0.0779763561 25.05430 3.221045 0.0916270653 0.8404657 -0.1737991
## 1989 0.0775488014 27.11078 3.299931 0.0788859653 0.8415903 -0.1724619
## 1990 0.0798879839 29.53112 3.385445 0.0855131878 0.8463378 -0.1668367
## 1991 0.1111053951 33.13312 3.500533 0.1150887638 0.8497158 -0.1628534
## 1992 0.0392353310 34.37243 3.537255 0.0367214032 0.8475823 -0.1653673
## 1993 0.0125564904 34.40635 3.538241 0.0009863508 0.8378322 -0.1769374
## 1994 0.0735699640 37.15286 3.615041 0.0767996130 0.8405425 -0.1737078
## 1995 0.0107852632 37.77291 3.631592 0.0165514256 0.8454032 -0.1679416
## 1996 0.0523284933 40.34603 3.697493 0.0659008217 0.8569555 -0.1543693
## 1997 0.0187650037 42.40320 3.747224 0.0497308303 0.8839070 -0.1234035
## 1998 0.0415938811 44.32837 3.791625 0.0444010473 0.8863917 -0.1205963
## 1999 0.0172400854 45.09053 3.808672 0.0170473682 0.8862209 -0.1207890
## 2000 0.0725525184 49.03533 3.892541 0.0838688121 0.8963066 -0.1094727
## 2001 -0.0004651206 49.35631 3.899066 0.0065245612 0.9025934 -0.1024830
## 2002 -0.0246355167 47.40402 3.858707 -0.0403585847 0.8885129 -0.1182061
## 2003 0.0466095455 50.13917 3.914803 0.0560955037 0.8969814 -0.1087202
## 2004 0.0225697306 51.34757 3.938618 0.0238150740 0.8980991 -0.1074748
## 2005 0.0241245575 51.12961 3.934364 -0.0042538315 0.8729708 -0.1358532
## 2006 0.0329279063 52.83737 3.967219 0.0328549241 0.8729071 -0.1359262
## 2007 0.0724617878 56.62291 4.036414 0.0691949681 0.8700601 -0.1391930
## 2008 0.0494355345 58.85950 4.075153 0.0387395744 0.8608035 -0.1498890
## 2009 -0.0574575685 54.85310 4.004659 -0.0704945451 0.8496541 -0.1629259
## 2010 -0.0102030017 54.29055 3.994350 -0.0103085243 0.8495645 -0.1630315
## 2011 0.0866928406 60.30322 4.099386 0.1050353233 0.8652914 -0.1446890
## 2012 0.0349868189 62.81479 4.140191 0.0408050533 0.8703405 -0.1388707
## 2013 0.0334752376 64.77810 4.170968 0.0307770280 0.8679953 -0.1415690
## 2014 0.0114999513 65.64258 4.184225 0.0132569875 0.8695218 -0.1398119
## 2015 0.0344371860 67.87683 4.217695 0.0334701685 0.8686813 -0.1407789
## 2016 0.0547440418 71.89074 4.275147 0.0574527272 0.8710375 -0.1380703
## 2017 0.0541340682 75.64696 4.326077 0.0509297879 0.8682509 -0.1412745
## 2018 0.0583996865 80.63595 4.389945 0.0638673255 0.8730112 -0.1358069
## Ips_dl I I_l I_dl r r_l
## 1966 0.00615872821 20.68527 3.029422 0.090840436 3.6729549 1.8396902
## 1967 -0.02653509677 20.15829 3.003616 -0.025806154 3.8472948 1.8670104
## 1968 -0.00099559837 20.71318 3.030770 0.027154747 4.7667873 1.9999140
## 1969 0.00628818186 21.86818 3.085033 0.054262141 4.6593779 1.9852697
## 1970 0.00592615322 24.15700 3.184574 0.099541486 2.9382917 1.7155846
## 1971 0.00080629927 27.51053 3.314569 0.129994748 1.4158956 1.3956328
## 1972 0.00757703466 31.08426 3.436702 0.122132855 -0.2043980 0.8826244
## 1973 0.00253637090 31.27201 3.442723 0.006021800 0.1862377 1.0324265
## 1974 -0.00982587646 32.19519 3.471817 0.029093737 0.2187751 1.0439478
## 1975 -0.01993982484 29.99679 3.401090 -0.070726781 2.9624891 1.7199273
## 1976 0.02091871823 31.80038 3.459478 0.058387856 2.9565279 1.7188592
## 1977 0.01092149394 35.02124 3.555955 0.096476443 3.3567799 1.7881552
## 1978 -0.02586958803 31.91799 3.463170 -0.092784815 2.0916309 1.5503807
## 1979 0.01978800742 34.45256 3.539583 0.076413443 3.6936543 1.8429733
## 1980 0.01884153451 36.27445 3.591114 0.051530382 3.5417205 1.8186211
## 1981 0.00460601744 36.42154 3.595160 0.004046723 3.6482963 1.8357651
## 1982 -0.00342648863 33.27531 3.504816 -0.090344652 4.3326722 1.9393609
## 1983 0.00129477793 33.17518 3.501802 -0.003013766 4.5395718 1.9686783
## 1984 0.00037108721 33.10614 3.499719 -0.002083229 2.9254264 1.7132680
## 1985 0.01113352373 35.54618 3.570833 0.071113992 4.6686659 1.9865446
## 1986 -0.00985909687 35.86129 3.579658 0.008825629 4.3603336 1.9433307
## 1987 0.02034808996 38.19799 3.642783 0.063124490 4.4642647 1.9581066
## 1988 0.01365070916 41.45724 3.724663 0.081879636 5.2529313 2.0636379
## 1989 0.00133716385 43.36457 3.769643 0.044980083 4.0647266 1.9000696
## 1990 0.00562520386 46.00435 3.828736 0.059093284 5.6022767 2.1070458
## 1991 0.00398336871 50.03065 3.912636 0.083899951 4.7453103 1.9970029
## 1992 -0.00251392777 49.97339 3.911491 -0.001145283 3.7600846 1.8534373
## 1993 -0.01157013961 48.79391 3.887605 -0.023885160 3.8371255 1.8654371
## 1994 0.00322964902 51.47072 3.941013 0.053407660 4.3941074 1.9481563
## 1995 0.00576616244 51.86773 3.948697 0.007683646 5.2311951 2.0608738
## 1996 0.01357232842 54.87710 4.005096 0.056399377 5.2817060 2.0672854
## 1997 0.03096582659 57.02191 4.043436 0.038339420 4.3577914 1.9429665
## 1998 0.00280716622 59.14350 4.079967 0.036531219 4.2493168 1.9273024
## 1999 -0.00019271717 59.85690 4.091957 0.011990000 4.4123393 1.9507516
## 2000 0.01131629370 64.06662 4.159924 0.067966802 4.1394947 1.9111897
## 2001 0.00698968183 63.79951 4.155746 -0.004178027 3.0730589 1.7395345
## 2002 -0.01572306797 61.00444 4.110947 -0.044798838 3.7712016 1.8551778
## 2003 0.00948595823 63.95247 4.158140 0.047193434 2.7958897 1.6896387
## 2004 0.00124534344 64.63445 4.168748 0.010607471 2.3494081 1.6036293
## 2005 -0.02837838902 62.98482 4.142894 -0.025853790 0.8311139 1.2391702
## 2006 -0.00007298227 63.70495 4.154262 0.011368455 1.8724099 1.5027528
## 2007 -0.00326681970 66.44618 4.196392 0.042130101 2.0336531 1.5380034
## 2008 -0.01069596006 66.79563 4.201638 0.005245250 2.3575563 1.6052671
## 2009 -0.01303697667 61.19821 4.114118 -0.087519588 2.0127104 1.5334946
## 2010 -0.00010552255 59.60901 4.087807 -0.026311277 2.3365457 1.6010385
## 2011 0.01834248271 64.74975 4.170530 0.082723147 1.4598252 1.4064544
## 2012 0.00581823439 65.71758 4.185366 0.014836514 0.3094083 1.0753578
## 2013 -0.00269820958 66.56561 4.198188 0.012821615 0.3799421 1.0991373
## 2014 0.00175703617 66.41397 4.195907 -0.002280631 -0.6711059 0.6680997
## 2015 -0.00096701752 67.87683 4.217695 0.021787350 -1.5160937 0.1003335
## 2016 0.00270868539 70.82635 4.260231 0.042536362 -1.2665087 0.3038933
## 2017 -0.00320428027 73.38949 4.295781 0.035549640 -0.5466102 0.7299722
## 2018 0.00546763893 76.69273 4.339807 0.044026217 -0.9953078 0.4863231
## r_dl P P_l P_dl Pm Pm_l
## 1966 0.617900536 20.86779 3.038207 0.030746075 30.20869 3.408130
## 1967 0.027320175 21.54553 3.070168 0.031961301 30.65458 3.422782
## 1968 0.132903570 22.15697 3.098152 0.027984111 30.83908 3.428783
## 1969 -0.014644237 22.76258 3.125118 0.026965818 32.35130 3.476654
## 1970 -0.269685139 23.84207 3.171452 0.046333470 34.36546 3.537052
## 1971 -0.319951779 25.32176 3.231664 0.060212593 35.93268 3.581647
## 1972 -0.513008414 27.24620 3.304914 0.073249831 36.64331 3.601231
## 1973 0.149802102 29.43918 3.382327 0.077412536 38.14482 3.641390
## 1974 0.011521300 32.23603 3.473085 0.090758384 44.91192 3.804703
## 1975 0.675979458 34.31727 3.535649 0.062563873 46.76363 3.845106
## 1976 -0.001068097 36.24834 3.590394 0.054744830 48.09706 3.873221
## 1977 0.069295995 38.13279 3.641074 0.050680858 50.85389 3.928957
## 1978 -0.237774482 40.41809 3.699278 0.058203032 51.35928 3.938846
## 1979 0.292592598 42.08104 3.739597 0.040319866 54.25133 3.993627
## 1980 -0.024352220 44.42943 3.793902 0.054304734 59.70518 4.089419
## 1981 0.017144049 47.41361 3.858909 0.065007098 64.49249 4.166549
## 1982 0.103595839 49.95275 3.911077 0.052168264 65.78582 4.186404
## 1983 0.029317313 51.68749 3.945216 0.034138386 66.49069 4.197062
## 1984 -0.255410277 54.24591 3.993528 0.048311686 69.21304 4.237189
## 1985 0.273276588 55.85321 4.022727 0.029199528 71.94913 4.275959
## 1986 -0.043213920 57.50144 4.051810 0.029082896 71.53251 4.270152
## 1987 0.014775944 58.90272 4.075887 0.024077240 70.25646 4.252152
## 1988 0.105531284 59.80208 4.091040 0.015153244 71.69917 4.272479
## 1989 -0.163568281 61.57507 4.120257 0.029216644 73.84519 4.301971
## 1990 0.206976152 63.42212 4.149813 0.029555631 74.05416 4.304797
## 1991 -0.110042855 65.73187 4.185584 0.035771229 74.82694 4.315178
## 1992 -0.143565590 68.01875 4.219783 0.034199457 75.26693 4.321041
## 1993 0.011999839 69.89408 4.246981 0.027197588 75.88529 4.329223
## 1994 0.082719134 71.65887 4.271917 0.024935938 76.81341 4.341379
## 1995 0.112717478 72.95870 4.289894 0.017976603 77.82207 4.354425
## 1996 0.006411594 73.67822 4.299707 0.009813742 79.68589 4.378093
## 1997 -0.124318876 74.61172 4.312298 0.012590363 81.09897 4.395670
## 1998 -0.015664099 74.94144 4.316707 0.004409317 81.33404 4.398565
## 1999 0.023449245 75.13355 4.319267 0.002560218 81.83268 4.404677
## 2000 -0.039561899 76.15840 4.332815 0.013548216 84.04539 4.431357
## 2001 -0.171655195 77.64129 4.352099 0.019283919 84.26123 4.433922
## 2002 0.115643270 78.53074 4.363490 0.011390834 83.78583 4.428264
## 2003 -0.165539119 79.55757 4.376481 0.012990779 83.15137 4.420663
## 2004 -0.086009346 80.94165 4.393729 0.017247590 84.55039 4.437348
## 2005 -0.364459160 82.99578 4.418790 0.025061267 86.90556 4.464822
## 2006 0.263582589 84.56620 4.437535 0.018744824 90.03408 4.500188
## 2007 0.035250648 86.44456 4.459503 0.021968671 92.14266 4.523338
## 2008 0.067263714 88.13569 4.478878 0.019374323 95.69505 4.561167
## 2009 -0.071772556 89.80081 4.497594 0.018716392 91.30149 4.514167
## 2010 0.067543945 90.58482 4.506287 0.008692658 95.57771 4.559940
## 2011 -0.194584141 92.24561 4.524455 0.018168059 101.26930 4.617783
## 2012 -0.331096555 94.14055 4.544789 0.020334209 103.14972 4.636182
## 2013 0.023779430 95.66929 4.560897 0.016108440 103.00287 4.634757
## 2014 -0.431037505 97.75078 4.582421 0.021523765 101.86471 4.623646
## 2015 -0.567766295 100.00000 4.605170 0.022749054 100.00000 4.605170
## 2016 0.203559881 101.66763 4.621709 0.016538770 98.66617 4.591742
## 2017 0.426078906 102.81932 4.632973 0.011264341 101.58802 4.620926
## 2018 -0.243649124 104.56956 4.649853 0.016879244 103.78669 4.642338
## Pm_dl Px Px_l Px_dl X X_l
## 1966 0.016958321 35.89198 3.580514 0.01795708815 12.7712 2.547193
## 1967 0.014652525 36.06646 3.585363 0.00484963082 13.5144 2.603756
## 1968 0.006000478 36.63989 3.601138 0.01577404073 14.6570 2.684918
## 1969 0.047871504 37.57028 3.626213 0.02507583925 17.2363 2.847018
## 1970 0.060397922 39.62501 3.679461 0.05324719555 20.0798 2.999714
## 1971 0.044595066 41.03117 3.714332 0.03487154488 21.3666 3.061829
## 1972 0.019583855 42.40650 3.747302 0.03296959538 23.5342 3.158455
## 1973 0.040158977 45.56009 3.819032 0.07173041983 24.8146 3.211432
## 1974 0.163313370 50.65829 3.925103 0.10607075276 27.4725 3.313186
## 1975 0.040402430 53.12610 3.972668 0.04756548623 26.8134 3.288902
## 1976 0.028115269 54.07669 3.990403 0.01773482826 29.7788 3.393797
## 1977 0.055735643 56.75863 4.038808 0.04840454282 30.4918 3.417458
## 1978 0.009889103 57.50751 4.051915 0.01310774922 33.1533 3.501142
## 1979 0.054781705 60.10045 4.096017 0.04410180463 36.9077 3.608420
## 1980 0.095791370 63.89870 4.157299 0.06128175401 38.2665 3.644575
## 1981 0.077129959 67.60029 4.213612 0.05631318918 40.1352 3.692254
## 1982 0.019855557 69.94014 4.247640 0.03402753961 40.1011 3.691404
## 1983 0.010657687 70.43902 4.254747 0.00710768009 40.7363 3.707120
## 1984 0.040127256 73.37416 4.295572 0.04082441846 44.1257 3.787042
## 1985 0.038770108 75.78156 4.327855 0.03228316059 48.0769 3.872802
## 1986 -0.005807325 76.22004 4.333624 0.00576940260 46.1287 3.831435
## 1987 -0.017999743 75.09701 4.318781 -0.01484367461 47.7117 3.865177
## 1988 0.020326896 76.60580 4.338673 0.01989205805 51.6513 3.944515
## 1989 0.029491695 78.48500 4.362907 0.02423466673 57.0974 4.044759
## 1990 0.002825841 79.20604 4.372053 0.00914507450 61.9919 4.127004
## 1991 0.010381208 79.93481 4.381211 0.00915892668 63.8128 4.155954
## 1992 0.005862985 79.88957 4.380645 -0.00056611262 64.6547 4.169061
## 1993 0.008181947 80.21850 4.384754 0.00410884909 63.1204 4.145044
## 1994 0.012156413 81.44617 4.399942 0.01518816255 66.7107 4.200365
## 1995 0.013045776 82.80836 4.416529 0.01658664879 71.5175 4.269942
## 1996 0.023667505 83.54257 4.425356 0.00882727956 74.8348 4.315283
## 1997 0.017577689 84.10509 4.432067 0.00671077574 83.0875 4.419894
## 1998 0.002894393 84.03083 4.431184 -0.00088325806 89.6111 4.495479
## 1999 0.006112062 84.11868 4.432229 0.00104490704 95.3766 4.557833
## 2000 0.026680252 85.51344 4.448674 0.01644487456 108.2759 4.684683
## 2001 0.002564853 85.91428 4.453350 0.00467646799 114.5245 4.740789
## 2002 -0.005657897 86.03550 4.454760 0.00140993283 119.4333 4.782758
## 2003 -0.007601216 86.06957 4.455156 0.00039598484 120.0681 4.788059
## 2004 0.016684986 87.05778 4.466572 0.01141611051 130.4672 4.871122
## 2005 0.027474309 88.76687 4.486014 0.01944142161 139.1630 4.935646
## 2006 0.035366235 90.95574 4.510373 0.02435951722 149.7062 5.008675
## 2007 0.023149835 92.68486 4.529205 0.01883215426 161.0417 5.081663
## 2008 0.037828533 95.06950 4.554608 0.02540299691 164.5374 5.103138
## 2009 -0.046999525 92.42052 4.526349 -0.02825914159 140.8965 4.948026
## 2010 0.045772558 95.16010 4.555561 0.02921169480 159.3977 5.071402
## 2011 0.057843650 99.08311 4.595959 0.04039830324 168.8585 5.129061
## 2012 0.018398290 100.41017 4.609263 0.01330443577 171.2862 5.143336
## 2013 -0.001424722 100.41666 4.609328 0.00006464077 172.3835 5.149722
## 2014 -0.011111332 100.27852 4.607952 -0.00137657737 177.3613 5.178189
## 2015 -0.018475331 100.00000 4.605170 -0.00278134746 182.7693 5.208225
## 2016 -0.013428079 99.48102 4.599967 -0.00520335601 188.3853 5.238489
## 2017 0.029183514 101.13921 4.616498 0.01653108534 197.8453 5.287485
## 2018 0.021412067 102.65846 4.631408 0.01490963878 209.4878 5.344666
## X_dl M M_l M_dl rulc rulc_l
## 1966 0.0650899134 16.6063 2.809782 0.098782960 0.7066453 -0.3472264
## 1967 0.0565631478 16.9817 2.832136 0.022354152 0.7128911 -0.3384267
## 1968 0.0811622534 18.2096 2.901949 0.069812634 0.7077618 -0.3456477
## 1969 0.1620995880 19.8516 2.988285 0.086335681 0.7002778 -0.3562782
## 1970 0.1526967096 23.2179 3.144924 0.156638924 0.6764625 -0.3908783
## 1971 0.0621146205 24.6777 3.205900 0.060976469 0.6895086 -0.3717761
## 1972 0.0966257272 27.6751 3.320533 0.114633090 0.6766342 -0.3906244
## 1973 0.0529775073 30.3189 3.411771 0.091238188 0.6886852 -0.3729711
## 1974 0.1017533147 32.4126 3.478547 0.066775956 0.6852685 -0.3779445
## 1975 -0.0242837418 30.9058 3.430944 -0.047603368 0.7133724 -0.3377518
## 1976 0.1048949684 36.2888 3.591509 0.160565285 0.7025713 -0.3530084
## 1977 0.0236610641 39.3521 3.672549 0.081040187 0.6930270 -0.3666863
## 1978 0.0836844642 38.9553 3.662415 -0.010134506 0.7069996 -0.3467252
## 1979 0.1072779422 42.9467 3.759960 0.097544977 0.6821205 -0.3825490
## 1980 0.0361546384 45.3979 3.815466 0.055506037 0.6786348 -0.3876721
## 1981 0.0476789149 45.1227 3.809385 -0.006080403 0.6789229 -0.3872477
## 1982 -0.0008499894 43.4852 3.772421 -0.036964796 0.6550042 -0.4231137
## 1983 0.0157158215 45.3015 3.813340 0.040919494 0.6351380 -0.4539130
## 1984 0.0799227923 48.3110 3.877659 0.064319133 0.6354119 -0.4534818
## 1985 0.0857594331 50.9865 3.931561 0.053901614 0.6315838 -0.4595247
## 1986 -0.0413664963 49.1809 3.895505 -0.036055555 0.6271738 -0.4665316
## 1987 0.0337413349 51.0661 3.933121 0.037615535 0.6239987 -0.4716070
## 1988 0.0793387138 55.8880 4.023350 0.090228816 0.6181732 -0.4809866
## 1989 0.1002432168 61.5652 4.120097 0.096747088 0.6106882 -0.4931688
## 1990 0.0822451499 66.4784 4.196877 0.076780307 0.6087167 -0.4964024
## 1991 0.0289500658 69.8783 4.246755 0.049878075 0.6088544 -0.4961762
## 1992 0.0131070045 71.3570 4.267695 0.020940289 0.6119951 -0.4910309
## 1993 -0.0240167881 67.4399 4.211237 -0.056458616 0.6142037 -0.4874286
## 1994 0.0553213462 74.4075 4.309557 0.098319912 0.6104753 -0.4935175
## 1995 0.0695768152 78.8011 4.366927 0.057370213 0.5974616 -0.5150653
## 1996 0.0453408424 82.0878 4.407789 0.040862450 0.5907950 -0.5262862
## 1997 0.1046112519 88.0558 4.477971 0.070181298 0.5811873 -0.5426823
## 1998 0.0755849269 93.1257 4.533950 0.055979489 0.5773362 -0.5493305
## 1999 0.0623540691 96.9102 4.573785 0.039834583 0.5766115 -0.5505865
## 2000 0.1268493339 106.7817 4.670787 0.097001787 0.5670652 -0.5672810
## 2001 0.0561061747 112.3262 4.721407 0.050620575 0.5610467 -0.5779511
## 2002 0.0419692826 112.6528 4.724311 0.002903384 0.5560484 -0.5869000
## 2003 0.0053010253 116.6040 4.758784 0.034473056 0.5543043 -0.5900414
## 2004 0.0830627724 125.9034 4.835515 0.076731368 0.5436731 -0.6094071
## 2005 0.0645240538 132.7715 4.888630 0.053114659 0.5350522 -0.6253910
## 2006 0.0730287988 140.5446 4.945525 0.056895271 0.5310228 -0.6329502
## 2007 0.0729886309 148.4643 5.000345 0.054819649 0.5244776 -0.6453525
## 2008 0.0214745623 149.8810 5.009842 0.009497121 0.5319185 -0.6312650
## 2009 -0.1551123217 132.0464 4.883153 -0.126688270 0.5464895 -0.6042402
## 2010 0.1233767589 147.8517 4.996210 0.113056368 0.5418024 -0.6128538
## 2011 0.0576587490 156.6552 5.054047 0.057837467 0.5350745 -0.6253493
## 2012 0.0142747556 158.1021 5.063241 0.009193815 0.5385218 -0.6189273
## 2013 0.0063858043 159.1994 5.070158 0.006916478 0.5426272 -0.6113328
## 2014 0.0284672490 163.9063 5.099295 0.029137419 0.5407582 -0.6147831
## 2015 0.0300358068 169.8564 5.134953 0.035658451 0.5358792 -0.6238465
## 2016 0.0302646318 176.0588 5.170818 0.035864656 0.5324779 -0.6302139
## 2017 0.0489960786 184.9346 5.220002 0.049184219 0.5302679 -0.6343729
## 2018 0.0571800916 193.3802 5.264658 0.044655950 0.5308439 -0.6332873
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1966 -0.0040358421 14.74613 2.690980 0.02671023258 60.14964 4.096835
## 1967 0.0087997620 15.35961 2.731742 0.04076106282 61.63206 4.121182
## 1968 -0.0072210089 15.68186 2.752505 0.02076310209 63.88342 4.157060
## 1969 -0.0106305575 15.94013 2.768840 0.01633526026 66.89507 4.203125
## 1970 -0.0346000775 16.12826 2.780573 0.01173339277 70.29668 4.252725
## 1971 0.0191022347 17.45957 2.859888 0.07931482775 71.94648 4.275923
## 1972 -0.0188483562 18.43571 2.914290 0.05440147469 74.35750 4.308885
## 1973 0.0176533574 20.27433 3.009355 0.09506589295 75.60996 4.325588
## 1974 -0.0049734756 22.09034 3.095140 0.08578490875 76.55062 4.337952
## 1975 0.0401927804 24.48099 3.197897 0.10275665321 75.18143 4.319904
## 1976 -0.0152566052 25.46705 3.237385 0.03948822468 77.12561 4.345435
## 1977 -0.0136779381 26.42705 3.274388 0.03700292041 79.00764 4.369545
## 1978 0.0199610783 28.57557 3.352552 0.07816411048 77.46744 4.349858
## 1979 -0.0358237533 28.70434 3.357048 0.00449611307 80.16820 4.384127
## 1980 -0.0051231769 30.15136 3.406230 0.04918155726 79.88454 4.380582
## 1981 0.0004244050 32.19018 3.471661 0.06543150301 78.83476 4.367354
## 1982 -0.0358659479 32.71926 3.487964 0.01630231572 80.22950 4.384891
## 1983 -0.0307993370 32.82869 3.491303 0.00333904887 82.13533 4.408368
## 1984 0.0004312312 34.46850 3.540046 0.04874291668 81.47184 4.400257
## 1985 -0.0060429151 35.27598 3.563202 0.02315661300 82.52002 4.413041
## 1986 -0.0070068702 36.06340 3.585278 0.02207602540 83.43739 4.424097
## 1987 -0.0050754366 36.75522 3.604280 0.01900180331 83.71888 4.427465
## 1988 -0.0093795629 36.96804 3.610054 0.00577368158 85.03825 4.443101
## 1989 -0.0121821760 37.60317 3.627088 0.01703446791 86.63057 4.461653
## 1990 -0.0032336297 38.60610 3.653410 0.02632200111 88.20772 4.479694
## 1991 0.0002262013 40.02114 3.689408 0.03599743015 89.32470 4.492278
## 1992 0.0051452544 41.62715 3.728752 0.03934471142 89.79004 4.497474
## 1993 0.0036022853 42.92920 3.759552 0.03079987282 89.51424 4.494398
## 1994 -0.0060888235 43.74597 3.778399 0.01884711458 90.55156 4.505919
## 1995 -0.0215478226 43.59002 3.774828 -0.00357122003 92.08267 4.522687
## 1996 -0.0112208798 43.52873 3.773421 -0.00140713783 92.90017 4.531525
## 1997 -0.0163960918 43.36338 3.769615 -0.00380572888 93.36528 4.536519
## 1998 -0.0066482225 43.26641 3.767376 -0.00223890568 95.03750 4.554272
## 1999 -0.0012560413 43.32287 3.768681 0.00130417626 96.49386 4.569479
## 2000 -0.0166944619 43.18678 3.765534 -0.00314624638 98.05792 4.585558
## 2001 -0.0106701256 43.56039 3.774148 0.00861379335 97.88326 4.583776
## 2002 -0.0089488440 43.66689 3.776590 0.00244199003 98.72557 4.592344
## 2003 -0.0031414693 44.09911 3.786440 0.00984930935 98.40766 4.589119
## 2004 -0.0193656310 44.00580 3.784321 -0.00211804063 99.88820 4.604052
## 2005 -0.0159839415 44.40707 3.793399 0.00907732585 100.62366 4.611387
## 2006 -0.0075592344 44.90658 3.804584 0.01118558940 102.25384 4.627458
## 2007 -0.0124022913 45.33824 3.814151 0.00956637996 104.05824 4.644951
## 2008 0.0140875630 46.88101 3.847613 0.03346188572 103.54599 4.640016
## 2009 0.0270247778 49.07520 3.893354 0.04574117002 99.38465 4.598998
## 2010 -0.0086136501 49.07908 3.893433 0.00007900834 100.27796 4.607946
## 2011 -0.0124954804 49.35827 3.899105 0.00567257892 101.64682 4.621504
## 2012 0.0064220165 50.69674 3.925862 0.02675622504 101.11596 4.616268
## 2013 0.0075945100 51.91276 3.949565 0.02370294992 100.34189 4.608583
## 2014 -0.0034503159 52.85953 3.967638 0.01807344935 99.90305 4.604200
## 2015 -0.0090633569 53.58792 3.981324 0.01368569673 100.00000 4.605170
## 2016 -0.0063674257 54.13577 3.991495 0.01017134475 100.68399 4.611987
## 2017 -0.0041589839 54.52179 3.998600 0.00710535714 101.50724 4.620130
## 2018 0.0010855300 55.51011 4.016565 0.01796477441 102.19544 4.626887
## Tau_dl dPxdPm dPdPm Trade
## 1966 0.0430655991 0.0009987675 0.0137877540 0.2954235
## 1967 0.0243466454 -0.0098028939 0.0173087761 0.2977178
## 1968 0.0358777830 0.0097735632 0.0219836335 0.3071240
## 1969 0.0460653319 -0.0227956650 -0.0209056865 0.3261037
## 1970 0.0495993114 -0.0071507269 -0.0140644522 0.3553906
## 1971 0.0231980101 -0.0097235211 0.0156175271 0.3595506
## 1972 0.0329620252 0.0133857404 0.0536659759 0.3765099
## 1973 0.0167033822 0.0315714429 0.0372535587 0.3864741
## 1974 0.0123641869 -0.0572426173 -0.0725549857 0.4038546
## 1975 -0.0180479726 0.0071630562 0.0221614428 0.3906635
## 1976 0.0255311379 -0.0103804410 0.0266295605 0.4275974
## 1977 0.0241092804 -0.0073311005 -0.0050547848 0.4301848
## 1978 -0.0196869229 0.0032186459 0.0483139289 0.4450711
## 1979 0.0342692879 -0.0106799000 -0.0144618383 0.4678203
## 1980 -0.0035446640 -0.0345096159 -0.0414866357 0.4817985
## 1981 -0.0132282754 -0.0208167700 -0.0121228612 0.4916845
## 1982 0.0175372584 0.0141719826 0.0323127066 0.4725404
## 1983 0.0234769879 -0.0035500073 0.0234806985 0.4723560
## 1984 -0.0081108735 0.0006971628 0.0081844299 0.5072265
## 1985 0.0127835209 -0.0064869478 -0.0095705803 0.5303376
## 1986 0.0110556511 0.0115767277 0.0348902206 0.4987629
## 1987 0.0033679700 0.0031560686 0.0420769831 0.5099909
## 1988 0.0156365869 -0.0004348375 -0.0051736511 0.5375111
## 1989 0.0185515797 -0.0052570278 -0.0002750506 0.5709162
## 1990 0.0180417302 0.0063192333 0.0267297896 0.5923618
## 1991 0.0125835392 -0.0012222816 0.0253900206 0.5959249
## 1992 0.0051960710 -0.0064290976 0.0283364720 0.5938367
## 1993 -0.0030763283 -0.0040730979 0.0190156405 0.5670482
## 1994 0.0115216535 0.0030317499 0.0127795254 0.5985258
## 1995 0.0167674106 0.0035408732 0.0049308270 0.6209801
## 1996 0.0088386460 -0.0148402250 -0.0138537626 0.6333802
## 1997 0.0049940436 -0.0108669137 -0.0049873265 0.6766130
## 1998 0.0177520603 -0.0037776508 0.0015149241 0.6974684
## 1999 0.0152077843 -0.0050671548 -0.0035518443 0.7087145
## 2000 0.0160790376 -0.0102353777 -0.0131320368 0.7667577
## 2001 -0.0017828641 0.0021116155 0.0167190664 0.7986837
## 2002 0.0085684765 0.0070678298 0.0170487310 0.8038404
## 2003 -0.0032253342 0.0079972007 0.0205919945 0.8120789
## 2004 0.0149328979 -0.0052688753 0.0005626045 0.8562495
## 2005 0.0073359001 -0.0080328874 -0.0024130416 0.8882972
## 2006 0.0160709142 -0.0110067180 -0.0166214115 0.9164737
## 2007 0.0174924237 -0.0043176811 -0.0011811641 0.9421544
## 2008 -0.0049349209 -0.0124255361 -0.0184542103 0.9433314
## 2009 -0.0410182368 0.0187403832 0.0657159170 0.8509288
## 2010 0.0089483400 -0.0165608637 -0.0370799001 0.9406031
## 2011 0.0135582839 -0.0174453464 -0.0396755903 0.9682179
## 2012 -0.0052362817 -0.0050938544 0.0019359184 0.9731209
## 2013 -0.0076847582 0.0014893623 0.0175331615 0.9793548
## 2014 -0.0043829963 0.0097347545 0.0326350971 1.0013377
## 2015 0.0009699693 0.0156939837 0.0412243848 1.0242732
## 2016 0.0068165812 0.0082247235 0.0299668499 1.0370053
## 2017 0.0081434070 -0.0126524289 -0.0179191732 1.0628577
## 2018 0.0067569262 -0.0065024284 -0.0045328228 1.0922071
adf.AUT.WS <- adf.test((AUT$WS), alternative = c("stationary"), k = 2)
adf.AUT.PS <- adf.test((AUT$PS), alternative = c("stationary"), k = 2)
adf.AUT.Y <- adf.test((AUT$Y), alternative = c("stationary"), k = 2)
adf.AUT.Yrw <- adf.test((AUT$Yrw), alternative = c("stationary"), k = 2)
adf.AUT.r <- adf.test((AUT$r), alternative = c("stationary"), k = 2)
adf.AUT.R <- adf.test((AUT$R), alternative = c("stationary"), k = 2)
adf.AUT.Tau <- adf.test((AUT$Tau), alternative = c("stationary"), k = 2)
adf.AUT.rulc <- adf.test((AUT$rulc), alternative = c("stationary"), k = 2)
adf.AUT.ulc <- adf.test((AUT$ulc), alternative = c("stationary"), k = 2)
adf.AUT.P <- adf.test((AUT$P), alternative = c("stationary"), k = 2)
adf.AUT.Pm <- adf.test((AUT$Pm), alternative = c("stationary"), k = 2)
adf.AUT.Px <- adf.test((AUT$Px), alternative = c("stationary"), k = 2)
adf.AUT.X <- adf.test((AUT$X), alternative = c("stationary"), k = 2)
adf.AUT.M <- adf.test((AUT$M), alternative = c("stationary"), k = 2)
adf.AUT.I <- adf.test((AUT$I), alternative = c("stationary"), k = 2)
adf.AUT.C <- adf.test((AUT$C), alternative = c("stationary"), k = 2)
adf.AUT.Ipr <- adf.test((AUT$Ipr), alternative = c("stationary"), k = 2)
adf.AUT.Ips <- adf.test((AUT$Ips), alternative = c("stationary"), k = 2)
adf.AUT.It <- adf.test((AUT$It), alternative = c("stationary"), k = 2)
adf.AUT.Itcurr <- adf.test((AUT$Itcurr), alternative = c("stationary"), k = 2)
adf.AUT.Yf <- adf.test((AUT$Yf), alternative = c("stationary"), k = 2)
adf.AUT.W <- adf.test((AUT$W), alternative = c("stationary"), k = 2)
adf.AUT.WS.pval <- adf.AUT.WS$p.value
adf.AUT.PS.pval <- adf.AUT.PS$p.value
adf.AUT.Y.pval <- adf.AUT.Y$p.value
adf.AUT.Yrw.pval <- adf.AUT.Yrw$p.value
adf.AUT.r.pval <- adf.AUT.r$p.value
adf.AUT.R.pval <- adf.AUT.R$p.value
adf.AUT.Tau.pval <- adf.AUT.Tau$p.value
adf.AUT.rulc.pval <- adf.AUT.rulc$p.value
adf.AUT.ulc.pval <- adf.AUT.ulc$p.value
adf.AUT.P.pval <- adf.AUT.P$p.value
adf.AUT.Pm.pval <- adf.AUT.Pm$p.value
adf.AUT.Px.pval <- adf.AUT.Px$p.value
adf.AUT.X.pval <- adf.AUT.X$p.value
adf.AUT.M.pval <- adf.AUT.M$p.value
adf.AUT.I.pval <- adf.AUT.I$p.value
adf.AUT.C.pval <- adf.AUT.C$p.value
adf.AUT.Ipr.pval <- adf.AUT.Ipr$p.value
adf.AUT.Ips.pval <- adf.AUT.Ips$p.value
adf.AUT.It.pval <- adf.AUT.It$p.value
adf.AUT.Itcurr.pval <- adf.AUT.Itcurr$p.value
adf.AUT.Yf.pval <- adf.AUT.Yf$p.value
adf.AUT.W.pval <- adf.AUT.W$p.value
adf.AUT_non <- rbind(adf.AUT.WS.pval,adf.AUT.PS.pval,adf.AUT.Y.pval,adf.AUT.Yrw.pval,adf.AUT.r.pval,adf.AUT.R.pval,adf.AUT.Tau.pval,adf.AUT.rulc.pval,adf.AUT.ulc.pval,adf.AUT.P.pval,adf.AUT.Pm.pval,adf.AUT.Px.pval,adf.AUT.X.pval,adf.AUT.M.pval,adf.AUT.I.pval,adf.AUT.C.pval,adf.AUT.Ipr.pval,adf.AUT.Ips.pval,adf.AUT.It.pval,adf.AUT.Itcurr.pval,adf.AUT.Yf.pval,adf.AUT.W.pval)
colnames(adf.AUT_non) <- c("AUT")
rownames(adf.AUT_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.AUT_non
## AUT
## WS 0.56797267
## PS 0.56797267
## Y 0.61684431
## Yrw 0.55316530
## r 0.69033762
## R 0.63869620
## Tau 0.52499587
## rulc 0.67415022
## ulc 0.61913833
## P 0.49494096
## Pm 0.71104497
## Px 0.72036872
## X 0.95115097
## M 0.96495729
## I 0.59288909
## C 0.80293622
## Ipr 0.97209763
## Ips 0.87568474
## It 0.41105158
## Itcurr 0.98979710
## Yf 0.55838297
## W 0.02590657
adf.AUT.WS_dl <- adf.test((AUT$WS_dl), alternative = c("stationary"), k = 2)
adf.AUT.PS_dl <- adf.test((AUT$PS_dl), alternative = c("stationary"), k = 2)
adf.AUT.Y_dl <- adf.test((AUT$Y_dl), alternative = c("stationary"), k = 2)
adf.AUT.Yrw_dl <- adf.test((AUT$Yrw_dl), alternative = c("stationary"), k = 2)
adf.AUT.r_dl <- adf.test((AUT$r_dl), alternative = c("stationary"), k = 2)
adf.AUT.R_dl <- adf.test((AUT$R_dl), alternative = c("stationary"), k = 2)
adf.AUT.Tau_dl <- adf.test((AUT$Tau_dl), alternative = c("stationary"), k = 2)
adf.AUT.rulc_dl <- adf.test((AUT$rulc_dl), alternative = c("stationary"), k = 2)
adf.AUT.ulc_dl <- adf.test((AUT$ulc_dl), alternative = c("stationary"), k = 2)
adf.AUT.P_dl <- adf.test((AUT$P_dl), alternative = c("stationary"), k = 2)
adf.AUT.Pm_dl <- adf.test((AUT$Pm_dl), alternative = c("stationary"), k = 2)
adf.AUT.Px_dl <- adf.test((AUT$Px_dl), alternative = c("stationary"), k = 2)
adf.AUT.X_dl <- adf.test((AUT$X_dl), alternative = c("stationary"), k = 2)
adf.AUT.M_dl <- adf.test((AUT$M_dl), alternative = c("stationary"), k = 2)
adf.AUT.I_dl <- adf.test((AUT$I_dl), alternative = c("stationary"), k = 2)
adf.AUT.C_dl <- adf.test((AUT$C_dl), alternative = c("stationary"), k = 2)
adf.AUT.Ipr_dl <- adf.test((AUT$Ipr_dl), alternative = c("stationary"), k = 2)
adf.AUT.Ips_dl <- adf.test((AUT$Ips_dl), alternative = c("stationary"), k = 2)
adf.AUT.It_dl <- adf.test((AUT$It_dl), alternative = c("stationary"), k = 2)
adf.AUT.Itcurr_dl <- adf.test((AUT$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.AUT.Yf_dl <- adf.test((AUT$Yf_dl), alternative = c("stationary"), k = 2)
adf.AUT.W_dl <- adf.test((AUT$W_dl), alternative = c("stationary"), k = 2)
adf.AUT.WS_dl.pval <- adf.AUT.WS_dl$p.value
adf.AUT.PS_dl.pval <- adf.AUT.PS_dl$p.value
adf.AUT.Y_dl.pval <- adf.AUT.Y_dl$p.value
adf.AUT.Yrw_dl.pval <- adf.AUT.Yrw_dl$p.value
adf.AUT.r_dl.pval <- adf.AUT.r_dl$p.value
adf.AUT.R_dl.pval <- adf.AUT.R_dl$p.value
adf.AUT.Tau_dl.pval <- adf.AUT.Tau_dl$p.value
adf.AUT.rulc_dl.pval <- adf.AUT.rulc_dl$p.value
adf.AUT.ulc_dl.pval <- adf.AUT.ulc_dl$p.value
adf.AUT.P_dl.pval <- adf.AUT.P_dl$p.value
adf.AUT.Pm_dl.pval <- adf.AUT.Pm_dl$p.value
adf.AUT.Px_dl.pval <- adf.AUT.Px_dl$p.value
adf.AUT.X_dl.pval <- adf.AUT.X_dl$p.value
adf.AUT.M_dl.pval <- adf.AUT.M_dl$p.value
adf.AUT.I_dl.pval <- adf.AUT.I_dl$p.value
adf.AUT.C_dl.pval <- adf.AUT.C_dl$p.value
adf.AUT.Ipr_dl.pval <- adf.AUT.Ipr_dl$p.value
adf.AUT.Ips_dl.pval <- adf.AUT.Ips_dl$p.value
adf.AUT.It_dl.pval <- adf.AUT.It_dl$p.value
adf.AUT.Itcurr_dl.pval <- adf.AUT.Itcurr_dl$p.value
adf.AUT.Yf_dl.pval <- adf.AUT.Yf_dl$p.value
adf.AUT.W_dl.pval <- adf.AUT.W_dl$p.value
adf.AUT_dl <- rbind(adf.AUT.WS_dl.pval,adf.AUT.PS_dl.pval,adf.AUT.Y_dl.pval,adf.AUT.Yrw_dl.pval,adf.AUT.r_dl.pval,adf.AUT.R_dl.pval,adf.AUT.Tau_dl.pval,adf.AUT.rulc_dl.pval,adf.AUT.ulc_dl.pval,adf.AUT.P_dl.pval,adf.AUT.Pm_dl.pval,adf.AUT.Px_dl.pval,adf.AUT.X_dl.pval,adf.AUT.M_dl.pval,adf.AUT.I_dl.pval,adf.AUT.C_dl.pval,adf.AUT.Ipr_dl.pval,adf.AUT.Ips_dl.pval,adf.AUT.It_dl.pval,adf.AUT.Itcurr_dl.pval,adf.AUT.Yf_dl.pval,adf.AUT.W_dl.pval)
colnames(adf.AUT_dl) <- c("AUT")
rownames(adf.AUT_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.AUT_dl
## AUT
## dlog(WS) 0.03446441
## dlog(PS) 0.04327349
## dlog(Y) 0.11756054
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.01460777
## dlog(Tau) 0.11853721
## dlog(rulc) 0.02993245
## dlog(ulc) 0.33686442
## dlog(P) 0.13906346
## dlog(Pm) 0.01000000
## dlog(Px) 0.04311749
## dlog(X) 0.01000000
## dlog(M) 0.01000000
## dlog(I) 0.01682294
## dlog(C) 0.02310321
## dlog(Ipr) 0.01000000
## dlog(Ips) 0.03520360
## dlog(It) 0.02699915
## dlog(Itcurr) 0.01000000
## dlog(Yf) 0.14509039
## dlog(W) 0.22787844
adf.AUT <- NULL
adf.AUT <- rbind(adf.AUT_non,adf.AUT_dl)
#Consumption (C)
AUT_consumption <- dynlm(AUT$C_dl~AUT$R_dl+AUT$W_dl)
AUT_CR <- summary(AUT_consumption)$coefficients["AUT$R_dl","Estimate"]
AUT_CW <- summary(AUT_consumption)$coefficients["AUT$W_dl","Estimate"]
AUT_Ceffekt <- (AUT_CR*mean(AUT$C/AUT$R))-(AUT_CW*mean(AUT$C/AUT$W))
summary(AUT_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$C_dl ~ AUT$R_dl + AUT$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.024718 -0.008414 -0.001105 0.007630 0.034945
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.006118 0.002738 2.234 0.029963 *
## AUT$R_dl 0.141982 0.033932 4.184 0.000115 ***
## AUT$W_dl 0.633054 0.097800 6.473 0.0000000401 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01231 on 50 degrees of freedom
## Multiple R-squared: 0.5622, Adjusted R-squared: 0.5447
## F-statistic: 32.1 on 2 and 50 DF, p-value: 0.000000001078
#Investments (I)
AUT_investment <- dynlm(AUT$I_dl~AUT$PS_dl+AUT$Y_l+AUT$r)
AUT_iPS <- summary(AUT_investment)$coefficients["AUT$PS_dl","Estimate"]
AUT_Ieffekt <- AUT_iPS*mean(AUT$I/AUT$R)
summary(AUT_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$I_dl ~ AUT$PS_dl + AUT$Y_l + AUT$r)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15851 -0.02039 0.00302 0.03149 0.11126
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.217297 0.106597 2.038 0.04692 *
## AUT$PS_dl 0.505212 0.182615 2.767 0.00797 **
## AUT$Y_l -0.034249 0.018937 -1.809 0.07665 .
## AUT$r -0.003452 0.003808 -0.907 0.36905
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04717 on 49 degrees of freedom
## Multiple R-squared: 0.1728, Adjusted R-squared: 0.1221
## F-statistic: 3.412 on 3 and 49 DF, p-value: 0.02455
#Price deflator (P)
AUT_deflator <- dynlm(AUT$P_dl~L(AUT$ulc_dl)+AUT$Pm_dl)
AUT_ePULC <- summary(AUT_deflator)$coefficients["L(AUT$ulc_dl)","Estimate"]
summary(AUT_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$P_dl ~ L(AUT$ulc_dl) + AUT$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0187229 -0.0055944 -0.0002332 0.0026792 0.0272932
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.012468 0.001884 6.619 0.0000000237124256 ***
## L(AUT$ulc_dl) 0.545344 0.053424 10.208 0.0000000000000801 ***
## AUT$Pm_dl 0.195118 0.043948 4.440 0.0000497787928314 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.009397 on 50 degrees of freedom
## Multiple R-squared: 0.7854, Adjusted R-squared: 0.7768
## F-statistic: 91.47 on 2 and 50 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
AUT_exportdeflator <- dynlm(AUT$Px_dl~AUT$ulc_dl+AUT$Pm_dl)
AUT_ePX <- summary(AUT_exportdeflator)$coefficients["AUT$ulc_dl","Estimate"]
summary(AUT_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$Px_dl ~ AUT$ulc_dl + AUT$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0124095 -0.0047439 -0.0002527 0.0032038 0.0295126
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.001289 0.001548 0.833 0.4089
## AUT$ulc_dl 0.170625 0.043900 3.887 0.0003 ***
## AUT$Pm_dl 0.615251 0.036114 17.037 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.007722 on 50 degrees of freedom
## Multiple R-squared: 0.8917, Adjusted R-squared: 0.8873
## F-statistic: 205.8 on 2 and 50 DF, p-value: < 0.00000000000000022
#Exports (X)
AUT_exports <- dynlm(AUT$X_dl~AUT$dPxdPm+AUT$Yrw_dl)
AUT_eXP <- summary(AUT_exports)$coefficients["AUT$dPxdPm","Estimate"]
AUT_Xeffekt <- -(AUT_eXP*AUT_ePX*(1/(1-AUT_ePULC))*mean(AUT$Yf/AUT$Y)*(mean(AUT$X/AUT$Y)/mean(AUT$rulc)))
summary(AUT_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$X_dl ~ AUT$dPxdPm + AUT$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.079120 -0.017154 0.001561 0.018083 0.098114
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.009697 0.008395 -1.155 0.254
## AUT$dPxdPm -1.600813 0.315391 -5.076 0.0000057211277 ***
## AUT$Yrw_dl 2.066471 0.252433 8.186 0.0000000000858 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03113 on 50 degrees of freedom
## Multiple R-squared: 0.6437, Adjusted R-squared: 0.6295
## F-statistic: 45.18 on 2 and 50 DF, p-value: 0.000000000006221
#Imports (M)
AUT_imports <- dynlm(AUT$M_dl~AUT$dPdPm+AUT$Y_l)
AUT_eMP <- summary(AUT_imports)$coefficients["AUT$dPdPm","Estimate"]
AUT_Meffekt <- -(AUT_eMP*AUT_ePULC*(1/(1-AUT_ePULC))*mean(AUT$Yf/AUT$Y)*(mean(AUT$M/AUT$Y)/mean(AUT$rulc)))
summary(AUT_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$M_dl ~ AUT$dPdPm + AUT$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.115031 -0.018517 0.008133 0.023803 0.113471
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.26667 0.09276 2.875 0.00592 **
## AUT$dPdPm -0.76446 0.24645 -3.102 0.00316 **
## AUT$Y_l -0.03953 0.01716 -2.304 0.02543 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04612 on 50 degrees of freedom
## Multiple R-squared: 0.2179, Adjusted R-squared: 0.1867
## F-statistic: 6.967 on 2 and 50 DF, p-value: 0.002143
names(AUT_consumption$coefficients) <- sub("AUT$","",names(AUT_consumption$coefficients),fixed=TRUE)
names(AUT_investment$coefficients) <- sub("AUT$","",names(AUT_investment$coefficients),fixed=TRUE)
names(AUT_deflator$coefficients) <- sub("AUT$","",names(AUT_deflator$coefficients),fixed=TRUE)
names(AUT_exportdeflator$coefficients) <- sub("AUT$","",names(AUT_exportdeflator$coefficients),fixed=TRUE)
names(AUT_exports$coefficients) <- sub("AUT$","",names(AUT_exports$coefficients),fixed=TRUE)
names(AUT_imports$coefficients) <- sub("AUT$","",names(AUT_imports$coefficients),fixed=TRUE)
print("Xeffekt")
## [1] "Xeffekt"
AUT_Xeffekt
## [1] 0.2845606
print("Meffekt")
## [1] "Meffekt"
AUT_Meffekt
## [1] 0.4437707
#Nettoeksport (NX)
print("NXeffekt")
## [1] "NXeffekt"
AUT_NXeffekt <- AUT_Xeffekt - AUT_Meffekt
AUT_NXeffekt
## [1] -0.1592101
#Nettoeffekten
print("Neteffekt")
## [1] "Neteffekt"
AUT_Neteffekt = AUT_Ceffekt + AUT_Ieffekt + AUT_NXeffekt
AUT_Neteffekt
## [1] -0.1084577
AUT_Lukket <- AUT_Ceffekt + AUT_Ieffekt
AUT_Lukket_Konklusion <- ifelse(AUT_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
AUT_Lukket_Konklusion
## [1] "Profit-led domestic"
AUT_Def <- ifelse(AUT_Neteffekt > 0, "Profit-led", "Wage-led")
AUT_Def
## [1] "Wage-led"
summary(ur.df(y=AUT_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.022887 -0.007319 -0.003962 0.001785 0.021019
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.336115 0.461564 -0.728 0.4728
## z.diff.lag1 -0.720114 0.454589 -1.584 0.1248
## z.diff.lag2 -0.930484 0.466299 -1.995 0.0562 .
## z.diff.lag3 -0.964681 0.489029 -1.973 0.0589 .
## z.diff.lag4 -0.758430 0.513825 -1.476 0.1515
## z.diff.lag5 -0.816368 0.511754 -1.595 0.1223
## z.diff.lag6 -0.366982 0.509152 -0.721 0.4772
## z.diff.lag7 -0.251408 0.469473 -0.536 0.5967
## z.diff.lag8 -0.092194 0.410392 -0.225 0.8239
## z.diff.lag9 0.060206 0.355503 0.169 0.8668
## z.diff.lag10 0.008801 0.290684 0.030 0.9761
## z.diff.lag11 0.210375 0.229787 0.916 0.3680
## z.diff.lag12 0.026557 0.162544 0.163 0.8714
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01084 on 27 degrees of freedom
## Multiple R-squared: 0.712, Adjusted R-squared: 0.5733
## F-statistic: 5.134 on 13 and 27 DF, p-value: 0.000167
##
##
## Value of test-statistic is: -0.7282
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=AUT_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.09924 -0.03261 -0.00422 0.02427 0.06708
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.59649 0.62316 -2.562 0.0163 *
## z.diff.lag1 0.74855 0.55491 1.349 0.1886
## z.diff.lag2 0.62359 0.52023 1.199 0.2411
## z.diff.lag3 0.64068 0.47940 1.336 0.1926
## z.diff.lag4 0.85339 0.45041 1.895 0.0689 .
## z.diff.lag5 0.61337 0.43763 1.402 0.1724
## z.diff.lag6 0.55544 0.39156 1.419 0.1675
## z.diff.lag7 0.50335 0.35849 1.404 0.1717
## z.diff.lag8 0.49917 0.31887 1.565 0.1291
## z.diff.lag9 0.50731 0.29350 1.728 0.0953 .
## z.diff.lag10 0.37274 0.26189 1.423 0.1661
## z.diff.lag11 0.25783 0.21081 1.223 0.2319
## z.diff.lag12 0.03318 0.16334 0.203 0.8406
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04455 on 27 degrees of freedom
## Multiple R-squared: 0.5774, Adjusted R-squared: 0.3739
## F-statistic: 2.837 on 13 and 27 DF, p-value: 0.01072
##
##
## Value of test-statistic is: -2.5619
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=AUT_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.060928 -0.016497 0.001375 0.018619 0.044869
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.63995 0.55343 -1.156 0.258
## z.diff.lag1 -0.24556 0.53939 -0.455 0.653
## z.diff.lag2 -0.40420 0.52285 -0.773 0.446
## z.diff.lag3 -0.23357 0.51662 -0.452 0.655
## z.diff.lag4 -0.38721 0.49111 -0.788 0.437
## z.diff.lag5 -0.27803 0.46766 -0.595 0.557
## z.diff.lag6 -0.07556 0.43747 -0.173 0.864
## z.diff.lag7 -0.05514 0.41453 -0.133 0.895
## z.diff.lag8 -0.07011 0.36879 -0.190 0.851
## z.diff.lag9 -0.10383 0.31084 -0.334 0.741
## z.diff.lag10 0.06913 0.26364 0.262 0.795
## z.diff.lag11 -0.10546 0.21274 -0.496 0.624
## z.diff.lag12 -0.02200 0.16133 -0.136 0.893
##
## Residual standard error: 0.02941 on 27 degrees of freedom
## Multiple R-squared: 0.5998, Adjusted R-squared: 0.4071
## F-statistic: 3.113 on 13 and 27 DF, p-value: 0.006157
##
##
## Value of test-statistic is: -1.1563
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=AUT_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.095883 -0.017911 -0.004162 0.016941 0.058751
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.62452 0.77202 -2.104 0.0448 *
## z.diff.lag1 0.73481 0.71988 1.021 0.3164
## z.diff.lag2 0.56892 0.66593 0.854 0.4004
## z.diff.lag3 0.66975 0.59957 1.117 0.2738
## z.diff.lag4 0.60234 0.55006 1.095 0.2832
## z.diff.lag5 0.49986 0.51246 0.975 0.3380
## z.diff.lag6 0.51247 0.47985 1.068 0.2950
## z.diff.lag7 0.53462 0.44984 1.188 0.2450
## z.diff.lag8 0.29024 0.40256 0.721 0.4771
## z.diff.lag9 0.16106 0.36470 0.442 0.6623
## z.diff.lag10 -0.05098 0.31089 -0.164 0.8710
## z.diff.lag11 0.05923 0.23837 0.248 0.8057
## z.diff.lag12 0.03263 0.16830 0.194 0.8477
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04178 on 27 degrees of freedom
## Multiple R-squared: 0.5696, Adjusted R-squared: 0.3623
## F-statistic: 2.748 on 13 and 27 DF, p-value: 0.01286
##
##
## Value of test-statistic is: -2.1042
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
plot(AUT_consumption)
plot(AUT_investment)
plot(AUT_deflator)
plot(AUT_exportdeflator)
plot(AUT_exports)
plot(AUT_imports)
bptest(AUT_consumption)
##
## studentized Breusch-Pagan test
##
## data: AUT_consumption
## BP = 1.8037, df = 2, p-value = 0.4058
bptest(AUT_investment)
##
## studentized Breusch-Pagan test
##
## data: AUT_investment
## BP = 1.9588, df = 3, p-value = 0.581
bptest(AUT_deflator)
##
## studentized Breusch-Pagan test
##
## data: AUT_deflator
## BP = 0.11813, df = 2, p-value = 0.9426
bptest(AUT_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: AUT_exportdeflator
## BP = 9.5572, df = 2, p-value = 0.008408
bptest(AUT_exports)
##
## studentized Breusch-Pagan test
##
## data: AUT_exports
## BP = 0.21658, df = 2, p-value = 0.8974
bptest(AUT_imports)
##
## studentized Breusch-Pagan test
##
## data: AUT_imports
## BP = 6.9428, df = 2, p-value = 0.03107
resettest(AUT_consumption)
##
## RESET test
##
## data: AUT_consumption
## RESET = 2.2688, df1 = 2, df2 = 48, p-value = 0.1144
resettest(AUT_investment)
##
## RESET test
##
## data: AUT_investment
## RESET = 3.2626, df1 = 2, df2 = 47, p-value = 0.04712
resettest(AUT_deflator)
##
## RESET test
##
## data: AUT_deflator
## RESET = 0.30041, df1 = 2, df2 = 48, p-value = 0.7419
resettest(AUT_exportdeflator)
##
## RESET test
##
## data: AUT_exportdeflator
## RESET = 2.0283, df1 = 2, df2 = 48, p-value = 0.1427
resettest(AUT_exports)
##
## RESET test
##
## data: AUT_exports
## RESET = 1.608, df1 = 2, df2 = 48, p-value = 0.2109
resettest(AUT_imports)
##
## RESET test
##
## data: AUT_imports
## RESET = 2.4161, df1 = 2, df2 = 48, p-value = 0.1
AUT_regtab <- matrix(c(AUT_Ceffekt, AUT_Ieffekt, AUT_Lukket, AUT_Xeffekt, AUT_Meffekt, AUT_NXeffekt, AUT_Neteffekt,AUT_Lukket_Konklusion, AUT_Def),ncol=9,byrow=TRUE)
colnames(AUT_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(AUT_regtab) <- c("AUT")
AUT_regtab <- as.table(AUT_regtab)
AUT_regtab
## consumption investment Lukket neteffekt
## AUT -0.307975667166831 0.358728098156485 0.0507524309896539
## exports imports netexports
## AUT 0.284560572664439 0.443770696791004 -0.159210124126565
## neteffect Lukket konklusion Konklusion
## AUT -0.108457693136911 Profit-led domestic Wage-led
AUT_smoke <- matrix(c(mean(AUT$C/AUT$R), mean(AUT$C/AUT$W), mean(AUT$I/AUT$R), AUT_CR, AUT_CW, AUT_iPS, AUT_ePULC, (1/(1-AUT_ePULC)), AUT_eXP, AUT_ePX, AUT_eMP, mean(AUT$Yf/AUT$Y), mean(AUT$X/AUT$Y), mean(AUT$rulc), (mean(AUT$M/AUT$Y)/mean(AUT$rulc))),ncol=15,byrow=TRUE)
colnames(AUT_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(AUT_smoke) <- c("AUT")
AUT_smoke <- as.table(AUT_smoke)
AUT_smoke
## C/R C/W I/R CR CW iPS
## AUT 1.9261097 0.9184808 0.7100548 0.1419816 0.6330538 0.5052118
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## AUT 0.5453441 2.1994655 -1.6008133 0.1706255 -0.7644633 0.9048058
## X/Y RULC (X/Y)/rulc
## AUT 0.3199673 0.6112065 0.5348831
summary(AUT_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$C_dl ~ AUT$R_dl + AUT$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.024718 -0.008414 -0.001105 0.007630 0.034945
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.006118 0.002738 2.234 0.029963 *
## R_dl 0.141982 0.033932 4.184 0.000115 ***
## W_dl 0.633054 0.097800 6.473 0.0000000401 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01231 on 50 degrees of freedom
## Multiple R-squared: 0.5622, Adjusted R-squared: 0.5447
## F-statistic: 32.1 on 2 and 50 DF, p-value: 0.000000001078
summary(AUT_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$I_dl ~ AUT$PS_dl + AUT$Y_l + AUT$r)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.15851 -0.02039 0.00302 0.03149 0.11126
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.217297 0.106597 2.038 0.04692 *
## PS_dl 0.505212 0.182615 2.767 0.00797 **
## Y_l -0.034249 0.018937 -1.809 0.07665 .
## r -0.003452 0.003808 -0.907 0.36905
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04717 on 49 degrees of freedom
## Multiple R-squared: 0.1728, Adjusted R-squared: 0.1221
## F-statistic: 3.412 on 3 and 49 DF, p-value: 0.02455
summary(AUT_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$P_dl ~ L(AUT$ulc_dl) + AUT$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0187229 -0.0055944 -0.0002332 0.0026792 0.0272932
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.012468 0.001884 6.619 0.0000000237124256 ***
## L(ulc_dl) 0.545344 0.053424 10.208 0.0000000000000801 ***
## Pm_dl 0.195118 0.043948 4.440 0.0000497787928314 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.009397 on 50 degrees of freedom
## Multiple R-squared: 0.7854, Adjusted R-squared: 0.7768
## F-statistic: 91.47 on 2 and 50 DF, p-value: < 0.00000000000000022
summary(AUT_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$Px_dl ~ AUT$ulc_dl + AUT$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0124095 -0.0047439 -0.0002527 0.0032038 0.0295126
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.001289 0.001548 0.833 0.4089
## ulc_dl 0.170625 0.043900 3.887 0.0003 ***
## Pm_dl 0.615251 0.036114 17.037 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.007722 on 50 degrees of freedom
## Multiple R-squared: 0.8917, Adjusted R-squared: 0.8873
## F-statistic: 205.8 on 2 and 50 DF, p-value: < 0.00000000000000022
summary(AUT_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$X_dl ~ AUT$dPxdPm + AUT$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.079120 -0.017154 0.001561 0.018083 0.098114
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.009697 0.008395 -1.155 0.254
## dPxdPm -1.600813 0.315391 -5.076 0.0000057211277 ***
## Yrw_dl 2.066471 0.252433 8.186 0.0000000000858 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03113 on 50 degrees of freedom
## Multiple R-squared: 0.6437, Adjusted R-squared: 0.6295
## F-statistic: 45.18 on 2 and 50 DF, p-value: 0.000000000006221
summary(AUT_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 53
##
## Call:
## dynlm(formula = AUT$M_dl ~ AUT$dPdPm + AUT$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.115031 -0.018517 0.008133 0.023803 0.113471
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.26667 0.09276 2.875 0.00592 **
## dPdPm -0.76446 0.24645 -3.102 0.00316 **
## Y_l -0.03953 0.01716 -2.304 0.02543 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04612 on 50 degrees of freedom
## Multiple R-squared: 0.2179, Adjusted R-squared: 0.1867
## F-statistic: 6.967 on 2 and 50 DF, p-value: 0.002143
BEL_df[!complete.cases(BEL_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.6212052 -0.4760938 NA 0.3787948 -0.9707607 NA
## 1961 0.6135419 -0.4885067 -0.0124129259 0.3864581 -0.9507319 0.020028857
## 1962 0.6240937 -0.4714547 0.0170519969 0.3759063 -0.9784155 -0.027683608
## 1963 0.6282495 -0.4648179 0.0066368230 0.3717505 -0.9895324 -0.011116914
## 1964 0.6205555 -0.4771403 -0.0123224307 0.3794445 -0.9690468 0.020485567
## 1965 0.6211624 -0.4761626 0.0009776666 0.3788376 -0.9706478 -0.001600969
## 1966 0.6346938 -0.4546127 0.0215499604 0.3653062 -1.0070192 -0.036371448
## 1967 0.6380041 -0.4494105 0.0052021341 0.3619959 -1.0161224 -0.009103199
## 1968 0.6299497 -0.4621153 -0.0127047074 0.3700503 -0.9941164 0.022006012
## 1969 0.6240429 -0.4715362 -0.0094209289 0.3759571 -0.9782802 0.015836217
## 1970 0.6199834 -0.4780626 -0.0065263901 0.3800166 -0.9675404 0.010739858
## 2019 0.6583165 -0.4180695 0.0012966426 0.3416835 -1.0738703 -0.002493491
## 2020 0.6750069 -0.3930323 0.0250372249 0.3249931 -1.1239515 -0.050081179
## 2021 0.6414967 -0.4439513 -0.0509189916 0.3585033 -1.0258173 0.098134143
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 96.4997 4.569540 NA 8905925782011 29.81774 NA
## 1961 101.2996 4.618082 0.04854256 9326084571798 29.86384 0.04609839
## 1962 106.5484 4.668599 0.05051688 9875202733993 29.92105 0.05721157
## 1963 111.2409 4.711698 0.04309878 10416773644065 29.97444 0.05339052
## 1964 118.9695 4.778867 0.06716904 11097262723159 30.03772 0.06328112
## 1965 123.2359 4.814100 0.03523325 11711435418830 30.09159 0.05386727
## 1966 127.0648 4.844697 0.03059679 12424345134348 30.15068 0.05909211
## 1967 131.9807 4.882656 0.03795851 13002148889086 30.19614 0.04545678
## 1968 137.4872 4.923531 0.04087512 13818632625523 30.25704 0.06090323
## 1969 146.5932 4.987661 0.06413058 14618587242839 30.31331 0.05627595
## 1970 155.6703 5.047740 0.06007891 14996847331008 30.33886 0.02554618
## 2019 443.5705 6.094857 0.01355858 NA NA NA
## 2020 411.8215 6.020590 -0.07426675 NA NA NA
## 2021 439.3720 6.085346 0.06475643 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1960 1.71361 94.78609 4.551623 NA 55.3789 4.014199 NA
## 1961 1.94115 99.35845 4.598734 0.04711135 56.2882 4.030485 0.01628627
## 1962 2.07858 104.46982 4.648898 0.05016421 58.4799 4.068683 0.03819818
## 1963 2.26234 108.97856 4.691151 0.04225294 61.1270 4.112954 0.04427056
## 1964 2.51455 116.45495 4.757505 0.06635334 62.7238 4.138741 0.02578729
## 1965 2.73445 120.50145 4.791662 0.03415728 65.4128 4.180718 0.04197700
## 1966 3.17925 123.88555 4.819358 0.02769637 67.1091 4.206320 0.02560170
## 1967 3.49922 128.48148 4.855785 0.03642661 69.0097 4.234247 0.02792742
## 1968 3.72255 133.76465 4.896082 0.04029714 72.6671 4.285889 0.05164166
## 1969 4.09323 142.49997 4.959342 0.06325988 76.5405 4.337820 0.05193128
## 1970 4.42864 151.24166 5.018879 0.05953717 79.8949 4.380712 0.04289201
## 2019 65.42420 378.14630 5.935281 0.01221591 227.7541 5.428267 0.01121281
## 2020 60.75621 351.06529 5.860972 -0.07430894 212.0391 5.356771 -0.07149585
## 2021 66.43743 372.93457 5.921403 0.06043077 225.8216 5.419745 0.06297462
## 2022 NA NA NA NA NA NA NA
## W W_l W_dl R R_l R_dl
## 1960 58.88161 4.075529 NA 35.90448 3.580862 NA
## 1961 60.96057 4.110227 0.03469842 38.39788 3.648002 0.067140207
## 1962 65.19896 4.177444 0.06721620 39.27086 3.670483 0.022480599
## 1963 68.46573 4.226333 0.04888976 40.51283 3.701619 0.031136026
## 1964 72.26675 4.280364 0.05403091 44.18820 3.788458 0.086838904
## 1965 74.85098 4.315499 0.03513495 45.65047 3.821014 0.032556314
## 1966 78.62938 4.364745 0.04924633 45.25617 3.812339 -0.008675078
## 1967 81.97171 4.406374 0.04162875 46.50977 3.839662 0.027323415
## 1968 84.26501 4.433967 0.02759244 49.49964 3.901965 0.062303155
## 1969 88.92609 4.487806 0.05383895 53.57388 3.981062 0.079096094
## 1970 93.76732 4.540816 0.05301078 57.47434 4.051339 0.070277023
## 2019 248.93993 5.517212 0.01351255 129.20637 4.861411 0.009722417
## 2020 236.97151 5.467940 -0.04927172 114.09378 4.737021 -0.124390120
## 2021 239.23628 5.477452 0.00951178 133.69829 4.895586 0.158564914
## 2022 NA NA NA NA NA NA
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl
## 1960 22.3550 3.107050 NA 3.4342 1.233784 NA
## 1961 25.1188 3.223617 0.116566560 3.8995 1.360848 0.127064338
## 1962 26.5958 3.280753 0.057136739 4.2960 1.457684 0.096836017
## 1963 26.6352 3.282234 0.001480341 4.4868 1.501140 0.043455396
## 1964 30.5413 3.419080 0.136846217 5.4340 1.692676 0.191535758
## 1965 31.8007 3.459488 0.040408436 5.9130 1.777153 0.084477806
## 1966 33.9714 3.525519 0.066030692 6.5129 1.873785 0.096631509
## 1967 34.9587 3.554167 0.028648371 6.9757 1.942433 0.068647856
## 1968 34.5189 3.541507 -0.012660365 7.0018 1.946167 0.003734578
## 1969 36.3598 3.593464 0.051956769 7.6913 2.040090 0.093922561
## 1970 39.4243 3.674382 0.080918609 9.1218 2.210667 0.170577333
## 2019 107.7620 4.679925 0.030058825 113.8525 4.734904 0.038372993
## 2020 91.2744 4.513870 -0.166054738 97.0117 4.574832 -0.160072161
## 2021 105.7870 4.661428 0.147557285 114.0106 4.736291 0.161459837
## 2022 NA NA NA NA NA NA
## Ipr Ipr_l Ipr_dl Ips Ips_l Ips_dl
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 7.5400 2.020222 NA 0.8265912 -0.1904450 NA
## 2019 101.6322 4.621360 0.0425609 0.8926655 -0.1135433 0.004187905
## 2020 86.3972 4.458955 -0.1624051 0.8905854 -0.1158763 -0.002332985
## 2021 102.6632 4.631454 0.1724985 0.9004707 -0.1048377 0.011038623
## 2022 NA NA NA NA NA NA
## I I_l I_dl r r_l r_dl
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA 4.6517693 2.224314 NA
## 1962 NA NA NA 3.4856113 2.089513 -0.13480094
## 1963 NA NA NA 1.9076810 1.872271 -0.21724189
## 1964 NA NA NA 0.9039877 1.704631 -0.16764017
## 1965 NA NA NA 1.1656022 1.751106 0.04647495
## 1966 NA NA NA 2.4146608 1.947342 0.19623587
## 1967 NA NA NA 3.3793348 2.076275 0.12893255
## 1968 NA NA NA 3.8073311 2.128553 0.05227859
## 1969 NA NA NA 3.1334510 2.044956 -0.08359689
## 1970 32.58778 3.483937 NA 2.9568951 2.021847 -0.02310880
## 2019 96.19542 4.566382 0.03424673 -1.4054068 1.160009 -0.19144611
## 2020 81.28764 4.397994 -0.16838772 NA NA NA
## 2021 95.25809 4.556590 0.15859591 NA NA NA
## 2022 NA NA NA NA NA NA
## P P_l P_dl Pm Pm_l Pm_dl
## 1960 15.50931 2.741441 NA 21.66098 3.075513 NA
## 1961 15.68985 2.753014 0.01157357 22.21991 3.100989 0.025476086
## 1962 15.94674 2.769255 0.01624059 22.39538 3.108855 0.007866034
## 1963 16.43064 2.799148 0.02989303 23.29908 3.148414 0.039559054
## 1964 17.19531 2.844637 0.04548892 24.04499 3.179927 0.031512701
## 1965 18.09181 2.895459 0.05082265 24.08592 3.181627 0.001700924
## 1966 18.83999 2.935982 0.04052257 24.85060 3.212882 0.031254325
## 1967 19.44151 2.967410 0.03142861 24.97872 3.218024 0.005142494
## 1968 19.95517 2.993488 0.02607777 25.11753 3.223566 0.005541543
## 1969 20.75942 3.033000 0.03951165 25.90909 3.254594 0.031028073
## 1970 21.73594 3.078967 0.04596725 27.23463 3.304489 0.049895362
## 2019 106.77872 4.670759 0.01605196 104.67686 4.650878 0.003755050
## 2020 108.31267 4.685022 0.01426345 100.70314 4.612177 -0.038701124
## 2021 110.00056 4.700485 0.01546333 102.27088 4.627625 0.015447956
## 2022 NA NA NA NA NA NA
## Px Px_l Px_dl X X_l X_dl
## 1960 22.97140 3.134250 NA 21.4965 3.067890 NA
## 1961 23.09894 3.139787 0.005536814 23.4667 3.155582 0.08769226
## 1962 23.33423 3.149921 0.010134846 25.8419 3.251997 0.09641481
## 1963 23.82787 3.170856 0.020934299 27.9709 3.331165 0.07916748
## 1964 24.82934 3.212026 0.041170355 30.6083 3.421271 0.09010653
## 1965 25.16937 3.225628 0.013601680 32.4672 3.480230 0.05895913
## 1966 26.10236 3.262026 0.036398099 34.9617 3.554253 0.07402283
## 1967 26.22989 3.266900 0.004873631 36.4551 3.596081 0.04182819
## 1968 26.27249 3.268522 0.001622761 40.9038 3.711223 0.11514160
## 1969 27.48472 3.313630 0.045107901 47.1716 3.853792 0.14256905
## 1970 29.06059 3.369383 0.055752712 51.5249 3.942065 0.08827317
## 2019 103.93454 4.643761 0.007297120 371.7032 5.918096 0.01000922
## 2020 100.57782 4.610932 -0.032829492 332.4216 5.806404 -0.11169164
## 2021 102.34507 4.628350 0.017418373 358.0600 5.880701 0.07429653
## 2022 NA NA NA NA NA NA
## M M_l M_dl rulc rulc_l rulc_dl
## 1960 23.2025 3.144260 NA 0.6101741 -0.4940110 NA
## 1961 24.8725 3.213763 0.06950274 0.6017849 -0.5078551 -0.01384413923
## 1962 26.9136 3.292632 0.07886896 0.6119187 -0.4911558 0.01669932510
## 1963 29.2414 3.375586 0.08295378 0.6154726 -0.4853648 0.00579098482
## 1964 31.8307 3.460431 0.08484572 0.6074393 -0.4985030 -0.01313813118
## 1965 33.9224 3.524076 0.06364433 0.6073796 -0.4986013 -0.00009829732
## 1966 37.2877 3.618664 0.09458795 0.6188133 -0.4799517 0.01864954202
## 1967 37.8781 3.634373 0.01570960 0.6210886 -0.4762815 0.00367024076
## 1968 42.3145 3.745130 0.11075671 0.6128935 -0.4895642 -0.01328268646
## 1969 48.8679 3.889121 0.14399092 0.6066181 -0.4998558 -0.01029163403
## 1970 52.2922 3.956847 0.06772648 0.6023456 -0.5069239 -0.00706812988
## 2019 369.0507 5.910934 0.01153242 0.5612184 -0.5776451 -0.00004603395
## 2020 331.4305 5.803418 -0.10751590 0.5754229 -0.5526501 0.02499503360
## 2021 358.3233 5.881436 0.07801752 0.5444960 -0.6078947 -0.05524465209
## 2022 NA NA NA NA NA NA
## ulc ulc_l ulc_dl Tau Tau_l Tau_dl
## 1960 9.463379 2.247430 NA 45.85431 3.825469 NA
## 1961 9.441916 2.245159 -0.002270565 47.42684 3.859188 0.033719193
## 1962 9.758112 2.278099 0.032939912 48.90926 3.889967 0.030778291
## 1963 10.112607 2.313783 0.035684015 50.47547 3.921488 0.031520876
## 1964 10.445108 2.346134 0.032350791 53.02166 3.970701 0.049212995
## 1965 10.988596 2.396858 0.050724353 54.16891 3.992107 0.021406640
## 1966 11.658437 2.456030 0.059172113 54.94292 4.006295 0.014187716
## 1967 12.074901 2.491129 0.035098851 56.32732 4.031180 0.024884705
## 1968 12.230393 2.503924 0.012795080 57.99713 4.060393 0.029213883
## 1969 12.593038 2.533144 0.029220021 60.49891 4.102625 0.042231817
## 1970 13.092548 2.572043 0.038899125 62.73998 4.138999 0.036373539
## 2019 59.926183 4.093114 0.016005925 99.83622 4.603531 -0.003685562
## 2020 62.325585 4.132372 0.039258485 93.09728 4.533645 -0.069886044
## 2021 59.894860 4.092591 -0.039781325 98.00005 4.584968 0.051322928
## 2022 NA NA NA NA NA NA
## dPxdPm dPdPm Trade
## 1960 NA NA 0.4632035
## 1961 -0.0199392722 -0.01390251147 0.4771904
## 1962 0.0022688126 0.00837455315 0.4951318
## 1963 -0.0186247546 -0.00966602333 0.5143099
## 1964 0.0096576535 0.01397622125 0.5248320
## 1965 0.0119007561 0.04912172666 0.5387196
## 1966 0.0051437731 0.00926824551 0.5686028
## 1967 -0.0002688624 0.02628611616 0.5632127
## 1968 -0.0039187818 0.02053622322 0.6052803
## 1969 0.0140798275 0.00848358192 0.6551429
## 1970 0.0058573494 -0.00392810762 0.6669037
## 2019 0.0035420703 0.01229690842 1.6699801
## 2020 0.0058716325 0.05296457609 1.6119899
## 2021 0.0019704168 0.00001537128 1.6304710
## 2022 NA NA NA
BEL <- BEL_df[12:59,]
BEL[!complete.cases(BEL),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
BEL %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1971 0.6428991 -0.4417675 0.036295058 0.3571009 -1.029737 -0.06219651
## 1972 0.6535566 -0.4253262 0.016441306 0.3464434 -1.060036 -0.03029884
## 1973 0.6579850 -0.4185732 0.006753017 0.3420150 -1.072901 -0.01286490
## 1974 0.6809531 -0.3842619 0.034311307 0.3190469 -1.142417 -0.06951649
## 1975 0.7002464 -0.3563230 0.027938841 0.2997536 -1.204794 -0.06237731
## 1976 0.7106544 -0.3415691 0.014753938 0.2893456 -1.240133 -0.03533892
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1971 161.5126 5.084583 0.03684285 15590529697161 30.37768 0.0388236581
## 1972 170.0011 5.135805 0.05122175 16464037227845 30.43220 0.0545147810
## 1973 180.4091 5.195227 0.05942214 17506281338848 30.49358 0.0613813099
## 1974 187.9857 5.236366 0.04113885 17710067245613 30.50515 0.0115734987
## 1975 185.4911 5.223007 -0.01335899 17697175885619 30.50443 -0.0007281765
## 1976 195.9764 5.277994 0.05498734 18575157786378 30.55285 0.0484200128
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1971 4.86828 156.6443 5.053978 0.03509880 83.8251 4.428732 0.048020464
## 1972 5.05673 164.9444 5.105608 0.05163051 88.7871 4.486241 0.057508884
## 1973 5.67673 174.7324 5.163255 0.05764722 96.0232 4.564590 0.078348460
## 1974 6.58380 181.4019 5.200715 0.03745952 98.7161 4.592248 0.027658225
## 1975 7.16433 178.3268 5.183618 -0.01709736 99.5608 4.600769 0.008520459
## 1976 8.51714 187.4593 5.233562 0.04994389 104.6226 4.650360 0.049591077
## W W_l W_dl R R_l R_dl It
## 1971 100.7065 4.612210 0.07139386 55.93783 4.024241 -0.02709771 38.6750
## 1972 107.8005 4.680282 0.06807181 57.14390 4.045573 0.02133167 39.9879
## 1973 114.9713 4.744682 0.06440024 59.76110 4.090355 0.04478232 42.7964
## 1974 123.5262 4.816453 0.07177083 57.87572 4.058298 -0.03205697 45.7657
## 1975 124.8727 4.827295 0.01084148 53.45410 3.978823 -0.07947467 44.9111
## 1976 133.2187 4.891992 0.06469783 54.24052 3.993428 0.01460497 46.7046
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1971 3.655193 -0.01918898 9.6047 2.262253 0.05158541 7.6092 2.029358
## 1972 3.688577 0.03338351 10.2366 2.325970 0.06371697 8.0125 2.081003
## 1973 3.756454 0.06787708 11.6323 2.453786 0.12781618 9.4573 2.246787
## 1974 3.823535 0.06708092 14.3056 2.660651 0.20686536 11.9609 2.481643
## 1975 3.804685 -0.01884992 15.8638 2.764040 0.10338871 12.9363 2.560037
## 1976 3.843843 0.03915768 17.5083 2.862675 0.09863527 14.1623 2.650584
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1971 0.009135859 0.7922371 -0.2328945 -0.042449549 30.63977 3.422299
## 1972 0.051644781 0.7827306 -0.2449667 -0.012072190 31.29975 3.443610
## 1973 0.165784108 0.8130206 -0.2069988 0.037967930 34.79436 3.549455
## 1974 0.234856066 0.8360991 -0.1790081 0.027990709 38.26466 3.644527
## 1975 0.078394317 0.8154604 -0.2040025 -0.024994398 36.62322 3.600683
## 1976 0.090546191 0.8088906 -0.2120915 -0.008089079 37.77891 3.631751
## I_dl r r_l r_dl P P_l
## 1971 -0.06163853 2.3310893 1.9353486 -0.08649878 22.79563 3.126569
## 1972 0.02131132 1.5018693 1.8078360 -0.12751268 24.03940 3.179694
## 1973 0.10584501 0.4024518 1.6090020 -0.19883395 25.73877 3.247998
## 1974 0.09507162 -2.7741198 0.5995227 -1.00947927 28.79486 3.360197
## 1975 -0.04384432 -3.5953692 0.0000000 -0.59952275 32.41357 3.478577
## 1976 0.03106860 1.4054382 1.7918940 1.79189403 34.86989 3.551624
## P_dl Pm Pm_l Pm_dl Px Px_l Px_dl
## 1971 0.04760150 28.05853 3.334293 0.02980353 29.65487 3.389626 0.02024359
## 1972 0.05312538 28.10951 3.336108 0.00181504 30.18331 3.407289 0.01766277
## 1973 0.06830422 30.18126 3.407221 0.07111326 32.71765 3.487915 0.08062542
## 1974 0.11219863 38.44284 3.649173 0.24195148 40.71010 3.706476 0.21856164
## 1975 0.11838025 41.01214 3.713868 0.06469561 42.58799 3.751572 0.04509592
## 1976 0.07304651 43.68639 3.777037 0.06316831 45.37096 3.814872 0.06330011
## X X_l X_dl M M_l M_dl rulc
## 1971 53.8461 3.986130 0.04406479 54.1980 3.992644 0.03579679 0.6235210
## 1972 59.7996 4.090999 0.10486899 59.3842 4.084028 0.09138419 0.6341163
## 1973 68.2452 4.223107 0.13210813 70.4217 4.254501 0.17047326 0.6372809
## 1974 70.7740 4.259492 0.03638460 73.5318 4.297718 0.04321651 0.6571041
## 1975 64.9101 4.173003 -0.08648847 66.8533 4.202501 -0.09521730 0.6732004
## 1976 73.2621 4.294043 0.12104019 75.1335 4.319267 0.11676586 0.6797693
## rulc_l rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1971 -0.4723729 0.034551012 14.21355 2.654196 0.08215251 63.97218 4.158448
## 1972 -0.4555228 0.016850065 15.24377 2.724171 0.06997545 66.58298 4.198449
## 1973 -0.4505448 0.004978098 16.40282 2.797454 0.07328232 69.31438 4.238652
## 1974 -0.4199128 0.030631984 18.92122 2.940284 0.14283061 70.45426 4.254964
## 1975 -0.3957123 0.024200477 21.82083 3.082865 0.14258073 69.10254 4.235591
## 1976 -0.3860018 0.009710484 23.70348 3.165622 0.08275699 72.13399 4.278525
## Tau_dl dPxdPm dPdPm Trade
## 1971 0.01944951 -0.009559934 0.017797970 0.6689515
## 1972 0.04000066 0.015847726 0.051310341 0.7010766
## 1973 0.04020336 0.009512154 -0.002809041 0.7686248
## 1974 0.01631129 -0.023389841 -0.129752852 0.7676424
## 1975 -0.01937216 -0.019599692 0.053684638 0.7103489
## 1976 0.04293381 0.000131800 0.009878196 0.7572116
BEL %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1971 0.6428991 -0.4417675 0.036295058 0.3571009 -1.029737 -0.062196508
## 1972 0.6535566 -0.4253262 0.016441306 0.3464434 -1.060036 -0.030298835
## 1973 0.6579850 -0.4185732 0.006753017 0.3420150 -1.072901 -0.012864901
## 1974 0.6809531 -0.3842619 0.034311307 0.3190469 -1.142417 -0.069516488
## 1975 0.7002464 -0.3563230 0.027938841 0.2997536 -1.204794 -0.062377308
## 1976 0.7106544 -0.3415691 0.014753938 0.2893456 -1.240133 -0.035338917
## 1977 0.7143841 -0.3363346 0.005234546 0.2856159 -1.253107 -0.012973939
## 1978 0.7151266 -0.3352956 0.001038912 0.2848734 -1.255711 -0.002603268
## 1979 0.7121759 -0.3394303 -0.004134661 0.2878241 -1.245406 0.010304667
## 1980 0.7239124 -0.3230848 0.016345483 0.2760876 -1.287037 -0.041631392
## 1981 0.7264782 -0.3195467 0.003538085 0.2735218 -1.296374 -0.009336882
## 1982 0.7146444 -0.3359702 -0.016423479 0.2853556 -1.254019 0.042355006
## 1983 0.7076543 -0.3457996 -0.009829349 0.2923457 -1.229818 0.024200812
## 1984 0.6996528 -0.3571711 -0.011371493 0.3003472 -1.202816 0.027002150
## 1985 0.6941819 -0.3650212 -0.007850147 0.3058181 -1.184765 0.018051264
## 1986 0.6897413 -0.3714387 -0.006417542 0.3102587 -1.170349 0.014416234
## 1987 0.6870513 -0.3753463 -0.003907561 0.3129487 -1.161716 0.008632643
## 1988 0.6681307 -0.4032714 -0.027925105 0.3318693 -1.103014 0.058701851
## 1989 0.6646852 -0.4084417 -0.005170260 0.3353148 -1.092686 0.010328562
## 1990 0.6755278 -0.3922610 0.016180719 0.3244722 -1.125555 -0.032869838
## 1991 0.6937668 -0.3656194 0.026641507 0.3062332 -1.183408 -0.057852820
## 1992 0.6961375 -0.3622081 0.003411376 0.3038625 -1.191180 -0.007771741
## 1993 0.7050115 -0.3495411 0.012666938 0.2949885 -1.220819 -0.029638975
## 1994 0.6990651 -0.3580115 -0.008470341 0.3009349 -1.200861 0.019957817
## 1995 0.6903559 -0.3705480 -0.012536570 0.3096441 -1.172332 0.028529516
## 1996 0.6954331 -0.3632204 0.007327610 0.3045669 -1.188865 -0.016532930
## 1997 0.6935662 -0.3659087 -0.002688220 0.3064338 -1.182753 0.006111197
## 1998 0.6890175 -0.3724887 -0.006580005 0.3109825 -1.168019 0.014734851
## 1999 0.6958478 -0.3626244 0.009864305 0.3041522 -1.190227 -0.022208440
## 2000 0.6840224 -0.3797646 -0.017140201 0.3159776 -1.152084 0.038142889
## 2001 0.6939460 -0.3653611 0.014403481 0.3060540 -1.183994 -0.031909772
## 2002 0.7008853 -0.3554110 0.009950072 0.2991147 -1.206928 -0.022934378
## 2003 0.6935800 -0.3658887 -0.010477690 0.3064200 -1.182799 0.024129668
## 2004 0.6768285 -0.3903374 -0.024448733 0.3231715 -1.129572 0.053226559
## 2005 0.6655815 -0.4070942 -0.016756728 0.3344185 -1.095362 0.034209865
## 2006 0.6625832 -0.4116091 -0.004514957 0.3374168 -1.086436 0.008925753
## 2007 0.6575735 -0.4191987 -0.007589619 0.3424265 -1.071698 0.014738131
## 2008 0.6763204 -0.3910883 0.028110382 0.3236796 -1.128001 -0.056302896
## 2009 0.6912433 -0.3692634 0.021824926 0.3087567 -1.175202 -0.047200537
## 2010 0.6721368 -0.3972934 -0.028029962 0.3278632 -1.115159 0.060042844
## 2011 0.6778317 -0.3888562 0.008437198 0.3221683 -1.132681 -0.017522499
## 2012 0.6861385 -0.3766758 0.012180429 0.3138615 -1.158804 -0.026122179
## 2013 0.6879765 -0.3740006 0.002675155 0.3120235 -1.164677 -0.005873249
## 2014 0.6788845 -0.3873043 -0.013303654 0.3211155 -1.135954 0.028722332
## 2015 0.6626401 -0.4115232 -0.024218974 0.3373599 -1.086605 0.049349387
## 2016 0.6564525 -0.4209049 -0.009381696 0.3435475 -1.068430 0.018175125
## 2017 0.6552944 -0.4226707 -0.001765742 0.3447056 -1.065065 0.003365344
## 2018 0.6574634 -0.4193662 0.003304495 0.3425366 -1.071377 -0.006312203
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1971 161.5126 5.084583 0.036842849 15590529697161 30.37768 0.0388236581
## 1972 170.0011 5.135805 0.051221749 16464037227845 30.43220 0.0545147810
## 1973 180.4091 5.195227 0.059422142 17506281338848 30.49358 0.0613813099
## 1974 187.9857 5.236366 0.041138846 17710067245613 30.50515 0.0115734987
## 1975 185.4911 5.223007 -0.013358994 17697175885619 30.50443 -0.0007281765
## 1976 195.9764 5.277994 0.054987341 18575157786378 30.55285 0.0484200128
## 1977 197.2036 5.284237 0.006242454 19302957928011 30.59128 0.0384332596
## 1978 202.8079 5.312259 0.028022528 20100133624249 30.63175 0.0404681183
## 1979 207.5558 5.335400 0.023140994 20936264031741 30.67250 0.0407563135
## 1980 216.7797 5.378882 0.043481411 21241474614448 30.68698 0.0144728437
## 1981 216.1742 5.376085 -0.002797066 21667525316148 30.70684 0.0198589902
## 1982 217.4605 5.382017 0.005932661 21653315319741 30.70618 -0.0006560351
## 1983 218.1386 5.385131 0.003113416 22244998198481 30.73314 0.0269586080
## 1984 223.5187 5.409495 0.024364439 23261571316609 30.77782 0.0446855160
## 1985 227.2108 5.425878 0.016383141 24099945677419 30.81323 0.0354068872
## 1986 231.3523 5.443942 0.018063436 24883743135981 30.84524 0.0320051177
## 1987 236.6888 5.466746 0.022804541 25756568471503 30.87971 0.0344749767
## 1988 247.8681 5.512897 0.046150552 26998035087089 30.92679 0.0470744080
## 1989 256.4671 5.547000 0.034103641 28051527184585 30.96506 0.0382789868
## 1990 264.5135 5.577892 0.030891898 28935273724605 30.99608 0.0310183194
## 1991 269.3622 5.596057 0.018164653 29375150816973 31.01117 0.0150877117
## 1992 273.4852 5.611248 0.015190565 29985738832736 31.03174 0.0205727897
## 1993 270.8546 5.601582 -0.009665362 30353049635589 31.04392 0.0121750983
## 1994 279.5950 5.633342 0.031759982 31319706175852 31.07527 0.0313504950
## 1995 286.2627 5.656910 0.023567793 32235436767527 31.10409 0.0288188784
## 1996 290.0456 5.670038 0.013128231 33195801582996 31.13344 0.0293570414
## 1997 301.0489 5.707273 0.037234558 34304971785394 31.16631 0.0328668841
## 1998 306.9550 5.726701 0.019428447 35242407143289 31.19327 0.0269598122
## 1999 317.8296 5.761515 0.034814233 36390281916775 31.22532 0.0320516528
## 2000 329.6423 5.798008 0.036492737 37858173483017 31.26487 0.0395451420
## 2001 333.2671 5.808944 0.010936143 38428352969215 31.27982 0.0149486451
## 2002 338.9556 5.825869 0.016924855 39010815428305 31.29486 0.0150433806
## 2003 342.4738 5.836195 0.010326033 39869256421739 31.31663 0.0217665848
## 2004 354.7042 5.871284 0.035089044 41189663570467 31.34921 0.0325818295
## 2005 362.9395 5.894236 0.022951951 42370214120600 31.37747 0.0282582775
## 2006 372.2030 5.919439 0.025203251 43699690297306 31.40836 0.0308953968
## 2007 385.8886 5.955549 0.036109322 44914624271646 31.43578 0.0274224343
## 2008 387.6132 5.960008 0.004459208 45086492054671 31.43960 0.0038192413
## 2009 379.7806 5.939594 -0.020414218 43583863418488 31.40571 -0.0338957139
## 2010 390.6586 5.967834 0.028240315 44875700731254 31.43492 0.0292094851
## 2011 397.2783 5.984637 0.016803010 45710585144001 31.45335 0.0184334316
## 2012 400.2151 5.992002 0.007365110 46299142632659 31.46614 0.0127935498
## 2013 402.0530 5.996584 0.004581768 46970604023819 31.48054 0.0143985165
## 2014 408.3995 6.012246 0.015661941 47924491758892 31.50065 0.0201047242
## 2015 416.7014 6.032370 0.020124036 49042799036426 31.52371 0.0230666826
## 2016 422.9982 6.047368 0.014998026 49884173941136 31.54072 0.0170104304
## 2017 431.3067 6.066819 0.019451514 51034658520172 31.56353 0.0228011838
## 2018 437.5969 6.081298 0.014478729 52180887422109 31.58574 0.0222113058
## Tax Yf Yf_l Yf_dl C C_l
## 1971 4.86828 156.6443 5.053978 0.0350988027 83.8251 4.428732
## 1972 5.05673 164.9444 5.105608 0.0516305080 88.7871 4.486241
## 1973 5.67673 174.7324 5.163255 0.0576472235 96.0232 4.564590
## 1974 6.58380 181.4019 5.200715 0.0374595227 98.7161 4.592248
## 1975 7.16433 178.3268 5.183618 -0.0170973579 99.5608 4.600769
## 1976 8.51714 187.4593 5.233562 0.0499438880 104.6226 4.650360
## 1977 9.56011 187.6435 5.234544 0.0009822909 107.3755 4.676332
## 1978 10.15023 192.6577 5.260915 0.0263710507 110.0559 4.700988
## 1979 11.16062 196.3952 5.280129 0.0192139705 115.7034 4.751030
## 1980 11.32029 205.4594 5.325248 0.0451196423 118.4310 4.774331
## 1981 12.06269 204.1115 5.318666 -0.0065820340 118.9259 4.778501
## 1982 13.21896 204.2415 5.319303 0.0006368509 121.8260 4.802594
## 1983 14.31058 203.8280 5.317277 -0.0020267140 121.6430 4.801091
## 1984 15.02211 208.4966 5.339923 0.0226460871 122.0919 4.804774
## 1985 15.79718 211.4136 5.353816 0.0138938128 125.3987 4.831498
## 1986 16.16539 215.1869 5.371507 0.0176905003 128.8081 4.858324
## 1987 17.44546 219.2433 5.390182 0.0186752552 131.0434 4.875529
## 1988 18.46913 229.3990 5.435463 0.0452804602 135.3914 4.908170
## 1989 19.95574 236.5114 5.465996 0.0305335259 139.8698 4.940712
## 1990 21.36880 243.1447 5.493657 0.0276604988 144.3100 4.971964
## 1991 22.31214 247.0501 5.509591 0.0159342488 148.6686 5.001720
## 1992 23.29305 250.1922 5.522229 0.0126382345 151.5054 5.020621
## 1993 24.50667 246.3479 5.506745 -0.0154843364 150.8262 5.016128
## 1994 26.39246 253.2025 5.534190 0.0274448355 154.4384 5.039795
## 1995 26.83540 259.4273 5.558477 0.0242867874 156.8724 5.055433
## 1996 28.34290 261.7027 5.567209 0.0087326174 159.9523 5.074876
## 1997 29.99650 271.0524 5.602312 0.0351030335 162.4046 5.090091
## 1998 31.14700 275.8080 5.619705 0.0173928113 167.5025 5.120998
## 1999 33.10970 284.7199 5.651506 0.0318009185 171.0412 5.141904
## 2000 34.57120 295.0711 5.687216 0.0357104543 175.8592 5.169684
## 2001 34.65710 298.6100 5.699138 0.0119220299 177.5180 5.179072
## 2002 35.82510 303.1305 5.714163 0.0150250317 178.6037 5.185169
## 2003 37.33240 305.1414 5.720775 0.0066118699 179.8858 5.192322
## 2004 39.64430 315.0599 5.752763 0.0319875037 181.8001 5.202908
## 2005 41.64150 321.2980 5.772369 0.0196062619 184.4258 5.217247
## 2006 43.67500 328.5280 5.794622 0.0222530288 187.6991 5.234840
## 2007 45.82920 340.0594 5.829120 0.0344982380 191.6263 5.255547
## 2008 47.02650 340.5867 5.830670 0.0015494105 194.2611 5.269203
## 2009 46.12430 333.6563 5.810111 -0.0205582975 195.3966 5.275031
## 2010 49.14710 341.5115 5.833381 0.0232699322 201.2762 5.304678
## 2011 51.24070 346.0376 5.846547 0.0131660863 203.0181 5.313295
## 2012 53.99120 346.2239 5.847086 0.0005382359 205.9973 5.327863
## 2013 54.71590 347.3371 5.850296 0.0032101025 209.4359 5.344418
## 2014 55.55570 352.8438 5.866025 0.0157296880 210.5920 5.349923
## 2015 56.80830 359.8931 5.885807 0.0197815768 213.9301 5.365649
## 2016 59.87520 363.1230 5.894742 0.0089345769 217.9659 5.384339
## 2017 61.84810 369.4586 5.912039 0.0172970710 221.9596 5.402495
## 2018 64.04190 373.5550 5.923065 0.0110265586 225.2146 5.417054
## C_dl W W_l W_dl R R_l
## 1971 0.048020464 100.7065 4.612210 0.0713938607 55.93783 4.024241
## 1972 0.057508884 107.8005 4.680282 0.0680718142 57.14390 4.045573
## 1973 0.078348460 114.9713 4.744682 0.0644002401 59.76110 4.090355
## 1974 0.027658225 123.5262 4.816453 0.0717708298 57.87572 4.058298
## 1975 0.008520459 124.8727 4.827295 0.0108414832 53.45410 3.978823
## 1976 0.049591077 133.2187 4.891992 0.0646978258 54.24052 3.993428
## 1977 0.025972447 134.0495 4.898209 0.0062168368 53.59397 3.981437
## 1978 0.024656382 137.7746 4.925619 0.0274099629 54.88304 4.005204
## 1979 0.050041602 139.8679 4.940699 0.0150793093 56.52726 4.034723
## 1980 0.023300492 148.7346 5.002164 0.0614651256 56.72479 4.038211
## 1981 0.004170098 148.2826 4.999120 -0.0030439492 55.82894 4.022292
## 1982 0.024093187 145.9601 4.983333 -0.0157866285 58.28147 4.065284
## 1983 -0.001503272 144.2398 4.971477 -0.0118560632 59.58824 4.087458
## 1984 0.003683514 145.8752 4.982752 0.0112745945 62.62137 4.137107
## 1985 0.026724221 146.7595 4.988795 0.0060436653 64.65411 4.169052
## 1986 0.026825439 148.4233 5.000068 0.0112729588 66.76362 4.201158
## 1987 0.017204866 150.6314 5.014836 0.0147676942 68.61192 4.228466
## 1988 0.032641277 153.2685 5.032191 0.0173553550 76.13047 4.332449
## 1989 0.032542147 157.2056 5.057555 0.0253632657 79.30575 4.373311
## 1990 0.031251774 164.2510 5.101396 0.0438412181 78.89369 4.368101
## 1991 0.029755904 171.3951 5.143972 0.0425757562 75.65494 4.326183
## 1992 0.018901600 174.1681 5.160021 0.0160496109 76.02401 4.331049
## 1993 -0.004493087 173.6781 5.157204 -0.0028173988 72.66980 4.285926
## 1994 0.023667131 177.0050 5.176178 0.0189744947 76.19749 4.333329
## 1995 0.015637425 179.0972 5.187928 0.0117502179 80.33014 4.386145
## 1996 0.019442910 181.9967 5.203989 0.0160602275 79.70598 4.378345
## 1997 0.015215107 187.9928 5.236404 0.0324148130 83.05963 4.419559
## 1998 0.030907524 190.0365 5.247216 0.0108128066 85.77147 4.451686
## 1999 0.020906187 198.1217 5.288882 0.0416652233 86.59819 4.461279
## 2000 0.027779212 201.8353 5.307452 0.0185702531 93.23585 4.535132
## 2001 0.009388337 207.2192 5.333777 0.0263255112 91.39077 4.515145
## 2002 0.006097373 212.4597 5.358752 0.0249751037 90.67078 4.507235
## 2003 0.007152820 211.6400 5.354887 -0.0038658204 93.50143 4.537977
## 2004 0.010585527 213.2415 5.362425 0.0075387704 101.81839 4.623191
## 2005 0.014339483 213.8500 5.365275 0.0028495343 107.44799 4.677007
## 2006 0.017592934 217.6771 5.383013 0.0177380722 110.85086 4.708186
## 2007 0.020706973 223.6141 5.409922 0.0269086194 116.44535 4.757422
## 2008 0.013656009 230.3457 5.439581 0.0296597923 110.24097 4.702669
## 2009 0.005828209 230.6377 5.440848 0.0012666286 103.01862 4.634910
## 2010 0.029646755 229.5424 5.436088 -0.0047600294 111.96905 4.718223
## 2011 0.008617043 234.5553 5.457691 0.0216032840 111.48233 4.713866
## 2012 0.014567924 237.5576 5.470410 0.0127186653 108.66635 4.688282
## 2013 0.016554664 238.9598 5.476295 0.0058852572 108.37734 4.685619
## 2014 0.005504886 239.5402 5.478721 0.0024260338 113.30361 4.730071
## 2015 0.015726714 238.4796 5.474284 -0.0044373970 121.41349 4.799202
## 2016 0.018689302 238.3730 5.473837 -0.0004471196 124.75000 4.826312
## 2017 0.018156755 242.1042 5.489368 0.0155313290 127.35445 4.846974
## 2018 0.014558342 245.5987 5.503699 0.0143310539 127.95626 4.851688
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1971 -0.027097706 38.6750 3.655193 -0.01918898100 9.6047 2.262253
## 1972 0.021331673 39.9879 3.688577 0.03338351189 10.2366 2.325970
## 1973 0.044782322 42.7964 3.756454 0.06787707855 11.6323 2.453786
## 1974 -0.032056965 45.7657 3.823535 0.06708091535 14.3056 2.660651
## 1975 -0.079474666 44.9111 3.804685 -0.01884992202 15.8638 2.764040
## 1976 0.014604971 46.7046 3.843843 0.03915768066 17.5083 2.862675
## 1977 -0.011991648 46.7242 3.844262 0.00041957085 18.8510 2.936566
## 1978 0.023767782 48.0158 3.871530 0.02726789167 20.0234 2.996902
## 1979 0.029518637 46.7091 3.843939 -0.02759111691 20.7752 3.033760
## 1980 0.003488250 49.3416 3.898768 0.05482853212 22.8194 3.127611
## 1981 -0.015918916 41.6770 3.729949 -0.16881812074 20.7808 3.034029
## 1982 0.042991857 40.0099 3.689127 -0.04082249440 21.1699 3.052580
## 1983 0.022174098 37.8845 3.634542 -0.05458486603 20.6874 3.029525
## 1984 0.049648237 38.7718 3.657693 0.02315112079 21.9283 3.087778
## 1985 0.031945077 40.5032 3.701381 0.04368780508 23.8997 3.173866
## 1986 0.032106735 41.7454 3.731589 0.03020828225 24.8082 3.211174
## 1987 0.027307898 43.8108 3.779880 0.04829109674 26.4205 3.274140
## 1988 0.103982311 50.8284 3.928455 0.14857489116 31.1784 3.439726
## 1989 0.040862087 56.8023 4.039577 0.11112156438 36.6324 3.600933
## 1990 -0.005209339 61.6763 4.121900 0.08232292256 40.7899 3.708435
## 1991 -0.041918571 59.1205 4.079578 -0.04232200645 39.9014 3.686411
## 1992 0.004866494 59.7619 4.090368 0.01079060018 41.3503 3.722080
## 1993 -0.045123312 58.2569 4.064863 -0.02550579379 41.0845 3.715631
## 1994 0.047402653 58.4805 4.068693 0.00383082497 42.2432 3.743443
## 1995 0.052816304 60.4648 4.102061 0.03336801220 44.6905 3.799761
## 1996 -0.007800312 60.7992 4.107577 0.00551525346 45.3960 3.815424
## 1997 0.041214230 64.8723 4.172421 0.06484409113 48.9758 3.891326
## 1998 0.032127663 66.3331 4.194689 0.02226829634 50.6666 3.925267
## 1999 0.009592478 69.0496 4.234825 0.04013606847 53.7112 3.983622
## 2000 0.073853343 72.4810 4.283324 0.04849937161 57.7028 4.055306
## 2001 -0.019987742 73.6597 4.299456 0.01613137969 59.1853 4.080673
## 2002 -0.007909346 70.6172 4.257274 -0.04218209735 56.5542 4.035199
## 2003 0.030741538 70.5239 4.255952 -0.00132208143 57.6297 4.054038
## 2004 0.085214062 76.8922 4.342404 0.08645278148 63.7030 4.154232
## 2005 0.053816127 81.3039 4.398194 0.05578954494 68.6854 4.229537
## 2006 0.031178782 82.8531 4.417069 0.01887517431 72.5915 4.284848
## 2007 0.049236369 88.8863 4.487358 0.07028886472 80.0392 4.382517
## 2008 -0.054753485 90.5813 4.506248 0.01888976507 84.8339 4.440695
## 2009 -0.067758834 84.5824 4.437726 -0.06852158283 78.9421 4.368715
## 2010 0.083312777 84.5882 4.437795 0.00006856983 80.3378 4.386240
## 2011 -0.004356413 89.0039 4.488680 0.05088541202 86.5116 4.460279
## 2012 -0.025583943 89.5813 4.495147 0.00646640384 88.6730 4.484955
## 2013 -0.002663147 87.5481 4.472188 -0.02295823623 87.1133 4.467210
## 2014 0.044452020 92.2377 4.524369 0.05218058409 91.9083 4.520791
## 2015 0.069130963 95.6889 4.561102 0.03673336357 95.6889 4.561102
## 2016 0.027109702 99.3217 4.598364 0.03726177261 99.9038 4.604208
## 2017 0.020662415 100.5742 4.610896 0.01253168666 103.1723 4.636400
## 2018 0.004714355 104.5710 4.649866 0.03897050300 109.5664 4.696531
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1971 0.051585409 7.6092 2.029358 0.009135859 0.7922371 -0.23289452
## 1972 0.063716971 8.0125 2.081003 0.051644781 0.7827306 -0.24496671
## 1973 0.127816178 9.4573 2.246787 0.165784108 0.8130206 -0.20699878
## 1974 0.206865358 11.9609 2.481643 0.234856066 0.8360991 -0.17900807
## 1975 0.103388715 12.9363 2.560037 0.078394317 0.8154604 -0.20400247
## 1976 0.098635270 14.1623 2.650584 0.090546191 0.8088906 -0.21209155
## 1977 0.073890909 15.3034 2.728075 0.077491521 0.8118084 -0.20849094
## 1978 0.060335627 16.3306 2.793041 0.064965623 0.8155758 -0.20386094
## 1979 0.036858378 16.6975 2.815259 0.022218359 0.8037227 -0.21850096
## 1980 0.093851084 18.1211 2.897077 0.081817998 0.7941094 -0.23053405
## 1981 -0.093581568 15.8252 2.761604 -0.135473399 0.7615299 -0.27242588
## 1982 0.018550878 16.1807 2.783819 0.022215568 0.7643258 -0.26876119
## 1983 -0.023055542 16.0055 2.772932 -0.010886761 0.7736835 -0.25659241
## 1984 0.058253221 17.7774 2.877928 0.104995575 0.8107058 -0.20985005
## 1985 0.086087867 19.7423 2.982764 0.104835554 0.8260480 -0.19110236
## 1986 0.037308337 20.8523 3.037464 0.054700712 0.8405406 -0.17370999
## 1987 0.062965980 22.7824 3.125988 0.088524054 0.8623001 -0.14815192
## 1988 0.165585323 27.1322 3.300721 0.174732906 0.8702243 -0.13900433
## 1989 0.161207547 33.2731 3.504749 0.204028048 0.9082970 -0.09618383
## 1990 0.107501407 37.4789 3.623778 0.119028845 0.9188279 -0.08465639
## 1991 -0.022023091 36.2135 3.589432 -0.034346130 0.9075747 -0.09697943
## 1992 0.035668266 37.3038 3.619095 0.029663221 0.9021410 -0.10298448
## 1993 -0.006448755 36.4120 3.594898 -0.024196807 0.8862710 -0.12073253
## 1994 0.027812473 37.4641 3.623383 0.028484750 0.8868670 -0.12006025
## 1995 0.056317557 40.0189 3.689352 0.065968701 0.8954677 -0.11040911
## 1996 0.015663044 40.9414 3.712142 0.022789934 0.9018724 -0.10328222
## 1997 0.075902303 44.2446 3.789733 0.077591554 0.9033972 -0.10159297
## 1998 0.033940618 45.8777 3.825979 0.036245830 0.9054821 -0.09928776
## 1999 0.058354629 48.0157 3.871528 0.045548881 0.8939607 -0.11209351
## 2000 0.071684153 51.6048 3.943615 0.072086651 0.8943206 -0.11169101
## 2001 0.025367501 53.5790 3.981157 0.037542509 0.9052755 -0.09951600
## 2002 -0.045473730 50.9124 3.930107 -0.051050691 0.9002408 -0.10509296
## 2003 0.018838589 51.7392 3.946216 0.016109206 0.8977871 -0.10782235
## 2004 0.100193597 57.7271 4.055727 0.109511019 0.9061912 -0.09850492
## 2005 0.075305001 62.2838 4.131701 0.075974626 0.9067982 -0.09783530
## 2006 0.055311177 66.3798 4.195393 0.063691433 0.9144294 -0.08945504
## 2007 0.097668680 73.2217 4.293492 0.098099032 0.9148230 -0.08902469
## 2008 0.058178712 77.6587 4.352324 0.058831759 0.9154206 -0.08837164
## 2009 -0.071980555 71.0426 4.263280 -0.089043887 0.8999330 -0.10543498
## 2010 0.017525573 72.1898 4.279299 0.016019065 0.8985783 -0.10694148
## 2011 0.074038264 77.5169 4.350496 0.071197215 0.8960290 -0.10978253
## 2012 0.024676937 79.0801 4.370461 0.019965286 0.8918171 -0.11449418
## 2013 -0.017745876 77.9772 4.356416 -0.014044787 0.8951239 -0.11079309
## 2014 0.053581771 81.5800 4.401584 0.045167658 0.8876239 -0.11920721
## 2015 0.040310963 85.3014 4.446191 0.044606733 0.8914451 -0.11491144
## 2016 0.043105419 89.5409 4.494696 0.048504637 0.8962712 -0.10951222
## 2017 0.032192683 92.4583 4.526758 0.032062228 0.8961543 -0.10964267
## 2018 0.060130352 97.3974 4.578800 0.052041784 0.8889349 -0.11773124
## Ips_dl I I_l I_dl r r_l
## 1971 -0.0424495495 30.63977 3.422299 -0.061638530 2.3310893 1.9353486
## 1972 -0.0120721905 31.29975 3.443610 0.021311321 1.5018693 1.8078360
## 1973 0.0379679297 34.79436 3.549455 0.105845008 0.4024518 1.6090020
## 1974 0.0279907088 38.26466 3.644527 0.095071624 -2.7741198 0.5995227
## 1975 -0.0249943984 36.62322 3.600683 -0.043844320 -3.5953692 0.0000000
## 1976 -0.0080890789 37.77891 3.631751 0.031068602 1.4054382 1.7918940
## 1977 0.0036006128 37.93110 3.635771 0.004020184 1.1732495 1.7524327
## 1978 0.0046299958 39.16052 3.667669 0.031897887 4.6805828 2.2274252
## 1979 -0.0146400189 37.54116 3.625438 -0.042231136 4.4686381 2.2043113
## 1980 -0.0120330862 39.18263 3.668233 0.042795446 8.0611050 2.5381689
## 1981 -0.0418918311 31.73828 3.457524 -0.210709952 7.8957370 2.5250169
## 1982 0.0036646898 30.58060 3.420366 -0.037157805 5.4460678 2.3067202
## 1983 0.0121687814 29.31061 3.377950 -0.042416085 5.9918898 2.3596513
## 1984 0.0467423537 31.43252 3.447843 0.069893475 6.4494571 2.4019621
## 1985 0.0187476877 33.45759 3.510279 0.062435493 6.0617355 2.3662268
## 1986 0.0173923749 35.08870 3.557879 0.047600657 5.6745159 2.3292158
## 1987 0.0255580738 37.77806 3.631728 0.073849171 6.3883032 2.3964098
## 1988 0.0091475830 44.23211 3.789451 0.157722474 5.7170085 2.3333449
## 1989 0.0428205010 51.59336 3.943393 0.153942065 3.6857213 2.1139747
## 1990 0.0115274382 56.66991 4.037243 0.093850361 7.0007086 2.4506669
## 1991 -0.0123230397 53.65627 3.982598 -0.054645046 6.2340454 2.3822660
## 1992 -0.0060050449 53.91366 3.987384 0.004785555 5.0524530 2.2667322
## 1993 -0.0177480523 51.63140 3.944130 -0.043253846 3.1124796 2.0422391
## 1994 0.0006722778 51.86443 3.948633 0.004503103 5.5396772 2.3159994
## 1995 0.0096511445 54.14428 3.991652 0.043019157 6.1837413 2.3776100
## 1996 0.0071268891 54.83312 4.004294 0.012642143 5.9848841 2.3589894
## 1997 0.0016892510 58.60545 4.070828 0.066533342 4.9548236 2.2565613
## 1998 0.0023052123 60.06344 4.095401 0.024573509 2.8921676 2.0132399
## 1999 -0.0128057490 61.72763 4.122732 0.027330320 4.1263801 2.1658198
## 2000 0.0004024973 64.82125 4.171633 0.048901869 3.5047725 2.0918816
## 2001 0.0121750078 66.68232 4.199940 0.028306387 3.0860051 2.0387985
## 2002 -0.0055769616 63.57249 4.152181 -0.047759059 3.2959432 2.0657625
## 2003 -0.0027293836 63.31545 4.148129 -0.004051465 2.2875590 1.9290442
## 2004 0.0093174218 69.67904 4.243900 0.095770203 2.1930018 1.9152110
## 2005 0.0006696247 73.72623 4.300359 0.056459170 1.3194412 1.7774594
## 2006 0.0083802568 75.76331 4.327614 0.027255431 1.5110753 1.8093447
## 2007 0.0004303522 81.31523 4.398333 0.070719217 2.3528654 1.9384876
## 2008 0.0006530470 82.91999 4.417876 0.019542812 2.4641059 1.9543707
## 2009 -0.0170633327 76.11849 4.332291 -0.085584916 3.3489828 2.0724612
## 2010 -0.0015065080 76.00912 4.330853 -0.001437938 1.5387994 1.8138746
## 2011 -0.0028410486 79.75007 4.378898 0.048044363 2.3796758 1.9423388
## 2012 -0.0047116514 79.89014 4.380652 0.001754752 1.0189115 1.7253135
## 2013 0.0037010893 78.36640 4.361395 -0.019257147 1.1244330 1.7439342
## 2014 -0.0084141130 81.87238 4.405162 0.043766471 0.7202668 1.6706527
## 2015 0.0042957697 85.30140 4.446191 0.041029133 -0.4924032 1.4117101
## 2016 0.0053992184 89.01918 4.488852 0.042660991 -1.2416020 1.2100843
## 2017 -0.0001304553 90.13000 4.501253 0.012401231 -0.9812419 1.2848504
## 2018 -0.0080885678 92.95681 4.532135 0.030881935 -0.7323261 1.3514552
## r_dl P P_l P_dl Pm Pm_l
## 1971 -0.08649878 22.79563 3.126569 0.047601496 28.05853 3.334293
## 1972 -0.12751268 24.03940 3.179694 0.053125381 28.10951 3.336108
## 1973 -0.19883395 25.73877 3.247998 0.068304221 30.18126 3.407221
## 1974 -1.00947927 28.79486 3.360197 0.112198629 38.44284 3.649173
## 1975 -0.59952275 32.41357 3.478577 0.118380249 41.01214 3.713868
## 1976 1.79189403 34.86989 3.551624 0.073046508 43.68639 3.777037
## 1977 -0.03946137 37.48470 3.623933 0.072309231 45.31698 3.813682
## 1978 0.47499259 39.00636 3.663725 0.039791828 45.91947 3.826889
## 1979 -0.02311392 40.95590 3.712496 0.048771293 49.95301 3.911083
## 1980 0.33385755 42.41087 3.747405 0.034908761 56.86948 4.040759
## 1981 -0.01315199 44.59017 3.797513 0.050108702 64.49968 4.166660
## 1982 -0.21829666 47.96635 3.870500 0.072986290 73.35565 4.295319
## 1983 0.05293107 50.65815 3.925100 0.054600433 78.91814 4.368411
## 1984 0.04231081 53.41381 3.978069 0.052969145 85.23978 4.445468
## 1985 -0.03573533 55.88566 4.023308 0.045238559 86.90043 4.464763
## 1986 -0.03701094 57.44866 4.050892 0.027583848 77.93667 4.355897
## 1987 0.06719401 58.41616 4.067593 0.016700868 74.57888 4.311857
## 1988 -0.06306495 59.68320 4.089051 0.021458022 76.22742 4.333721
## 1989 -0.21937023 62.54648 4.135910 0.046859328 81.10756 4.395776
## 1990 0.33669226 64.30554 4.163646 0.027735814 79.98599 4.381852
## 1991 -0.06840091 66.15537 4.192006 0.028360266 79.43297 4.374914
## 1992 -0.11553379 68.42087 4.225678 0.033671929 77.22950 4.346782
## 1993 -0.22449308 71.15308 4.264834 0.039155632 75.06801 4.318394
## 1994 0.27376022 72.64324 4.285560 0.020726761 76.39610 4.335932
## 1995 0.06161069 73.53005 4.297694 0.012133780 77.66462 4.352400
## 1996 -0.01862068 73.88049 4.302449 0.004754604 77.24369 4.346965
## 1997 -0.10242802 74.44023 4.309997 0.007547811 78.36619 4.361393
## 1998 -0.24332146 75.78433 4.327892 0.017895036 76.96251 4.343318
## 1999 0.15257995 76.23821 4.333863 0.005971204 77.64279 4.352119
## 2000 -0.07393827 77.77412 4.353809 0.019945946 83.57512 4.425746
## 2001 -0.05308308 79.31623 4.373443 0.019634039 84.68496 4.438938
## 2002 0.02696398 80.61702 4.389710 0.016267005 83.17272 4.420919
## 2003 -0.13671829 82.10853 4.408042 0.018332119 82.32367 4.410659
## 2004 -0.01383317 83.68091 4.427011 0.018968968 84.73611 4.439542
## 2005 -0.13775156 85.42404 4.447628 0.020616746 88.49919 4.482993
## 2006 0.03188525 87.35865 4.470022 0.022394397 91.43654 4.515645
## 2007 0.12914292 89.04614 4.489155 0.019132644 93.28957 4.535708
## 2008 0.01588309 90.74590 4.508063 0.018908677 99.48818 4.600039
## 2009 0.11809054 91.22973 4.513381 0.005317454 91.24563 4.513555
## 2010 -0.25858668 92.95587 4.532125 0.018744079 97.10989 4.575843
## 2011 0.12846423 94.63588 4.550037 0.017911782 103.72124 4.641707
## 2012 -0.21702530 96.49179 4.569458 0.019421246 106.65711 4.669619
## 2013 0.01862075 97.71846 4.582090 0.012632596 106.28494 4.666124
## 2014 -0.07328156 98.67870 4.591869 0.009778587 103.91175 4.643542
## 2015 -0.25894254 100.00000 4.605170 0.013301112 100.00000 4.605170
## 2016 -0.20162588 101.74325 4.622452 0.017282260 98.30711 4.588096
## 2017 0.07476616 103.49130 4.639488 0.017035081 101.07240 4.615837
## 2018 0.06660483 105.07840 4.654707 0.015219165 104.28453 4.647123
## Pm_dl Px Px_l Px_dl X X_l
## 1971 0.029803525 29.65487 3.389626 0.0202435913 53.8461 3.986130
## 1972 0.001815040 30.18331 3.407289 0.0176627659 59.7996 4.090999
## 1973 0.071113262 32.71765 3.487915 0.0806254160 68.2452 4.223107
## 1974 0.241951480 40.71010 3.706476 0.2185616398 70.7740 4.259492
## 1975 0.064695611 42.58799 3.751572 0.0450959188 64.9101 4.173003
## 1976 0.063168312 45.37096 3.814872 0.0633001125 73.2621 4.294043
## 1977 0.036645228 46.89114 3.847829 0.0329565263 74.8299 4.315218
## 1978 0.013207438 47.47732 3.860252 0.0124233223 76.5402 4.337816
## 1979 0.084193658 51.79221 3.947240 0.0869876712 81.8951 4.405439
## 1980 0.129675929 56.61204 4.036222 0.0889817599 81.3913 4.399268
## 1981 0.125901521 61.92830 4.125977 0.0897555897 84.1517 4.432621
## 1982 0.128659197 70.07309 4.249539 0.1235616247 86.4901 4.460030
## 1983 0.073091685 75.19084 4.320029 0.0704905528 88.7619 4.485958
## 1984 0.077057017 81.37199 4.399031 0.0790018062 94.5065 4.548669
## 1985 0.019294737 83.63502 4.426462 0.0274311694 94.8208 4.551989
## 1986 -0.108866309 78.15337 4.358673 -0.0677891953 97.4164 4.578995
## 1987 -0.044039238 75.54239 4.324694 -0.0339792342 102.2542 4.627462
## 1988 0.021863804 78.39647 4.361779 0.0370849927 112.1042 4.719429
## 1989 0.062055034 84.10257 4.432037 0.0702581815 121.2426 4.797793
## 1990 -0.013924661 82.65989 4.414734 -0.0173026489 126.7881 4.842517
## 1991 -0.006938025 82.14153 4.408444 -0.0062906656 130.6620 4.872614
## 1992 -0.028132026 81.24126 4.397423 -0.0110205390 135.4532 4.908626
## 1993 -0.028387053 80.18421 4.384327 -0.0130966162 134.8540 4.904193
## 1994 0.017537236 81.23066 4.397293 0.0129661272 146.0842 4.984183
## 1995 0.016468105 82.49903 4.412786 0.0154937351 153.3766 5.032896
## 1996 -0.005434623 81.44190 4.399890 -0.0128966281 161.0073 5.081450
## 1997 0.014427379 82.35834 4.411080 0.0111898370 176.2878 5.172118
## 1998 -0.018074160 81.31769 4.398364 -0.0127161339 183.5822 5.212663
## 1999 0.008800281 81.27466 4.397834 -0.0005292980 192.4846 5.260016
## 2000 0.073627239 85.97049 4.454004 0.0561698199 216.3468 5.376883
## 2001 0.013192063 87.16490 4.467802 0.0137976340 217.1693 5.380677
## 2002 -0.018018573 86.15345 4.456130 -0.0116717209 224.6581 5.414580
## 2003 -0.010260669 85.03801 4.443098 -0.0130316911 228.2871 5.430604
## 2004 0.028883101 86.81576 4.463788 0.0206898708 242.4258 5.490696
## 2005 0.043451606 90.03800 4.500232 0.0364436838 255.7861 5.544342
## 2006 0.032651787 92.36783 4.525779 0.0255469348 270.3675 5.599782
## 2007 0.020063117 94.38549 4.547387 0.0216085359 285.0648 5.652717
## 2008 0.064330516 98.02710 4.585244 0.0378566654 290.2177 5.670631
## 2009 -0.086483704 92.61977 4.528503 -0.0567413350 257.4948 5.551000
## 2010 0.062288075 96.85876 4.573254 0.0447511743 284.3749 5.650293
## 2011 0.065863717 101.96642 4.624644 0.0513897608 297.5451 5.695566
## 2012 0.027912144 104.86507 4.652674 0.0280308810 296.0965 5.690685
## 2013 -0.003495452 104.88280 4.652844 0.0001691116 297.1407 5.694206
## 2014 -0.022581697 102.88510 4.633613 -0.0192307952 312.5824 5.744868
## 2015 -0.038371752 100.00000 4.605170 -0.0284425999 324.2157 5.781409
## 2016 -0.017073800 98.91368 4.594248 -0.0109226657 345.3669 5.844607
## 2017 0.027740743 101.04263 4.615543 0.0212950075 363.6182 5.896104
## 2018 0.031285943 103.17887 4.636464 0.0209216008 368.0013 5.908086
## X_dl M M_l M_dl rulc rulc_l
## 1971 0.044064792 54.1980 3.992644 0.035796787 0.6235210 -0.4723729
## 1972 0.104868994 59.3842 4.084028 0.091384190 0.6341163 -0.4555228
## 1973 0.132108130 70.4217 4.254501 0.170473257 0.6372809 -0.4505448
## 1974 0.036384600 73.5318 4.297718 0.043216511 0.6571041 -0.4199128
## 1975 -0.086488466 66.8533 4.202501 -0.095217299 0.6732004 -0.3957123
## 1976 0.121040186 75.1335 4.319267 0.116765865 0.6797693 -0.3860018
## 1977 0.021174116 78.7180 4.365872 0.046605315 0.6797519 -0.3860274
## 1978 0.022598555 80.8185 4.392206 0.026334054 0.6793356 -0.3866400
## 1979 0.067623067 88.0565 4.477979 0.085772754 0.6738810 -0.3947017
## 1980 -0.006170772 85.5830 4.449487 -0.028491989 0.6861096 -0.3767180
## 1981 0.033352735 83.9268 4.429945 -0.019541675 0.6859402 -0.3769648
## 1982 0.027408834 85.0638 4.443402 0.013456573 0.6712027 -0.3986841
## 1983 0.025927547 84.0156 4.431002 -0.012399067 0.6612300 -0.4136536
## 1984 0.062711111 89.3863 4.492967 0.061964931 0.6526310 -0.4267435
## 1985 0.003320179 89.7503 4.497031 0.004063943 0.6459179 -0.4370829
## 1986 0.027005780 93.8689 4.541899 0.044867758 0.6415466 -0.4438734
## 1987 0.048467296 100.2078 4.607246 0.065346902 0.6364113 -0.4519103
## 1988 0.091966926 110.6496 4.706368 0.099122422 0.6183470 -0.4807055
## 1989 0.078364701 121.3754 4.798888 0.092519771 0.6129660 -0.4894458
## 1990 0.044723692 127.2848 4.846427 0.047538873 0.6209551 -0.4764965
## 1991 0.030096647 130.9242 4.874619 0.028191434 0.6362998 -0.4520854
## 1992 0.036012357 136.3144 4.914964 0.040345453 0.6368467 -0.4512264
## 1993 -0.004433481 135.8225 4.911349 -0.003615096 0.6412227 -0.4443784
## 1994 0.079990456 145.7110 4.981625 0.070276322 0.6330766 -0.4571639
## 1995 0.048713167 152.4890 5.027092 0.045467254 0.6256392 -0.4689815
## 1996 0.048553371 160.9584 5.081146 0.054053484 0.6274762 -0.4660495
## 1997 0.090668181 174.1607 5.159978 0.078832490 0.6244592 -0.4708692
## 1998 0.040544637 182.9700 5.209322 0.049343769 0.6191022 -0.4794848
## 1999 0.047353627 189.1421 5.242499 0.033176379 0.6233583 -0.4726339
## 2000 0.116866525 213.7599 5.364853 0.122354838 0.6122857 -0.4905563
## 2001 0.003794558 212.1450 5.357270 -0.007583419 0.6217812 -0.4751670
## 2002 0.033902457 214.3852 5.367774 0.010504394 0.6268069 -0.4671167
## 2003 0.016024356 217.5141 5.382264 0.014489279 0.6179742 -0.4813086
## 2004 0.060091637 231.2320 5.443422 0.061157860 0.6011812 -0.5088588
## 2005 0.053645864 246.0923 5.505707 0.062285133 0.5892167 -0.5289613
## 2006 0.055440596 258.7460 5.555847 0.050140217 0.5848345 -0.5364264
## 2007 0.052934378 273.1823 5.610139 0.054292452 0.5794783 -0.5456271
## 2008 0.017914808 283.5769 5.647483 0.037344001 0.5942670 -0.5204266
## 2009 -0.119631805 252.7836 5.532534 -0.114949552 0.6072919 -0.4987457
## 2010 0.099293912 277.2732 5.625003 0.092469515 0.5875781 -0.5317461
## 2011 0.045272372 292.8699 5.679728 0.054725181 0.5904054 -0.5269458
## 2012 -0.004880395 290.8936 5.672958 -0.006770919 0.5935747 -0.5215922
## 2013 0.003520349 290.2715 5.670817 -0.002140873 0.5943489 -0.5202887
## 2014 0.050662350 306.3185 5.724625 0.053808718 0.5865340 -0.5335247
## 2015 0.036540921 318.3068 5.763016 0.038390287 0.5723034 -0.5580861
## 2016 0.063198295 342.2733 5.835610 0.072593843 0.5635320 -0.5735312
## 2017 0.051497086 357.3561 5.878733 0.043123223 0.5613271 -0.5774514
## 2018 0.011982055 364.8191 5.899402 0.020668851 0.5612442 -0.5775991
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1971 0.03455101170 14.21355 2.654196 0.0821525073 63.97218 4.158448
## 1972 0.01685006475 15.24377 2.724171 0.0699754455 66.58298 4.198449
## 1973 0.00497809788 16.40282 2.797454 0.0732823193 69.31438 4.238652
## 1974 0.03063198355 18.92122 2.940284 0.1428306121 70.45426 4.254964
## 1975 0.02420047686 21.82083 3.082865 0.1425807259 69.10254 4.235591
## 1976 0.00971048440 23.70348 3.165622 0.0827569927 72.13399 4.278525
## 1977 -0.00002561692 25.48030 3.237905 0.0722836136 71.79701 4.273843
## 1978 -0.00061256511 26.49841 3.277085 0.0391792631 72.81040 4.287859
## 1979 -0.00806168426 27.59941 3.317794 0.0407096088 73.24474 4.293806
## 1980 0.01798371433 29.09851 3.370687 0.0528924752 75.57187 4.325084
## 1981 -0.00024688281 30.58619 3.420549 0.0498618189 75.69005 4.326647
## 1982 -0.02171928925 32.19514 3.471816 0.0512670010 76.32440 4.334993
## 1983 -0.01496947891 33.49669 3.511447 0.0396309538 76.90819 4.342612
## 1984 -0.01308984436 34.85951 3.551326 0.0398793011 78.51727 4.363319
## 1985 -0.01033947613 36.09755 3.586225 0.0348990828 79.21750 4.372197
## 1986 -0.00679047723 36.85600 3.607018 0.0207933703 79.95024 4.381404
## 1987 -0.00803684692 37.17670 3.615682 0.0086640212 80.94490 4.393769
## 1988 -0.02879519675 36.90493 3.608345 -0.0073371743 82.97147 4.418497
## 1989 -0.00874037572 38.33886 3.646464 0.0381189525 83.98709 4.430663
## 1990 0.01294931965 39.93085 3.687149 0.0406851332 84.83749 4.440738
## 1991 0.02441110359 42.09465 3.739921 0.0527713692 85.23638 4.445428
## 1992 0.00085904614 43.57361 3.774452 0.0345309753 85.68671 4.450698
## 1993 0.00684796277 45.62497 3.820455 0.0460035946 84.44120 4.436055
## 1994 -0.01278548725 45.98873 3.828396 0.0079412733 86.66826 4.462088
## 1995 -0.01181757531 46.00328 3.828713 0.0003162049 87.16505 4.467803
## 1996 0.00293199620 46.35825 3.836399 0.0076866002 87.52479 4.471922
## 1997 -0.00481974500 46.48489 3.839127 0.0027280658 89.71284 4.496614
## 1998 -0.00861564046 46.91825 3.848407 0.0092793951 89.78293 4.497395
## 1999 0.00685099019 47.52372 3.861229 0.0128221947 91.43828 4.515664
## 2000 -0.01792248393 47.61998 3.863252 0.0020234620 92.88329 4.531344
## 2001 0.01538936776 49.31734 3.898276 0.0350234068 92.38313 4.525944
## 2002 0.00805024897 50.53131 3.922593 0.0243172540 93.30660 4.535891
## 2003 -0.01419185347 50.74095 3.926733 0.0041402657 93.90058 4.542237
## 2004 -0.02755027387 50.30739 3.918152 -0.0085813062 96.06123 4.564986
## 2005 -0.02010241672 50.33327 3.918666 0.0005143293 96.74760 4.572106
## 2006 -0.00746517844 51.09035 3.933596 0.0149292182 97.87080 4.583648
## 2007 -0.00920070304 51.60030 3.943528 0.0099319410 99.62297 4.601393
## 2008 0.02520058388 53.92730 3.987637 0.0441092610 98.20775 4.587085
## 2009 0.02168084621 55.40307 4.014635 0.0269983004 95.85472 4.562834
## 2010 -0.03300034467 54.61884 4.000379 -0.0142562661 97.80251 4.582950
## 2011 0.00480027413 55.87354 4.023091 0.0227120560 98.13164 4.586310
## 2012 0.00535355538 57.27508 4.047866 0.0247748009 98.10682 4.586057
## 2013 0.00130348904 58.07886 4.061802 0.0139360853 98.34336 4.588465
## 2014 -0.01323590752 57.87841 4.058344 -0.0034573204 99.13066 4.596439
## 2015 -0.02456143313 57.23034 4.047084 -0.0112603212 100.00000 4.605170
## 2016 -0.01544514511 57.33557 4.048921 0.0018371146 100.05865 4.605757
## 2017 -0.00392018526 58.09247 4.062036 0.0131148961 100.34450 4.608609
## 2018 -0.00014767517 58.97464 4.077108 0.0150714903 100.20485 4.607217
## Tau_dl dPxdPm dPdPm Trade
## 1971 0.0194495106 -0.0095599341 0.0177979702 0.6689515
## 1972 0.0400006624 0.0158477261 0.0513103410 0.7010766
## 1973 0.0402033637 0.0095121535 -0.0028090410 0.7686248
## 1974 0.0163112886 -0.0233898405 -0.1297528518 0.7676424
## 1975 -0.0193721596 -0.0195996918 0.0536846385 0.7103489
## 1976 0.0429338120 0.0001318000 0.0098781958 0.7572116
## 1977 -0.0046825317 -0.0036887016 0.0356640026 0.7786263
## 1978 0.0140159739 -0.0007841158 0.0265843901 0.7759002
## 1979 0.0059476551 0.0027940134 -0.0354223647 0.8188237
## 1980 0.0312776739 -0.0406941689 -0.0947671679 0.7702488
## 1981 0.0015625933 -0.0361459308 -0.0757928188 0.7775142
## 1982 0.0083460130 -0.0050975723 -0.0556729068 0.7888968
## 1983 0.0076196432 -0.0026011323 -0.0184912524 0.7920538
## 1984 0.0207063038 0.0019447897 -0.0240878711 0.8227177
## 1985 0.0088785561 0.0081364329 0.0259438224 0.8123342
## 1986 0.0092072788 0.0410771139 0.1364501568 0.8268139
## 1987 0.0123641965 0.0100600034 0.0607401057 0.8553932
## 1988 0.0247281100 0.0152211886 -0.0004057817 0.8986788
## 1989 0.0121663261 0.0082031472 -0.0151957060 0.9460005
## 1990 0.0100744664 -0.0033779876 0.0416604749 0.9605290
## 1991 0.0046907503 0.0006473598 0.0352982911 0.9711318
## 1992 0.0052694243 0.0171114867 0.0618039548 0.9937196
## 1993 -0.0146422621 0.0152904363 0.0675426844 0.9993425
## 1994 0.0260322384 -0.0045711091 0.0031895242 1.0436353
## 1995 0.0057157566 -0.0009743699 -0.0043343248 1.0684787
## 1996 0.0041185602 -0.0074620048 0.0101892273 1.1100520
## 1997 0.0246918448 -0.0032375416 -0.0068795678 1.1640916
## 1998 0.0007809978 0.0053580257 0.0359691952 1.1941561
## 1999 0.0182693080 -0.0093295786 -0.0028290761 1.2007274
## 2000 0.0156795597 -0.0174574194 -0.0536812934 1.3047679
## 2001 -0.0053993997 0.0006055709 0.0064419759 1.2881989
## 2002 0.0099465512 0.0063468525 0.0342855784 1.2952826
## 2003 0.0063456357 -0.0027710222 0.0285927881 1.3017089
## 2004 0.0227492300 -0.0081932302 -0.0099141334 1.3353600
## 2005 0.0071197943 -0.0070079222 -0.0228348600 1.3828156
## 2006 0.0115426493 -0.0071048520 -0.0102573901 1.4215724
## 2007 0.0177445487 0.0015454188 -0.0009304731 1.4466535
## 2008 -0.0143076451 -0.0264738502 -0.0454218385 1.4803278
## 2009 -0.0242513704 0.0297423689 0.0918011581 1.3436137
## 2010 0.0201164778 -0.0175369003 -0.0435439960 1.4376955
## 2011 0.0033596238 -0.0144739561 -0.0479519351 1.4861496
## 2012 -0.0002529423 0.0001187370 -0.0084908984 1.4666865
## 2013 0.0024081384 0.0036645638 0.0161280484 1.4610318
## 2014 0.0079736999 0.0033509016 0.0323602839 1.5154301
## 2015 0.0087314484 0.0099291520 0.0516728638 1.5419255
## 2016 0.0005863770 0.0061511346 0.0343560600 1.6256339
## 2017 0.0028526766 -0.0064457351 -0.0107056613 1.6716047
## 2018 -0.0013926210 -0.0103643419 -0.0160667772 1.6746471
adf.BEL.WS <- adf.test((BEL$WS), alternative = c("stationary"), k = 2)
adf.BEL.PS <- adf.test((BEL$PS), alternative = c("stationary"), k = 2)
adf.BEL.Y <- adf.test((BEL$Y), alternative = c("stationary"), k = 2)
adf.BEL.Yrw <- adf.test((BEL$Yrw), alternative = c("stationary"), k = 2)
adf.BEL.r <- adf.test((BEL$r), alternative = c("stationary"), k = 2)
adf.BEL.R <- adf.test((BEL$R), alternative = c("stationary"), k = 2)
adf.BEL.Tau <- adf.test((BEL$Tau), alternative = c("stationary"), k = 2)
adf.BEL.rulc <- adf.test((BEL$rulc), alternative = c("stationary"), k = 2)
adf.BEL.ulc <- adf.test((BEL$ulc), alternative = c("stationary"), k = 2)
adf.BEL.P <- adf.test((BEL$P), alternative = c("stationary"), k = 2)
adf.BEL.Pm <- adf.test((BEL$Pm), alternative = c("stationary"), k = 2)
adf.BEL.Px <- adf.test((BEL$Px), alternative = c("stationary"), k = 2)
adf.BEL.X <- adf.test((BEL$X), alternative = c("stationary"), k = 2)
adf.BEL.M <- adf.test((BEL$M), alternative = c("stationary"), k = 2)
adf.BEL.I <- adf.test((BEL$I), alternative = c("stationary"), k = 2)
adf.BEL.C <- adf.test((BEL$C), alternative = c("stationary"), k = 2)
adf.BEL.Ipr <- adf.test((BEL$Ipr), alternative = c("stationary"), k = 2)
adf.BEL.Ips <- adf.test((BEL$Ips), alternative = c("stationary"), k = 2)
adf.BEL.It <- adf.test((BEL$It), alternative = c("stationary"), k = 2)
adf.BEL.Itcurr <- adf.test((BEL$Itcurr), alternative = c("stationary"), k = 2)
adf.BEL.Yf <- adf.test((BEL$Yf), alternative = c("stationary"), k = 2)
adf.BEL.W <- adf.test((BEL$W), alternative = c("stationary"), k = 2)
adf.BEL.WS.pval <- adf.BEL.WS$p.value
adf.BEL.PS.pval <- adf.BEL.PS$p.value
adf.BEL.Y.pval <- adf.BEL.Y$p.value
adf.BEL.Yrw.pval <- adf.BEL.Yrw$p.value
adf.BEL.r.pval <- adf.BEL.r$p.value
adf.BEL.R.pval <- adf.BEL.R$p.value
adf.BEL.Tau.pval <- adf.BEL.Tau$p.value
adf.BEL.rulc.pval <- adf.BEL.rulc$p.value
adf.BEL.ulc.pval <- adf.BEL.ulc$p.value
adf.BEL.P.pval <- adf.BEL.P$p.value
adf.BEL.Pm.pval <- adf.BEL.Pm$p.value
adf.BEL.Px.pval <- adf.BEL.Px$p.value
adf.BEL.X.pval <- adf.BEL.X$p.value
adf.BEL.M.pval <- adf.BEL.M$p.value
adf.BEL.I.pval <- adf.BEL.I$p.value
adf.BEL.C.pval <- adf.BEL.C$p.value
adf.BEL.Ipr.pval <- adf.BEL.Ipr$p.value
adf.BEL.Ips.pval <- adf.BEL.Ips$p.value
adf.BEL.It.pval <- adf.BEL.It$p.value
adf.BEL.Itcurr.pval <- adf.BEL.Itcurr$p.value
adf.BEL.Yf.pval <- adf.BEL.Yf$p.value
adf.BEL.W.pval <- adf.BEL.W$p.value
adf.BEL_non <- rbind(adf.BEL.WS.pval,adf.BEL.PS.pval,adf.BEL.Y.pval,adf.BEL.Yrw.pval,adf.BEL.r.pval,adf.BEL.R.pval,adf.BEL.Tau.pval,adf.BEL.rulc.pval,adf.BEL.ulc.pval,adf.BEL.P.pval,adf.BEL.Pm.pval,adf.BEL.Px.pval,adf.BEL.X.pval,adf.BEL.M.pval,adf.BEL.I.pval,adf.BEL.C.pval,adf.BEL.Ipr.pval,adf.BEL.Ips.pval,adf.BEL.It.pval,adf.BEL.Itcurr.pval,adf.BEL.Yf.pval,adf.BEL.W.pval)
colnames(adf.BEL_non) <- c("BEL")
rownames(adf.BEL_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.BEL_non
## BEL
## WS 0.01000000
## PS 0.01000000
## Y 0.53894832
## Yrw 0.25380606
## r 0.50252575
## R 0.07927323
## Tau 0.97367662
## rulc 0.01000000
## ulc 0.25709158
## P 0.21906778
## Pm 0.30044120
## Px 0.37287202
## X 0.77070717
## M 0.88923086
## I 0.29362011
## C 0.19275067
## Ipr 0.80350006
## Ips 0.68112925
## It 0.47484493
## Itcurr 0.95680610
## Yf 0.48235124
## W 0.31379140
adf.BEL.WS_dl <- adf.test((BEL$WS_dl), alternative = c("stationary"), k = 2)
adf.BEL.PS_dl <- adf.test((BEL$PS_dl), alternative = c("stationary"), k = 2)
adf.BEL.Y_dl <- adf.test((BEL$Y_dl), alternative = c("stationary"), k = 2)
adf.BEL.Yrw_dl <- adf.test((BEL$Yrw_dl), alternative = c("stationary"), k = 2)
adf.BEL.r_dl <- adf.test((BEL$r_dl), alternative = c("stationary"), k = 2)
adf.BEL.R_dl <- adf.test((BEL$R_dl), alternative = c("stationary"), k = 2)
adf.BEL.Tau_dl <- adf.test((BEL$Tau_dl), alternative = c("stationary"), k = 2)
adf.BEL.rulc_dl <- adf.test((BEL$rulc_dl), alternative = c("stationary"), k = 2)
adf.BEL.ulc_dl <- adf.test((BEL$ulc_dl), alternative = c("stationary"), k = 2)
adf.BEL.P_dl <- adf.test((BEL$P_dl), alternative = c("stationary"), k = 2)
adf.BEL.Pm_dl <- adf.test((BEL$Pm_dl), alternative = c("stationary"), k = 2)
adf.BEL.Px_dl <- adf.test((BEL$Px_dl), alternative = c("stationary"), k = 2)
adf.BEL.X_dl <- adf.test((BEL$X_dl), alternative = c("stationary"), k = 2)
adf.BEL.M_dl <- adf.test((BEL$M_dl), alternative = c("stationary"), k = 2)
adf.BEL.I_dl <- adf.test((BEL$I_dl), alternative = c("stationary"), k = 2)
adf.BEL.C_dl <- adf.test((BEL$C_dl), alternative = c("stationary"), k = 2)
adf.BEL.Ipr_dl <- adf.test((BEL$Ipr_dl), alternative = c("stationary"), k = 2)
adf.BEL.Ips_dl <- adf.test((BEL$Ips_dl), alternative = c("stationary"), k = 2)
adf.BEL.It_dl <- adf.test((BEL$It_dl), alternative = c("stationary"), k = 2)
adf.BEL.Itcurr_dl <- adf.test((BEL$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.BEL.Yf_dl <- adf.test((BEL$Yf_dl), alternative = c("stationary"), k = 2)
adf.BEL.W_dl <- adf.test((BEL$W_dl), alternative = c("stationary"), k = 2)
adf.BEL.WS_dl.pval <- adf.BEL.WS_dl$p.value
adf.BEL.PS_dl.pval <- adf.BEL.PS_dl$p.value
adf.BEL.Y_dl.pval <- adf.BEL.Y_dl$p.value
adf.BEL.Yrw_dl.pval <- adf.BEL.Yrw_dl$p.value
adf.BEL.r_dl.pval <- adf.BEL.r_dl$p.value
adf.BEL.R_dl.pval <- adf.BEL.R_dl$p.value
adf.BEL.Tau_dl.pval <- adf.BEL.Tau_dl$p.value
adf.BEL.rulc_dl.pval <- adf.BEL.rulc_dl$p.value
adf.BEL.ulc_dl.pval <- adf.BEL.ulc_dl$p.value
adf.BEL.P_dl.pval <- adf.BEL.P_dl$p.value
adf.BEL.Pm_dl.pval <- adf.BEL.Pm_dl$p.value
adf.BEL.Px_dl.pval <- adf.BEL.Px_dl$p.value
adf.BEL.X_dl.pval <- adf.BEL.X_dl$p.value
adf.BEL.M_dl.pval <- adf.BEL.M_dl$p.value
adf.BEL.I_dl.pval <- adf.BEL.I_dl$p.value
adf.BEL.C_dl.pval <- adf.BEL.C_dl$p.value
adf.BEL.Ipr_dl.pval <- adf.BEL.Ipr_dl$p.value
adf.BEL.Ips_dl.pval <- adf.BEL.Ips_dl$p.value
adf.BEL.It_dl.pval <- adf.BEL.It_dl$p.value
adf.BEL.Itcurr_dl.pval <- adf.BEL.Itcurr_dl$p.value
adf.BEL.Yf_dl.pval <- adf.BEL.Yf_dl$p.value
adf.BEL.W_dl.pval <- adf.BEL.W_dl$p.value
adf.BEL_dl <- rbind(adf.BEL.WS_dl.pval,adf.BEL.PS_dl.pval,adf.BEL.Y_dl.pval,adf.BEL.Yrw_dl.pval,adf.BEL.r_dl.pval,adf.BEL.R_dl.pval,adf.BEL.Tau_dl.pval,adf.BEL.rulc_dl.pval,adf.BEL.ulc_dl.pval,adf.BEL.P_dl.pval,adf.BEL.Pm_dl.pval,adf.BEL.Px_dl.pval,adf.BEL.X_dl.pval,adf.BEL.M_dl.pval,adf.BEL.I_dl.pval,adf.BEL.C_dl.pval,adf.BEL.Ipr_dl.pval,adf.BEL.Ips_dl.pval,adf.BEL.It_dl.pval,adf.BEL.Itcurr_dl.pval,adf.BEL.Yf_dl.pval,adf.BEL.W_dl.pval)
colnames(adf.BEL_dl) <- c("BEL")
rownames(adf.BEL_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.BEL_dl
## BEL
## dlog(WS) 0.08423274
## dlog(PS) 0.07994039
## dlog(Y) 0.01000000
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.02378420
## dlog(Tau) 0.01000000
## dlog(rulc) 0.05550679
## dlog(ulc) 0.22937945
## dlog(P) 0.06400132
## dlog(Pm) 0.03060071
## dlog(Px) 0.02274642
## dlog(X) 0.01000000
## dlog(M) 0.01000000
## dlog(I) 0.02458770
## dlog(C) 0.01000000
## dlog(Ipr) 0.02213720
## dlog(Ips) 0.02815860
## dlog(It) 0.03248560
## dlog(Itcurr) 0.03812250
## dlog(Yf) 0.01000000
## dlog(W) 0.03033068
adf.BEL <- NULL
adf.BEL <- rbind(adf.BEL_non,adf.BEL_dl)
#Consumption (C)
BEL_consumption <- dynlm(BEL$C_dl~BEL$R_dl+BEL$W_dl)
BEL_CR <- summary(BEL_consumption)$coefficients["BEL$R_dl","Estimate"]
BEL_CW <- summary(BEL_consumption)$coefficients["BEL$W_dl","Estimate"]
BEL_Ceffekt <- (BEL_CR*mean(BEL$C/BEL$R))-(BEL_CW*mean(BEL$C/BEL$W))
summary(BEL_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$C_dl ~ BEL$R_dl + BEL$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.018132 -0.007132 -0.001204 0.005511 0.030734
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009264 0.002349 3.944 0.000277 ***
## BEL$R_dl 0.139631 0.040799 3.422 0.001332 **
## BEL$W_dl 0.498398 0.073281 6.801 0.0000000201 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0109 on 45 degrees of freedom
## Multiple R-squared: 0.5286, Adjusted R-squared: 0.5077
## F-statistic: 25.23 on 2 and 45 DF, p-value: 0.00000004479
#Investments (I)
BEL_investment <- dynlm(BEL$I_dl~BEL$PS_l+BEL$Y_l+BEL$r)
BEL_iPS <- summary(BEL_investment)$coefficients["BEL$PS_l","Estimate"]
BEL_Ieffekt <- BEL_iPS*mean(BEL$I/BEL$R)
summary(BEL_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$I_dl ~ BEL$PS_l + BEL$Y_l + BEL$r)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.181481 -0.024068 0.004471 0.036379 0.091434
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.763166 0.278893 2.736 0.008925 **
## BEL$PS_l 0.551479 0.154442 3.571 0.000876 ***
## BEL$Y_l -0.020055 0.030641 -0.655 0.516187
## BEL$r 0.003843 0.003514 1.094 0.279992
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05661 on 44 degrees of freedom
## Multiple R-squared: 0.2328, Adjusted R-squared: 0.1805
## F-statistic: 4.451 on 3 and 44 DF, p-value: 0.008139
#Price deflator (P)
BEL_deflator <- dynlm(BEL$P_dl~L(BEL$ulc_dl)+BEL$Pm_dl)
BEL_ePULC <- summary(BEL_deflator)$coefficients["L(BEL$ulc_dl)","Estimate"]
summary(BEL_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$P_dl ~ L(BEL$ulc_dl) + BEL$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.024768 -0.007421 0.002203 0.006835 0.019199
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.011779 0.002075 5.678 0.00000093675653920 ***
## L(BEL$ulc_dl) 0.589618 0.052102 11.317 0.00000000000000939 ***
## BEL$Pm_dl 0.091566 0.030551 2.997 0.00442 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01055 on 45 degrees of freedom
## Multiple R-squared: 0.8368, Adjusted R-squared: 0.8296
## F-statistic: 115.4 on 2 and 45 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
BEL_exportdeflator <- dynlm(BEL$Px_dl~BEL$ulc_l+BEL$Pm_dl+L(BEL$Px_l))
BEL_ePX <- summary(BEL_exportdeflator)$coefficients["BEL$ulc_l","Estimate"]
summary(BEL_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$Px_dl ~ BEL$ulc_l + BEL$Pm_dl + L(BEL$Px_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0191571 -0.0027826 0.0001546 0.0047249 0.0163231
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.01201 0.02338 -0.514 0.610125
## BEL$ulc_l -0.05684 0.01599 -3.555 0.000918 ***
## BEL$Pm_dl 0.77402 0.02461 31.454 < 0.0000000000000002 ***
## L(BEL$Px_l) 0.05237 0.01763 2.970 0.004806 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.008796 on 44 degrees of freedom
## Multiple R-squared: 0.9696, Adjusted R-squared: 0.9675
## F-statistic: 467.7 on 3 and 44 DF, p-value: < 0.00000000000000022
#Exports (X)
BEL_exports <- dynlm(BEL$X_dl~L(BEL$dPxdPm)+BEL$Yrw_dl)
BEL_eXP <- summary(BEL_exports)$coefficients["L(BEL$dPxdPm)","Estimate"]
BEL_eXP <- 0
BEL_Xeffekt <- -(BEL_eXP*BEL_ePX*(1/(1-BEL_ePULC))*mean(BEL$Yf/BEL$Y)*(mean(BEL$X/BEL$Y)/mean(BEL$rulc)))
summary(BEL_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$X_dl ~ L(BEL$dPxdPm) + BEL$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.071386 -0.012137 0.001313 0.016637 0.047074
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.019806 0.007499 -2.641 0.0113 *
## L(BEL$dPxdPm) -0.326133 0.266469 -1.224 0.2274
## BEL$Yrw_dl 2.319437 0.245674 9.441 0.00000000000305 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02664 on 45 degrees of freedom
## Multiple R-squared: 0.6647, Adjusted R-squared: 0.6498
## F-statistic: 44.6 on 2 and 45 DF, p-value: 0.00000000002102
#Imports (M)
BEL_imports <- dynlm(BEL$M_dl~BEL$dPdPm+BEL$Y_dl)
BEL_eMP <- summary(BEL_imports)$coefficients["BEL$dPdPm","Estimate"]
BEL_eMP <- 0
BEL_Meffekt <- -(BEL_eMP*BEL_ePULC*(1/(1-BEL_ePULC))*mean(BEL$Yf/BEL$Y)*(mean(BEL$M/BEL$Y)/mean(BEL$rulc)))
summary(BEL_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$M_dl ~ BEL$dPdPm + BEL$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.114726 -0.017022 0.001347 0.020919 0.050247
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.009304 0.007942 -1.171 0.248
## BEL$dPdPm 0.047547 0.103571 0.459 0.648
## BEL$Y_dl 2.300841 0.291052 7.905 0.000000000474 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03235 on 45 degrees of freedom
## Multiple R-squared: 0.5935, Adjusted R-squared: 0.5755
## F-statistic: 32.85 on 2 and 45 DF, p-value: 0.000000001596
names(BEL_consumption$coefficients) <- sub("BEL$","",names(BEL_consumption$coefficients),fixed=TRUE)
names(BEL_investment$coefficients) <- sub("BEL$","",names(BEL_investment$coefficients),fixed=TRUE)
names(BEL_deflator$coefficients) <- sub("BEL$","",names(BEL_deflator$coefficients),fixed=TRUE)
names(BEL_exportdeflator$coefficients) <- sub("BEL$","",names(BEL_exportdeflator$coefficients),fixed=TRUE)
names(BEL_exports$coefficients) <- sub("BEL$","",names(BEL_exports$coefficients),fixed=TRUE)
names(BEL_imports$coefficients) <- sub("BEL$","",names(BEL_imports$coefficients),fixed=TRUE)
BEL_Xeffekt
## [1] 0
BEL_Meffekt
## [1] 0
#Nettoeksport (NX)
BEL_NXeffekt <- BEL_Xeffekt - BEL_Meffekt
BEL_NXeffekt
## [1] 0
#Nettoeffekten
BEL_Neteffekt = BEL_Ceffekt + BEL_Ieffekt + BEL_NXeffekt
BEL_Neteffekt
## [1] 0.2022299
BEL_Lukket <- BEL_Ceffekt + BEL_Ieffekt
BEL_Lukket_Konklusion <- ifelse(BEL_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
BEL_Lukket_Konklusion
## [1] "Profit-led domestic"
BEL_Def <- ifelse(BEL_Neteffekt > 0, "Profit-led", "Wage-led")
BEL_Def
## [1] "Profit-led"
summary(ur.df(y=BEL_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0146292 -0.0055282 -0.0007002 0.0035424 0.0135059
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.48273 0.40926 -1.180 0.251
## z.diff.lag1 -0.62273 0.40816 -1.526 0.141
## z.diff.lag2 -0.41211 0.42166 -0.977 0.339
## z.diff.lag3 -0.07097 0.41292 -0.172 0.865
## z.diff.lag4 0.21312 0.36063 0.591 0.561
## z.diff.lag5 0.03063 0.33204 0.092 0.927
## z.diff.lag6 -0.20518 0.31631 -0.649 0.523
## z.diff.lag7 -0.18397 0.31815 -0.578 0.569
## z.diff.lag8 -0.14513 0.31913 -0.455 0.654
## z.diff.lag9 0.09061 0.31090 0.291 0.773
## z.diff.lag10 0.26358 0.27540 0.957 0.349
## z.diff.lag11 0.10657 0.23670 0.450 0.657
## z.diff.lag12 0.06979 0.15121 0.462 0.649
##
## Residual standard error: 0.008205 on 22 degrees of freedom
## Multiple R-squared: 0.6855, Adjusted R-squared: 0.4996
## F-statistic: 3.688 on 13 and 22 DF, p-value: 0.003474
##
##
## Value of test-statistic is: -1.1795
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=BEL_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.084222 -0.013437 0.003653 0.020750 0.055649
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.75965 0.61992 -1.225 0.233
## z.diff.lag1 0.17433 0.62027 0.281 0.781
## z.diff.lag2 -0.04404 0.59277 -0.074 0.941
## z.diff.lag3 0.08287 0.57367 0.144 0.886
## z.diff.lag4 0.18126 0.51850 0.350 0.730
## z.diff.lag5 0.03773 0.45960 0.082 0.935
## z.diff.lag6 -0.08204 0.41247 -0.199 0.844
## z.diff.lag7 -0.04072 0.36864 -0.110 0.913
## z.diff.lag8 -0.15475 0.32782 -0.472 0.642
## z.diff.lag9 -0.13231 0.29979 -0.441 0.663
## z.diff.lag10 0.12543 0.25544 0.491 0.628
## z.diff.lag11 0.13784 0.20453 0.674 0.507
## z.diff.lag12 0.22649 0.14532 1.559 0.133
##
## Residual standard error: 0.03808 on 22 degrees of freedom
## Multiple R-squared: 0.5804, Adjusted R-squared: 0.3324
## F-statistic: 2.34 on 13 and 22 DF, p-value: 0.03802
##
##
## Value of test-statistic is: -1.2254
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=BEL_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.033099 -0.008363 0.002397 0.013737 0.030397
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.41587 0.37739 -1.102 0.2824
## z.diff.lag1 -0.56100 0.39411 -1.423 0.1686
## z.diff.lag2 -0.55375 0.39881 -1.388 0.1789
## z.diff.lag3 -0.39300 0.37532 -1.047 0.3064
## z.diff.lag4 -0.56229 0.36732 -1.531 0.1401
## z.diff.lag5 -0.33109 0.36886 -0.898 0.3791
## z.diff.lag6 0.17586 0.36812 0.478 0.6376
## z.diff.lag7 0.10781 0.36597 0.295 0.7711
## z.diff.lag8 0.18863 0.33033 0.571 0.5738
## z.diff.lag9 0.20468 0.28468 0.719 0.4797
## z.diff.lag10 0.54139 0.25956 2.086 0.0488 *
## z.diff.lag11 0.26885 0.24211 1.110 0.2788
## z.diff.lag12 0.09097 0.17234 0.528 0.6029
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01976 on 22 degrees of freedom
## Multiple R-squared: 0.6981, Adjusted R-squared: 0.5197
## F-statistic: 3.913 on 13 and 22 DF, p-value: 0.002416
##
##
## Value of test-statistic is: -1.1019
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=BEL_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042621 -0.007034 0.002721 0.017159 0.033733
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.1556 0.7402 -1.561 0.1327
## z.diff.lag1 -0.2770 0.7038 -0.394 0.6977
## z.diff.lag2 -0.1830 0.6347 -0.288 0.7758
## z.diff.lag3 0.1303 0.5721 0.228 0.8220
## z.diff.lag4 0.3200 0.5512 0.581 0.5674
## z.diff.lag5 0.5192 0.5340 0.972 0.3415
## z.diff.lag6 0.4635 0.5278 0.878 0.3893
## z.diff.lag7 0.3496 0.5107 0.685 0.5008
## z.diff.lag8 0.3409 0.4643 0.734 0.4706
## z.diff.lag9 0.1427 0.4035 0.354 0.7269
## z.diff.lag10 0.1242 0.3409 0.364 0.7190
## z.diff.lag11 0.2831 0.2508 1.129 0.2712
## z.diff.lag12 0.2673 0.1461 1.830 0.0808 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02312 on 22 degrees of freedom
## Multiple R-squared: 0.7974, Adjusted R-squared: 0.6776
## F-statistic: 6.659 on 13 and 22 DF, p-value: 0.00005722
##
##
## Value of test-statistic is: -1.5612
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(BEL_consumption)
plot(BEL_investment)
plot(BEL_deflator)
plot(BEL_exportdeflator)
plot(BEL_exports)
plot(BEL_imports)
bptest(BEL_consumption)
##
## studentized Breusch-Pagan test
##
## data: BEL_consumption
## BP = 4.5914, df = 2, p-value = 0.1007
bptest(BEL_investment)
##
## studentized Breusch-Pagan test
##
## data: BEL_investment
## BP = 8.3931, df = 3, p-value = 0.03855
bptest(BEL_deflator)
##
## studentized Breusch-Pagan test
##
## data: BEL_deflator
## BP = 3.6311, df = 2, p-value = 0.1628
bptest(BEL_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: BEL_exportdeflator
## BP = 16.552, df = 3, p-value = 0.0008735
bptest(BEL_exports)
##
## studentized Breusch-Pagan test
##
## data: BEL_exports
## BP = 2.9998, df = 2, p-value = 0.2232
bptest(BEL_imports)
##
## studentized Breusch-Pagan test
##
## data: BEL_imports
## BP = 3.1802, df = 2, p-value = 0.2039
resettest(BEL_consumption)
##
## RESET test
##
## data: BEL_consumption
## RESET = 7.434, df1 = 2, df2 = 43, p-value = 0.001687
resettest(BEL_investment)
##
## RESET test
##
## data: BEL_investment
## RESET = 11.274, df1 = 2, df2 = 42, p-value = 0.0001204
resettest(BEL_deflator)
##
## RESET test
##
## data: BEL_deflator
## RESET = 4.4168, df1 = 2, df2 = 43, p-value = 0.01801
resettest(BEL_exportdeflator)
##
## RESET test
##
## data: BEL_exportdeflator
## RESET = 2.5447, df1 = 2, df2 = 42, p-value = 0.09054
resettest(BEL_exports)
##
## RESET test
##
## data: BEL_exports
## RESET = 0.45356, df1 = 2, df2 = 43, p-value = 0.6384
resettest(BEL_imports)
##
## RESET test
##
## data: BEL_imports
## RESET = 7.5034, df1 = 2, df2 = 43, p-value = 0.001602
BEL_regtab <- matrix(c(BEL_Ceffekt, BEL_Ieffekt, BEL_Lukket, BEL_Xeffekt, BEL_Meffekt, BEL_NXeffekt, BEL_Neteffekt,BEL_Lukket_Konklusion, BEL_Def),ncol=9,byrow=TRUE)
colnames(BEL_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(BEL_regtab) <- c("BEL")
BEL_regtab <- as.table(BEL_regtab)
BEL_regtab
## consumption investment Lukket neteffekt exports imports
## BEL -0.164150578239597 0.366380487752166 0.202229909512569 0 0
## netexports neteffect Lukket konklusion Konklusion
## BEL 0 0.202229909512569 Profit-led domestic Profit-led
BEL_smoke <- matrix(c(mean(BEL$C/BEL$R), mean(BEL$C/BEL$W), mean(BEL$I/BEL$R), BEL_CR, BEL_CW, BEL_iPS, BEL_ePULC, (1/(1-BEL_ePULC)), BEL_eXP, BEL_ePX, BEL_eMP, mean(BEL$Yf/BEL$Y), mean(BEL$X/BEL$Y), mean(BEL$rulc), (mean(BEL$X/BEL$Y)/mean(BEL$rulc))),ncol=15,byrow=TRUE)
colnames(BEL_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(BEL_smoke) <- c("BEL")
BEL_smoke <- as.table(BEL_smoke)
BEL_smoke
## C/R C/W I/R CR CW
## BEL 1.87716652 0.85526125 0.66436026 0.13963065 0.49839807
## iPS ePULC 1/1-epulc eXP ePX
## BEL 0.55147864 0.58961825 2.43675555 0.00000000 -0.05684191
## eMP Yf/Y X/Y RULC (X/Y)/rulc
## BEL 0.00000000 0.91007077 0.55791853 0.62468050 0.89312621
summary(BEL_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$C_dl ~ BEL$R_dl + BEL$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.018132 -0.007132 -0.001204 0.005511 0.030734
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009264 0.002349 3.944 0.000277 ***
## R_dl 0.139631 0.040799 3.422 0.001332 **
## W_dl 0.498398 0.073281 6.801 0.0000000201 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0109 on 45 degrees of freedom
## Multiple R-squared: 0.5286, Adjusted R-squared: 0.5077
## F-statistic: 25.23 on 2 and 45 DF, p-value: 0.00000004479
summary(BEL_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$I_dl ~ BEL$PS_l + BEL$Y_l + BEL$r)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.181481 -0.024068 0.004471 0.036379 0.091434
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.763166 0.278893 2.736 0.008925 **
## PS_l 0.551479 0.154442 3.571 0.000876 ***
## Y_l -0.020055 0.030641 -0.655 0.516187
## r 0.003843 0.003514 1.094 0.279992
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05661 on 44 degrees of freedom
## Multiple R-squared: 0.2328, Adjusted R-squared: 0.1805
## F-statistic: 4.451 on 3 and 44 DF, p-value: 0.008139
summary(BEL_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$P_dl ~ L(BEL$ulc_dl) + BEL$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.024768 -0.007421 0.002203 0.006835 0.019199
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.011779 0.002075 5.678 0.00000093675653920 ***
## L(ulc_dl) 0.589618 0.052102 11.317 0.00000000000000939 ***
## Pm_dl 0.091566 0.030551 2.997 0.00442 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01055 on 45 degrees of freedom
## Multiple R-squared: 0.8368, Adjusted R-squared: 0.8296
## F-statistic: 115.4 on 2 and 45 DF, p-value: < 0.00000000000000022
summary(BEL_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$Px_dl ~ BEL$ulc_l + BEL$Pm_dl + L(BEL$Px_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0191571 -0.0027826 0.0001546 0.0047249 0.0163231
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.01201 0.02338 -0.514 0.610125
## ulc_l -0.05684 0.01599 -3.555 0.000918 ***
## Pm_dl 0.77402 0.02461 31.454 < 0.0000000000000002 ***
## L(Px_l) 0.05237 0.01763 2.970 0.004806 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.008796 on 44 degrees of freedom
## Multiple R-squared: 0.9696, Adjusted R-squared: 0.9675
## F-statistic: 467.7 on 3 and 44 DF, p-value: < 0.00000000000000022
summary(BEL_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$X_dl ~ L(BEL$dPxdPm) + BEL$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.071386 -0.012137 0.001313 0.016637 0.047074
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.019806 0.007499 -2.641 0.0113 *
## L(dPxdPm) -0.326133 0.266469 -1.224 0.2274
## Yrw_dl 2.319437 0.245674 9.441 0.00000000000305 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02664 on 45 degrees of freedom
## Multiple R-squared: 0.6647, Adjusted R-squared: 0.6498
## F-statistic: 44.6 on 2 and 45 DF, p-value: 0.00000000002102
summary(BEL_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = BEL$M_dl ~ BEL$dPdPm + BEL$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.114726 -0.017022 0.001347 0.020919 0.050247
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.009304 0.007942 -1.171 0.248
## dPdPm 0.047547 0.103571 0.459 0.648
## Y_dl 2.300841 0.291052 7.905 0.000000000474 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03235 on 45 degrees of freedom
## Multiple R-squared: 0.5935, Adjusted R-squared: 0.5755
## F-statistic: 32.85 on 2 and 45 DF, p-value: 0.000000001596
DNK_df[!complete.cases(DNK_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.6434089 -0.4409748 NA 0.3565911 -1.0311656 NA
## 1961 0.6517143 -0.4281490 0.0128257862 0.3482857 -1.0547322 -0.023566552
## 1962 0.6575550 -0.4192269 0.0089220726 0.3424450 -1.0716441 -0.016911940
## 1963 0.6609908 -0.4140153 0.0052115806 0.3390092 -1.0817281 -0.010083950
## 1964 0.6541311 -0.4244475 -0.0104321128 0.3458689 -1.0616955 0.020032522
## 1965 0.6789097 -0.3872671 0.0371803406 0.3210903 -1.1360330 -0.074337421
## 1966 0.6897227 -0.3714656 0.0158014785 0.3102773 -1.1702889 -0.034255926
## 1967 0.6981569 -0.3593114 0.0121542311 0.3018431 -1.1978480 -0.027559072
## 1968 0.7003837 -0.3561269 0.0031844965 0.2996163 -1.2052527 -0.007404764
## 1969 0.6939636 -0.3653358 -0.0092089129 0.3060364 -1.1840511 0.021201611
## 1970 0.7053172 -0.3491077 0.0162281673 0.2946828 -1.2218557 -0.037804630
## 1971 0.7146269 -0.3359947 0.0131129759 0.2853731 -1.2539579 -0.032102122
## 2019 0.6312528 -0.4600489 -0.0102474363 0.3687472 -0.9976439 0.017789927
## 2020 0.6360546 -0.4524708 0.0075780777 0.3639454 -1.0107515 -0.013107605
## 2021 0.6364285 -0.4518833 0.0005875583 0.3635715 -1.0117792 -0.001027685
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 557.908 6.324194 NA NA NA NA
## 1961 593.496 6.386030 0.061836400 NA NA NA
## 1962 627.129 6.441152 0.055121787 NA NA NA
## 1963 631.124 6.447502 0.006350096 NA NA NA
## 1964 689.628 6.536152 0.088649965 NA NA NA
## 1965 721.043 6.580699 0.044546453 NA NA NA
## 1966 740.807 6.607740 0.027041358 NA NA NA
## 1967 781.776 6.661568 0.053828122 NA NA NA
## 1968 825.189 6.715612 0.054044197 NA NA NA
## 1969 878.902 6.778673 0.063060950 NA NA NA
## 1970 892.937 6.794516 0.015842629 13649766353529 30.24474 NA
## 1971 919.770 6.824124 0.029607609 14202880361249 30.28447 0.03972238
## 2019 2248.533 7.718033 0.023383227 NA NA NA
## 2020 2116.796 7.657659 -0.060374379 NA NA NA
## 2021 2224.375 7.707231 0.049572353 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 5.1548 552.7532 6.314912 NA 300.669 5.706010
## 1961 5.7699 587.7261 6.376261 0.061349414 322.740 5.776847
## 1962 6.8761 620.2529 6.430127 0.053866275 341.788 5.834191
## 1963 7.8234 623.3006 6.435029 0.004901608 341.881 5.834463
## 1964 8.8640 680.7640 6.523216 0.088186790 368.701 5.909986
## 1965 10.0471 710.9959 6.566667 0.043450966 381.363 5.943752
## 1966 11.7428 729.0642 6.591762 0.025095131 397.666 5.985612
## 1967 13.5500 768.2260 6.644084 0.052322167 424.427 6.050740
## 1968 16.2534 808.9356 6.695719 0.051635349 439.671 6.086027
## 1969 18.5334 860.3686 6.757361 0.061641593 464.795 6.141596
## 1970 20.6295 872.3075 6.771142 0.013781097 476.327 6.166105
## 1971 22.7942 896.9758 6.799029 0.027886884 480.322 6.174457
## 2019 366.6084 1881.9246 7.540050 0.026464529 1047.474 6.954137
## 2020 349.7502 1767.0458 7.477064 -0.062985864 980.436 6.887997
## 2021 366.9504 1857.4246 7.526946 0.049881792 1038.282 6.945323
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA 355.6463 5.873937 NA 197.1069 5.283746
## 1961 0.0708370536 383.0295 5.948112 0.07417520 204.6966 5.321529
## 1962 0.0573436163 407.8504 6.010900 0.06278835 212.4025 5.358483
## 1963 0.0002720615 411.9960 6.021014 0.01011319 211.3046 5.353301
## 1964 0.0755232942 445.3089 6.098768 0.07775468 235.4551 5.461520
## 1965 0.0337656600 482.7020 6.179400 0.08063131 228.2939 5.430634
## 1966 0.0418607795 502.8521 6.220296 0.04089661 226.2121 5.421473
## 1967 0.0651275670 536.3423 6.284773 0.06447640 231.8837 5.446236
## 1968 0.0352866960 566.5653 6.339592 0.05481985 242.3703 5.490467
## 1969 0.0555697282 597.0645 6.392025 0.05243268 263.3041 5.573310
## 1970 0.0245081450 615.2535 6.422034 0.03000926 257.0540 5.549286
## 1971 0.0083521192 641.0030 6.463034 0.04099986 255.9728 5.545071
## 2019 0.0218948138 1187.9701 7.080001 0.01621709 693.9545 6.542406
## 2020 -0.0661394598 1123.9377 7.024594 -0.05540779 643.1081 6.466313
## 2021 0.0573253324 1182.1179 7.075063 0.05046935 675.3067 6.515167
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA 76.0151 4.330932 NA 9.6703 2.269059
## 1961 0.037782862 86.5895 4.461179 0.130246556 11.5336 2.445265
## 1962 0.036954335 92.3576 4.525668 0.064489438 12.9466 2.560833
## 1963 -0.005182342 90.1280 4.501231 -0.024437117 13.1240 2.574443
## 1964 0.108219312 111.2806 4.712055 0.210824057 16.7082 2.815900
## 1965 -0.030886455 116.4963 4.757860 0.045804573 18.4573 2.915460
## 1966 -0.009160795 121.4631 4.799611 0.041751000 20.2423 3.007774
## 1967 0.024763095 131.7981 4.881271 0.081660693 22.4539 3.111464
## 1968 0.044230585 138.2506 4.929068 0.047796774 24.3685 3.193291
## 1969 0.082843204 155.5888 5.047217 0.118148649 29.2518 3.375941
## 1970 -0.024023532 160.1969 5.076404 0.029187054 32.3142 3.475507
## 1971 -0.004215238 161.4556 5.084230 0.007826499 34.9879 3.555002
## 2019 0.044254456 489.4969 6.193378 0.032961837 515.1534 6.244465
## 2020 -0.076093469 442.8219 6.093168 -0.100210471 458.9862 6.129020
## 2021 0.048854107 477.6484 6.168875 0.075707239 505.0607 6.224679
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA NA NA NA NA NA
## 1961 0.17620518 NA NA NA NA NA
## 1962 0.11556869 NA NA NA NA NA
## 1963 0.01360941 NA NA NA NA NA
## 1964 0.24145700 NA NA NA NA NA
## 1965 0.09956034 NA NA NA NA NA
## 1966 0.09231452 NA NA NA NA NA
## 1967 0.10368984 NA NA NA NA NA
## 1968 0.08182700 NA NA NA NA NA
## 1969 0.18264980 NA NA NA NA NA
## 1970 0.09956565 NA NA NA NA NA
## 1971 0.07949553 28.3299 3.343918 NA 0.8097056 -0.2110845
## 2019 0.04049642 437.9264 6.082051 0.04770332 0.8500893 -0.1624139
## 2020 -0.11544458 378.8246 5.937073 -0.14497756 0.8253507 -0.1919468
## 2021 0.09565848 427.2916 6.057467 0.12039338 0.8460203 -0.1672119
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA 2.1986857 1.4682783
## 1962 NA NA NA NA -0.0524234 0.7374723
## 1963 NA NA NA NA 0.6490383 1.0267962
## 1964 NA NA NA NA 2.3697035 1.5069114
## 1965 NA NA NA NA 1.1016012 1.1770133
## 1966 NA NA NA NA 1.7772138 1.3661635
## 1967 NA NA NA NA 4.4093817 1.8798389
## 1968 NA NA NA NA 2.8849178 1.6150194
## 1969 NA NA NA NA 2.3498000 1.5024912
## 1970 NA NA NA NA 1.8881361 1.3940651
## 1971 NA 130.7315 4.873146 NA 3.2706806 1.6889417
## 2019 0.007206899 416.1161 6.030964 0.04016874 -1.1430678 0.0000000
## 2020 -0.029532982 365.4834 5.901221 -0.12974345 NA NA
## 2021 0.024734907 404.1002 6.001663 0.10044215 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 7.875477 2.063754 NA 19.78376 2.984861
## 1961 NA 8.214644 2.105918 0.042164697 19.80486 2.985928
## 1962 -0.7308060 8.759760 2.170169 0.064250066 19.78375 2.984861
## 1963 0.2893238 9.265504 2.226298 0.056129726 20.16910 3.004152
## 1964 0.4801153 9.692739 2.271377 0.045078802 20.43448 3.017224
## 1965 -0.3298981 10.413538 2.343107 0.071729584 20.75995 3.033026
## 1966 0.1891501 11.124926 2.409188 0.066081498 21.09205 3.048896
## 1967 0.5136755 11.620454 2.452767 0.043578655 21.13727 3.051038
## 1968 -0.2648195 12.274986 2.507564 0.054796730 21.80882 3.082314
## 1969 -0.1125282 13.154109 2.576734 0.069170671 22.40616 3.109336
## 1970 -0.1084261 14.342102 2.663199 0.086465183 23.68650 3.164905
## 1971 0.2948767 15.409985 2.735016 0.071816264 24.86199 3.213340
## 2019 -0.5600176 103.244565 4.637101 0.009694888 102.77668 4.632558
## 2020 NA 103.759014 4.642071 0.004970441 101.62981 4.621337
## 2021 NA 105.658430 4.660212 0.018140499 102.55394 4.630389
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 15.75581 2.757209 NA 88.487 4.482856
## 1961 0.001066231 15.56525 2.745041 -0.01216869 92.271 4.524730
## 1962 -0.001066792 15.95002 2.769460 0.02441967 96.803 4.572678
## 1963 0.019291132 16.40020 2.797294 0.02783354 106.461 4.667779
## 1964 0.013072002 16.95860 2.830775 0.03348126 115.554 4.749738
## 1965 0.015801683 17.32955 2.852413 0.02163818 124.663 4.825614
## 1966 0.015870492 17.84296 2.881609 0.02919562 129.519 4.863828
## 1967 0.002141679 18.08233 2.894935 0.01332617 134.327 4.900277
## 1968 0.031276710 18.52293 2.919009 0.02407423 147.493 4.993781
## 1969 0.027021394 19.75787 2.983552 0.06454246 156.336 5.052008
## 1970 0.055569506 21.42338 3.064483 0.08093107 162.305 5.089477
## 1971 0.048434891 22.03040 3.092423 0.02794046 172.580 5.150861
## 2019 0.022509448 101.41695 4.619240 0.02131175 1278.827 7.153699
## 2020 -0.011221568 100.33255 4.608490 -0.01075003 1141.717 7.040289
## 2021 0.009051989 101.38945 4.618969 0.01047888 1241.216 7.123847
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA 73.329 4.294956 NA 0.6374641 -0.4502572
## 1961 0.04187425 76.591 4.338480 0.043523411 0.6453784 -0.4379184
## 1962 0.04794809 86.828 4.463929 0.125449574 0.6503453 -0.4302519
## 1963 0.09510074 85.881 4.452963 -0.010966533 0.6527972 -0.4264888
## 1964 0.08195923 102.674 4.631559 0.178596303 0.6457234 -0.4373841
## 1965 0.07587614 109.741 4.698123 0.066564124 0.6694497 -0.4012992
## 1966 0.03821349 115.713 4.751113 0.052989943 0.6787897 -0.3874440
## 1967 0.03644954 123.817 4.818805 0.067691682 0.6860562 -0.3767957
## 1968 0.09350359 131.701 4.880534 0.061729533 0.6865886 -0.3760200
## 1969 0.05822682 148.568 5.001043 0.120508564 0.6793300 -0.3866483
## 1970 0.03746974 162.113 5.088294 0.087250857 0.6890223 -0.3724817
## 1971 0.06138362 164.471 5.102734 0.014440640 0.6969167 -0.3610894
## 2019 0.01580979 1109.837 7.011968 0.001251417 0.5283312 -0.6380319
## 2020 -0.11340998 1012.177 6.919859 -0.092109701 0.5309617 -0.6330653
## 2021 0.08355827 1094.155 6.997738 0.077878919 0.5314382 -0.6321683
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA 5.020334 1.613497 NA 50.95404 3.930924
## 1961 0.0123388001 5.301554 1.668000 0.054503497 53.22203 3.974473
## 1962 0.0076665609 5.696869 1.739917 0.071916627 55.16818 4.010386
## 1963 0.0037630933 6.048495 1.799809 0.059892820 54.65221 4.000990
## 1964 -0.0108952875 6.258828 1.833993 0.034183515 58.28691 4.065378
## 1965 0.0360848538 6.971340 1.941807 0.107814437 59.56619 4.087088
## 1966 0.0138552516 7.551485 2.021744 0.079936750 60.27571 4.098929
## 1967 0.0106482759 7.972285 2.075971 0.054226931 62.79228 4.139832
## 1968 0.0007756487 8.427865 2.131543 0.055572378 65.13990 4.176537
## 1969 -0.0106282704 8.935980 2.190086 0.058542401 67.60905 4.213742
## 1970 0.0141666361 9.882027 2.290718 0.100631819 67.17787 4.207344
## 1971 0.0113922503 10.739475 2.373926 0.083208514 68.23708 4.222988
## 2019 -0.0071661346 54.547324 3.999069 0.002528753 103.01435 4.634868
## 2020 0.0049665926 55.092065 4.009006 0.009937034 97.34909 4.578303
## 2021 0.0008969977 56.150927 4.028043 0.019037497 100.67809 4.611928
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA 0.2900407
## 1961 0.043548507 -0.0132349226 0.04109847 0.2845209
## 1962 0.035913761 0.0254864607 0.06531686 0.2928122
## 1963 -0.009396532 0.0085424127 0.03683859 0.3047610
## 1964 0.064387831 0.0204092552 0.03200680 0.3164431
## 1965 0.021710524 0.0058364954 0.05592790 0.3250902
## 1966 0.011841149 0.0133251313 0.05021101 0.3310336
## 1967 0.040902892 0.0111844920 0.04143698 0.3302020
## 1968 0.036705181 -0.0072024787 0.02352002 0.3383395
## 1969 0.037204609 0.0375210635 0.04214928 0.3469147
## 1970 -0.006398106 0.0253615641 0.03089568 0.3633157
## 1971 0.015644367 -0.0204944302 0.02338137 0.3664514
## 2019 0.006459280 -0.0011977010 -0.01281456 1.0623211
## 2020 -0.056564996 0.0004715422 0.01619201 1.0175255
## 2021 0.033624819 0.0014268924 0.00908851 1.0498999
## 2022 NA NA NA NA
DNK <- DNK_df[13:59,]
DNK[!complete.cases(DNK),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
DNK %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1972 0.6915460 -0.3688256 -0.032830900 0.3084540 -1.176183 0.077775240
## 1973 0.6796177 -0.3862249 -0.017399302 0.3203823 -1.138240 0.037942390
## 1974 0.7014663 -0.3545824 0.031642454 0.2985337 -1.208872 -0.070632208
## 1975 0.7093792 -0.3433650 0.011217419 0.2906208 -1.235736 -0.026863637
## 1976 0.6998825 -0.3568429 -0.013477854 0.3001175 -1.203581 0.032154971
## 1977 0.7024614 -0.3531648 0.003678029 0.2975386 -1.212211 -0.008630193
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1972 955.911 6.862665 0.03854117 15018693588595 30.34032 0.0558508781
## 1973 995.036 6.902779 0.04011410 15995245970929 30.40331 0.0629958868
## 1974 983.868 6.891492 -0.01128718 16193769958058 30.41565 0.0123350465
## 1975 969.536 6.876818 -0.01467414 16191460417898 30.41551 -0.0001426292
## 1976 1026.977 6.934375 0.05755721 16996527079796 30.46403 0.0485250652
## 1977 1046.185 6.952905 0.01853068 17664921829740 30.50260 0.0385718219
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1972 26.0402 929.8708 6.835046 0.03601677 480.567 6.174967 0.0005099444
## 1973 28.8983 966.1377 6.873306 0.03826072 516.931 6.247909 0.0729427465
## 1974 30.5748 953.2932 6.859923 -0.01338385 505.210 6.224974 -0.0229352189
## 1975 33.2848 936.2512 6.841884 -0.01803870 521.085 6.255913 0.0309389918
## 1976 40.3786 986.5984 6.894263 0.05237925 560.824 6.329407 0.0734939546
## 1977 47.5783 998.6067 6.906361 0.01209794 571.950 6.349052 0.0196444442
## W W_l W_dl R R_l R_dl
## 1972 643.0485 6.466220 0.003185869 286.8223 5.658863 0.113792009
## 1973 656.6043 6.487081 0.020861416 309.5334 5.735066 0.076203109
## 1974 668.7031 6.505340 0.018258600 284.5901 5.651050 -0.084016062
## 1975 664.1572 6.498519 -0.006821280 272.0940 5.606148 -0.044902337
## 1976 690.5029 6.537420 0.038901397 296.0955 5.690682 0.084534221
## 1977 701.4827 6.553196 0.015775970 297.1240 5.694150 0.003467747
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1972 177.2256 5.177423 0.093193315 41.6842 3.730122 0.175119873 34.6802
## 1973 186.6780 5.229385 0.051961710 47.7818 3.866645 0.136522654 40.7408
## 1974 173.3070 5.155065 -0.074320619 51.7042 3.945539 0.078894202 43.4562
## 1975 156.6746 5.054171 -0.100893545 51.9286 3.949870 0.004330682 42.6046
## 1976 182.8112 5.208454 0.154282883 65.1933 4.177357 0.227487005 54.8103
## 1977 181.7275 5.202508 -0.005945614 70.0430 4.249109 0.071752636 58.0810
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1972 3.546169 0.20225113 0.8319747 -0.1839532 0.02713126 147.4472
## 1973 3.707230 0.16106113 0.8526426 -0.1594148 0.02453847 159.1696
## 1974 3.771754 0.06452349 0.8404772 -0.1737855 -0.01437072 145.6606
## 1975 3.751962 -0.01979131 0.8204458 -0.1979075 -0.02412199 128.5430
## 1976 4.003878 0.25191590 0.8407352 -0.1734786 0.02442890 153.6958
## 1977 4.061839 0.05796046 0.8292192 -0.1872708 -0.01379218 150.6919
## I_l I_dl r r_l r_dl P
## 1972 4.993470 0.12032458 1.2671869 1.2267870 -0.4621547 16.88952
## 1973 5.069970 0.07650018 1.7625137 1.3624067 0.1356197 18.68324
## 1974 4.981279 -0.08869133 2.2897845 1.4890432 0.1266366 21.16184
## 1975 4.856264 -0.12501553 -0.5608925 0.4588007 -1.0302426 23.98817
## 1976 5.034975 0.17871178 5.0191124 1.9688144 1.5100138 26.23829
## 1977 5.015238 -0.01973779 6.7454124 2.1847561 0.2159416 28.56716
## P_l P_dl Pm Pm_l Pm_dl Px Px_l
## 1972 2.826693 0.09167767 26.02241 3.258958 0.04561785 23.46816 3.155645
## 1973 2.927627 0.10093345 28.33216 3.343998 0.08503955 26.41906 3.274086
## 1974 3.052200 0.12457275 36.87114 3.607429 0.26343147 31.35545 3.445388
## 1975 3.177561 0.12536140 38.65438 3.654660 0.04723106 33.80084 3.520486
## 1976 3.267220 0.08965870 41.43428 3.724108 0.06944832 36.40300 3.594651
## 1977 3.352258 0.08503827 44.38971 3.793008 0.06889930 39.14289 3.667219
## Px_dl X X_l X_dl M M_l
## 1972 0.06322141 181.662 5.202148 0.051286921 166.365 5.114184
## 1973 0.11844090 196.841 5.282396 0.080248479 195.974 5.277982
## 1974 0.17130244 203.562 5.315971 0.033574331 192.019 5.257594
## 1975 0.07509774 202.088 5.308703 -0.007267381 182.488 5.206684
## 1976 0.07416530 209.021 5.342435 0.033731479 213.112 5.361818
## 1977 0.07256771 216.517 5.377669 0.035234341 214.943 5.370373
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1972 0.011449907 0.6727075 -0.3964447 -0.035355304 11.36171 2.430249
## 1973 0.163797828 0.6598799 -0.4156974 -0.019252688 12.32869 2.511929
## 1974 -0.020387672 0.6796674 -0.3861517 0.029545775 14.38301 2.666048
## 1975 -0.050909908 0.6850258 -0.3782988 0.007852855 16.43252 2.799262
## 1976 0.155133432 0.6723645 -0.3969546 -0.018655811 17.64169 2.870265
## 1977 0.008555028 0.6705149 -0.3997093 -0.002754709 19.15471 2.952549
## ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm
## 1972 0.05632236 69.03983 4.234684 0.011695372 0.017603562 0.04605982
## 1973 0.08168076 70.22585 4.251716 0.017032903 0.033401349 0.01589390
## 1974 0.15411853 68.81203 4.231379 -0.020337921 -0.092129033 -0.13885872
## 1975 0.13321425 67.52988 4.212570 -0.018808374 0.027866676 0.07813034
## 1976 0.07100289 69.91316 4.247254 0.034683806 0.004716984 0.02021038
## 1977 0.08228356 70.46688 4.255143 0.007888801 0.003668415 0.01613897
## Trade
## 1972 0.3640789
## 1973 0.3947747
## 1974 0.4020671
## 1975 0.3966598
## 1976 0.4110443
## 1977 0.4124127
DNK %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1972 0.6915460 -0.3688256 -0.0328308996 0.3084540 -1.1761826 0.0777752404
## 1973 0.6796177 -0.3862249 -0.0173993024 0.3203823 -1.1382402 0.0379423897
## 1974 0.7014663 -0.3545824 0.0316424538 0.2985337 -1.2088724 -0.0706322077
## 1975 0.7093792 -0.3433650 0.0112174193 0.2906208 -1.2357361 -0.0268636370
## 1976 0.6998825 -0.3568429 -0.0134778540 0.3001175 -1.2035811 0.0321549706
## 1977 0.7024614 -0.3531648 0.0036780293 0.2975386 -1.2122113 -0.0086301934
## 1978 0.7032187 -0.3520874 0.0010774359 0.2967813 -1.2147596 -0.0025483426
## 1979 0.7085738 -0.3445011 0.0075862890 0.2914262 -1.2329684 -0.0182087251
## 1980 0.7150752 -0.3353675 0.0091335775 0.2849248 -1.2555301 -0.0225617193
## 1981 0.7025838 -0.3529907 -0.0176231371 0.2974162 -1.2126226 0.0429074785
## 1982 0.6877517 -0.3743275 -0.0213367875 0.3122483 -1.1639565 0.0486661379
## 1983 0.6806223 -0.3847477 -0.0104202381 0.3193777 -1.1413810 0.0225754795
## 1984 0.6634238 -0.4103413 -0.0255935732 0.3365762 -1.0889307 0.0524502620
## 1985 0.6616093 -0.4130801 -0.0027388541 0.3383907 -1.0835541 0.0053766765
## 1986 0.6724208 -0.3968709 0.0162091724 0.3275792 -1.1160254 -0.0324713610
## 1987 0.6904666 -0.3703877 0.0264832761 0.3095334 -1.1726893 -0.0566638780
## 1988 0.6927595 -0.3670723 0.0033153524 0.3072405 -1.1801246 -0.0074353009
## 1989 0.6737112 -0.3949537 -0.0278814103 0.3262888 -1.1199724 0.0601521569
## 1990 0.6653653 -0.4074191 -0.0124653807 0.3346347 -1.0947157 0.0252567338
## 1991 0.6599047 -0.4156598 -0.0082407177 0.3400953 -1.0785295 0.0161862556
## 1992 0.6512619 -0.4288434 -0.0131835480 0.3487381 -1.0534341 0.0250953078
## 1993 0.6538076 -0.4249422 0.0039011841 0.3461924 -1.0607605 -0.0073263914
## 1994 0.6313731 -0.4598583 -0.0349161196 0.3686269 -0.9979703 0.0627902794
## 1995 0.6309141 -0.4605856 -0.0007272989 0.3690859 -0.9967258 0.0012444681
## 1996 0.6343304 -0.4551852 0.0054003606 0.3656696 -1.0060252 -0.0092994328
## 1997 0.6329657 -0.4573390 -0.0021537215 0.3670343 -1.0023001 0.0037251139
## 1998 0.6517827 -0.4280440 0.0292949570 0.3482173 -1.0549286 -0.0526285436
## 1999 0.6523703 -0.4271430 0.0009010508 0.3476297 -1.0566174 -0.0016887452
## 2000 0.6285569 -0.4643287 -0.0371857450 0.3714431 -0.9903596 0.0662577781
## 2001 0.6399171 -0.4464167 0.0179120092 0.3600829 -1.0214209 -0.0310612827
## 2002 0.6469090 -0.4355497 0.0108669932 0.3530910 -1.0410294 -0.0196084554
## 2003 0.6510491 -0.4291703 0.0063794482 0.3489509 -1.0528240 -0.0117946283
## 2004 0.6393251 -0.4473422 -0.0181719081 0.3606749 -1.0197783 0.0330456552
## 2005 0.6401971 -0.4459792 0.0013629621 0.3598029 -1.0221989 -0.0024205338
## 2006 0.6389174 -0.4479800 -0.0020008301 0.3610826 -1.0186487 0.0035502071
## 2007 0.6569204 -0.4201925 0.0277875629 0.3430796 -1.0697927 -0.0511440500
## 2008 0.6599520 -0.4155882 0.0046042691 0.3400480 -1.0786684 -0.0088757406
## 2009 0.6825916 -0.3818586 0.0337296014 0.3174084 -1.1475659 -0.0688974542
## 2010 0.6551946 -0.4228230 -0.0409644434 0.3448054 -1.0647750 0.0827909215
## 2011 0.6511494 -0.4290162 -0.0061931668 0.3488506 -1.0531115 0.0116635206
## 2012 0.6414425 -0.4440358 -0.0150195819 0.3585575 -1.0256661 0.0274453189
## 2013 0.6408679 -0.4449319 -0.0008961388 0.3591321 -1.0240650 0.0016011493
## 2014 0.6380864 -0.4492816 -0.0043496838 0.3619136 -1.0163497 0.0077152744
## 2015 0.6412136 -0.4443927 0.0048889226 0.3587864 -1.0250280 -0.0086782640
## 2016 0.6386882 -0.4483389 -0.0039461970 0.3613118 -1.0180140 0.0070139858
## 2017 0.6379048 -0.4495663 -0.0012273812 0.3620952 -1.0158480 0.0021659544
## 2018 0.6377548 -0.4498015 -0.0002352023 0.3622452 -1.0154338 0.0004142223
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1972 955.911 6.862665 0.0385411737 15018693588595 30.34032 0.0558508781
## 1973 995.036 6.902779 0.0401141049 15995245970929 30.40331 0.0629958868
## 1974 983.868 6.891492 -0.0112871757 16193769958058 30.41565 0.0123350465
## 1975 969.536 6.876818 -0.0146741352 16191460417898 30.41551 -0.0001426292
## 1976 1026.977 6.934375 0.0575572078 16996527079796 30.46403 0.0485250652
## 1977 1046.185 6.952905 0.0185306789 17664921829740 30.50260 0.0385718219
## 1978 1069.476 6.974924 0.0220185946 18412412858652 30.54405 0.0414441934
## 1979 1110.855 7.012885 0.0379611802 19173979232979 30.58458 0.0405290625
## 1980 1105.490 7.008044 -0.0048413135 19462118099504 30.59949 0.0149158030
## 1981 1098.126 7.001360 -0.0066835850 19876593903351 30.62056 0.0210729391
## 1982 1138.587 7.037543 0.0361829293 19872089548063 30.62034 -0.0002266417
## 1983 1168.146 7.063173 0.0256298567 20432389433842 30.64814 0.0278051471
## 1984 1216.813 7.103990 0.0408172691 21396835971208 30.69426 0.0461217002
## 1985 1265.531 7.143247 0.0392566513 22189939888010 30.73066 0.0363959687
## 1986 1327.595 7.191124 0.0478772377 22928749490803 30.76341 0.0327525315
## 1987 1330.970 7.193663 0.0025389651 23776739114872 30.79973 0.0363161952
## 1988 1330.789 7.193527 -0.0001360003 24947769283319 30.84781 0.0480766561
## 1989 1339.375 7.199958 0.0064310878 25920067514301 30.88604 0.0382330655
## 1990 1359.134 7.214603 0.0146446450 26685119504356 30.91513 0.0290886119
## 1991 1378.076 7.228444 0.0138405912 26999387169426 30.92684 0.0117080802
## 1992 1405.045 7.247825 0.0193810073 27562850798100 30.94749 0.0206547122
## 1993 1405.195 7.247931 0.0001067524 27953948720426 30.96158 0.0140895871
## 1994 1480.126 7.299882 0.0519511361 28865837745646 30.99368 0.0321003433
## 1995 1524.939 7.329710 0.0298271900 29746832140268 31.02374 0.0300638327
## 1996 1569.163 7.358298 0.0285879469 30688530643253 31.05491 0.0311663465
## 1997 1620.332 7.390386 0.0320887103 31760157641495 31.08923 0.0343236098
## 1998 1656.274 7.412326 0.0219394347 32645999967744 31.11674 0.0275097359
## 1999 1705.101 7.441380 0.0290538453 33750990087844 31.15003 0.0332874171
## 2000 1768.989 7.478163 0.0367838504 35145683627492 31.19052 0.0404920592
## 2001 1783.550 7.486361 0.0081975632 35667384945006 31.20526 0.0147348722
## 2002 1791.868 7.491014 0.0046528909 36263144347966 31.22182 0.0165652340
## 2003 1798.857 7.494907 0.0038928121 37148499821439 31.24594 0.0241214704
## 2004 1846.854 7.521239 0.0263321878 38446572461120 31.28029 0.0343461605
## 2005 1890.009 7.544337 0.0230979400 39614308389831 31.31021 0.0299208268
## 2006 1963.965 7.582721 0.0383837980 40833018132008 31.34051 0.0303006461
## 2007 1981.822 7.591772 0.0090512346 41965583201577 31.36787 0.0273588127
## 2008 1971.675 7.586639 -0.0051331883 42106625032185 31.37123 0.0033552577
## 2009 1874.934 7.536329 -0.0503099765 40791307928794 31.33949 -0.0317360747
## 2010 1910.014 7.554866 0.0185371131 41960298285083 31.36775 0.0282548745
## 2011 1935.546 7.568145 0.0132788853 42670054945642 31.38452 0.0167734926
## 2012 1939.930 7.570407 0.0022624327 43247419410439 31.39796 0.0134401799
## 2013 1958.036 7.579697 0.0092900401 43905964669832 31.41307 0.0151126155
## 2014 1989.745 7.595762 0.0160645598 44788439734169 31.43297 0.0198998842
## 2015 2036.356 7.618917 0.0231554462 45853660932463 31.45648 0.0235049769
## 2016 2102.455 7.650861 0.0319437735 46620230034078 31.47306 0.0165795265
## 2017 2145.265 7.671018 0.0201573783 47687649225983 31.49569 0.0226378705
## 2018 2196.565 7.694650 0.0236316887 48782387754566 31.51839 0.0226969028
## Tax Yf Yf_l Yf_dl C C_l
## 1972 26.0402 929.8708 6.835046 0.0360167689 480.567 6.174967
## 1973 28.8983 966.1377 6.873306 0.0382607189 516.931 6.247909
## 1974 30.5748 953.2932 6.859923 -0.0133838543 505.210 6.224974
## 1975 33.2848 936.2512 6.841884 -0.0180386998 521.085 6.255913
## 1976 40.3786 986.5984 6.894263 0.0523792505 560.824 6.329407
## 1977 47.5783 998.6067 6.906361 0.0120979404 571.950 6.349052
## 1978 56.2302 1013.2458 6.920914 0.0145531130 581.839 6.366194
## 1979 65.3752 1045.4798 6.952231 0.0313170774 587.843 6.376460
## 1980 69.5522 1035.9378 6.943062 -0.0091688154 574.690 6.353831
## 1981 74.7655 1023.3605 6.930847 -0.0122152836 567.472 6.341191
## 1982 81.6273 1056.9597 6.963152 0.0323047596 575.463 6.355175
## 1983 91.0831 1077.0629 6.981993 0.0188412201 586.469 6.374120
## 1984 101.4616 1115.3514 7.016925 0.0349317128 607.096 6.408687
## 1985 111.4574 1154.0736 7.051053 0.0341284320 634.350 6.452601
## 1986 129.7288 1197.8662 7.088297 0.0372438631 679.577 6.521471
## 1987 134.6347 1196.3353 7.087018 -0.0012788399 666.640 6.502250
## 1988 138.6299 1192.1591 7.083521 -0.0034969345 654.423 6.483754
## 1989 138.9517 1200.4233 7.090430 0.0069082117 656.505 6.486930
## 1990 139.7641 1219.3699 7.106090 0.0156600053 661.763 6.494907
## 1991 143.0180 1235.0580 7.118873 0.0127836826 672.500 6.511002
## 1992 146.9560 1258.0890 7.137349 0.0184759705 689.753 6.536334
## 1993 151.8971 1253.2979 7.133534 -0.0038155059 683.815 6.527687
## 1994 167.0137 1313.1123 7.180155 0.0466217239 729.345 6.592147
## 1995 171.4985 1353.4405 7.210405 0.0302497480 741.590 6.608797
## 1996 183.5320 1385.6310 7.233911 0.0235057626 759.796 6.633050
## 1997 196.0246 1424.3074 7.261441 0.0275300289 782.177 6.662081
## 1998 214.8312 1441.4428 7.273400 0.0119588959 800.577 6.685333
## 1999 223.3257 1481.7753 7.300996 0.0275963395 799.618 6.684134
## 2000 223.7261 1545.2629 7.342949 0.0419531617 802.710 6.687994
## 2001 232.6810 1550.8690 7.346571 0.0036213613 804.544 6.690276
## 2002 242.3255 1549.5425 7.345715 -0.0008556929 816.177 6.704631
## 2003 245.0343 1553.8227 7.348473 0.0027584267 827.067 6.717886
## 2004 259.6616 1587.1924 7.369722 0.0212485165 865.503 6.763311
## 2005 279.0426 1610.9664 7.384590 0.0148675781 897.511 6.799625
## 2006 294.2602 1669.7048 7.420402 0.0358125970 923.968 6.828677
## 2007 307.1018 1674.7202 7.423401 0.0029992622 940.313 6.846213
## 2008 300.2923 1671.3827 7.421407 -0.0019948586 944.924 6.851105
## 2009 284.4664 1590.4676 7.371783 -0.0496231869 912.493 6.816180
## 2010 296.5697 1613.4443 7.386126 0.0143431496 919.644 6.823987
## 2011 304.1800 1631.3660 7.397173 0.0110464900 922.180 6.826740
## 2012 312.4450 1627.4850 7.394791 -0.0023818222 926.905 6.831851
## 2013 320.0162 1638.0198 7.401243 0.0064521948 929.495 6.834641
## 2014 324.7889 1664.9561 7.417554 0.0163106834 937.966 6.843714
## 2015 334.8769 1701.4791 7.439253 0.0216991749 959.357 6.866263
## 2016 343.5301 1758.9249 7.472458 0.0332048385 982.598 6.890200
## 2017 351.4437 1793.8213 7.492103 0.0196453787 998.334 6.906088
## 2018 363.7914 1832.7736 7.513586 0.0214822990 1024.789 6.932242
## C_dl W W_l W_dl R R_l
## 1972 0.0005099444 643.0485 6.466220 0.00318586934 286.8223 5.658863
## 1973 0.0729427465 656.6043 6.487081 0.02086141646 309.5334 5.735066
## 1974 -0.0229352189 668.7031 6.505340 0.01825859957 284.5901 5.651050
## 1975 0.0309389918 664.1572 6.498519 -0.00682128050 272.0940 5.606148
## 1976 0.0734939546 690.5029 6.537420 0.03890139653 296.0955 5.690682
## 1977 0.0196444442 701.4827 6.553196 0.01577596966 297.1240 5.694150
## 1978 0.0171422022 712.5334 6.568827 0.01563054888 300.7124 5.706154
## 1979 0.0102661283 740.7996 6.607730 0.03890336634 304.6802 5.719263
## 1980 -0.0226291405 740.7735 6.607695 -0.00003523791 295.1643 5.687532
## 1981 -0.0126393560 718.9965 6.577856 -0.02983842073 304.3640 5.718224
## 1982 0.0139835252 726.9258 6.588824 0.01096797210 330.0339 5.799195
## 1983 0.0189448766 733.0731 6.597245 0.00842098194 343.9898 5.840612
## 1984 0.0345671226 739.9507 6.606584 0.00933813955 375.4007 5.927994
## 1985 0.0439139192 763.5458 6.637973 0.03138957792 390.5278 5.967499
## 1986 0.0688696932 805.4701 6.691426 0.05345303549 392.3961 5.972272
## 1987 -0.0192203757 826.0296 6.716631 0.02520443618 370.3057 5.914329
## 1988 -0.0184962387 825.8796 6.716449 -0.00018158207 366.2795 5.903397
## 1989 0.0031763785 808.7386 6.695476 -0.02097319863 391.6847 5.970457
## 1990 0.0079771759 811.3264 6.698670 0.00319462465 408.0435 6.011374
## 1991 0.0160946257 815.0206 6.703213 0.00454296495 420.0374 6.040344
## 1992 0.0253314510 819.3455 6.708506 0.00529242244 438.7435 6.083915
## 1993 -0.0086461493 819.4157 6.708591 0.00008567820 433.8822 6.072773
## 1994 0.0644594579 829.0638 6.720297 0.01170560431 484.0485 6.182185
## 1995 0.0166496587 853.9047 6.749820 0.02952244914 499.5358 6.213679
## 1996 0.0242534464 878.9479 6.778726 0.02890612312 506.6831 6.227886
## 1997 0.0290310814 901.5378 6.804102 0.02537630743 522.7696 6.259141
## 1998 0.0232516600 939.5075 6.845356 0.04125385297 501.9353 6.218471
## 1999 -0.0011986041 966.6662 6.873853 0.02849739030 515.1091 6.244379
## 2000 0.0038593894 971.2857 6.878621 0.00476741670 573.9772 6.352590
## 2001 0.0022821543 992.4275 6.900154 0.02153337047 558.4415 6.325150
## 2002 0.0143555859 1002.4129 6.910165 0.01001130024 547.1296 6.304686
## 2003 0.0132544643 1011.6148 6.919303 0.00913787492 542.2079 6.295649
## 2004 0.0454251334 1014.7320 6.922380 0.00307660835 572.4604 6.349944
## 2005 0.0363145357 1031.3360 6.938610 0.01623054024 579.6304 6.362391
## 2006 0.0290520625 1066.8035 6.972422 0.03381176687 602.9013 6.401753
## 2007 0.0175353596 1100.1578 7.003209 0.03078682515 574.5624 6.353609
## 2008 0.0048917024 1103.0323 7.005818 0.00260941050 568.3504 6.342738
## 2009 -0.0349240868 1085.6398 6.989925 -0.01589358553 504.8278 6.224217
## 2010 0.0078062244 1057.1199 6.963303 -0.02662129373 556.3244 6.321352
## 2011 0.0027537936 1062.2630 6.968157 0.00485332323 569.1030 6.344062
## 2012 0.0051106469 1043.9380 6.950755 -0.01740140409 583.5470 6.369125
## 2013 0.0027903487 1049.7543 6.956311 0.00555605600 588.2655 6.377178
## 2014 0.0090722731 1062.3858 6.968272 0.01196099960 602.5703 6.401204
## 2015 0.0225495674 1091.0115 6.994861 0.02658809749 610.4676 6.414225
## 2016 0.0239368159 1123.4046 7.024119 0.02925864153 635.5203 6.454444
## 2017 0.0158878053 1144.2872 7.042537 0.01841799755 649.5341 6.476255
## 2018 0.0261541271 1168.8601 7.063784 0.02124709674 663.9135 6.498152
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1972 0.113792009 177.2256 5.177423 0.093193315 41.6842 3.730122
## 1973 0.076203109 186.6780 5.229385 0.051961710 47.7818 3.866645
## 1974 -0.084016062 173.3070 5.155065 -0.074320619 51.7042 3.945539
## 1975 -0.044902337 156.6746 5.054171 -0.100893545 51.9286 3.949870
## 1976 0.084534221 182.8112 5.208454 0.154282883 65.1933 4.177357
## 1977 0.003467747 181.7275 5.202508 -0.005945614 70.0430 4.249109
## 1978 0.012004770 185.4587 5.222832 0.020323903 76.5626 4.338109
## 1979 0.013108352 186.5582 5.228743 0.005911039 82.6865 4.415056
## 1980 -0.031730535 169.2058 5.131116 -0.097627529 81.9882 4.406575
## 1981 0.030692195 140.8723 4.947854 -0.183261919 75.9089 4.329534
## 1982 0.080970897 152.5628 5.027576 0.079722508 90.0143 4.499969
## 1983 0.041416700 159.2861 5.070702 0.043125642 100.5365 4.610521
## 1984 0.087381975 175.7702 5.169177 0.098475504 116.3676 4.756754
## 1985 0.039505108 200.1540 5.299087 0.129909610 137.2285 4.921647
## 1986 0.004772502 236.7040 5.466810 0.167723345 160.9462 5.081070
## 1987 -0.057942718 244.1231 5.497673 0.030862191 167.4891 5.120918
## 1988 -0.010932235 230.2575 5.439198 -0.058474358 162.1423 5.088474
## 1989 0.067060369 235.0259 5.459696 0.020497473 170.6594 5.139670
## 1990 0.040916739 234.4561 5.457268 -0.002427357 174.6748 5.162926
## 1991 0.028969938 229.0039 5.433739 -0.023529330 174.3314 5.160958
## 1992 0.043571278 227.8285 5.428593 -0.005145881 172.4637 5.150187
## 1993 -0.011141897 221.8064 5.401805 -0.026788224 167.6736 5.122019
## 1994 0.109412003 237.0228 5.468156 0.066351410 181.7818 5.202807
## 1995 0.031494216 262.0655 5.568594 0.100438133 201.8534 5.307542
## 1996 0.014206330 276.0019 5.620408 0.051813277 213.3060 5.362728
## 1997 0.031255143 304.1753 5.717604 0.097196430 238.5676 5.474653
## 1998 -0.040669648 324.3905 5.781948 0.064343857 255.7722 5.544287
## 1999 0.025907594 323.5433 5.779333 -0.002615083 259.7256 5.559626
## 2000 0.108210940 349.9647 5.857832 0.078499339 285.3870 5.653846
## 2001 -0.027439921 348.3306 5.853152 -0.004680263 292.1814 5.677375
## 2002 -0.020464148 340.3423 5.829952 -0.023200153 291.0648 5.673546
## 2003 -0.009036202 345.9181 5.846202 0.016250166 297.3989 5.695074
## 2004 0.054294172 358.0841 5.880768 0.034565833 311.1805 5.740373
## 2005 0.012447044 379.3638 5.938496 0.057727764 335.8064 5.816535
## 2006 0.039362804 431.2178 6.066613 0.128117660 391.5077 5.970005
## 2007 -0.048144788 434.1952 6.073494 0.006880904 408.8617 6.013377
## 2008 -0.010870599 423.3551 6.048211 -0.025282896 413.3283 6.024242
## 2009 -0.118520641 368.4569 5.909324 -0.138887563 347.3372 5.850296
## 2010 0.097134071 347.2826 5.850139 -0.059184886 328.0254 5.793091
## 2011 0.022710011 348.6316 5.854016 0.003876920 335.3559 5.815192
## 2012 0.025063497 361.6471 5.890669 0.036653097 355.8379 5.874475
## 2013 0.008053344 371.5301 5.917630 0.026961009 367.6496 5.907130
## 2014 0.024025958 383.0892 5.948268 0.030637976 379.6637 5.939286
## 2015 0.013020911 404.2295 6.001983 0.053714926 404.2295 6.001983
## 2016 0.040218824 436.1874 6.078072 0.076089182 443.1619 6.093935
## 2017 0.021811333 449.1728 6.107408 0.029335701 460.9355 6.133258
## 2018 0.021896521 473.6252 6.160416 0.053008623 494.7083 6.203968
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1972 0.175119873 34.6802 3.546169 0.202251135 0.8319747 -0.1839532
## 1973 0.136522654 40.7408 3.707230 0.161061128 0.8526426 -0.1594148
## 1974 0.078894202 43.4562 3.771754 0.064523487 0.8404772 -0.1737855
## 1975 0.004330682 42.6046 3.751962 -0.019791306 0.8204458 -0.1979075
## 1976 0.227487005 54.8103 4.003878 0.251915904 0.8407352 -0.1734786
## 1977 0.071752636 58.0810 4.061839 0.057960456 0.8292192 -0.1872708
## 1978 0.088999368 63.5016 4.151065 0.089226514 0.8294076 -0.1870436
## 1979 0.076947641 67.3335 4.209658 0.058592782 0.8143228 -0.2053985
## 1980 -0.008481014 66.7182 4.200478 -0.009180105 0.8137537 -0.2060976
## 1981 -0.077041397 60.5069 4.102757 -0.097720371 0.7970989 -0.2267765
## 1982 0.170434610 74.3033 4.308155 0.205397957 0.8254611 -0.1918132
## 1983 0.110552299 85.4245 4.447633 0.139477580 0.8496864 -0.1628879
## 1984 0.146233300 100.1616 4.606785 0.159151937 0.8607344 -0.1499693
## 1985 0.164893274 117.8955 4.769799 0.163013757 0.8591182 -0.1518488
## 1986 0.159422728 142.5232 4.959505 0.189706155 0.8855332 -0.1215654
## 1987 0.039848127 146.9391 4.990018 0.030513422 0.8773054 -0.1309001
## 1988 -0.032443930 138.9163 4.933872 -0.056146622 0.8567555 -0.1546028
## 1989 0.051195413 147.9904 4.997147 0.063275813 0.8671682 -0.1425224
## 1990 0.023256202 151.7278 5.022088 0.024940719 0.8686302 -0.1408378
## 1991 -0.001967874 152.2484 5.025513 0.003425272 0.8733275 -0.1354447
## 1992 -0.010771306 146.2377 4.985233 -0.040280017 0.8479332 -0.1649534
## 1993 -0.028167547 142.0716 4.956331 -0.028902224 0.8473105 -0.1656881
## 1994 0.080787834 154.4988 5.040186 0.083855173 0.8499135 -0.1626207
## 1995 0.104734625 171.9704 5.147322 0.107136040 0.8519569 -0.1602193
## 1996 0.055186063 180.1010 5.193518 0.046195436 0.8443316 -0.1692099
## 1997 0.111924954 204.9876 5.322949 0.129431685 0.8592433 -0.1517032
## 1998 0.069634496 223.7642 5.410593 0.087643329 0.8748574 -0.1336944
## 1999 0.015338485 225.7216 5.419302 0.008709563 0.8690772 -0.1403233
## 2000 0.094220465 248.6000 5.515845 0.096542798 0.8710978 -0.1380010
## 2001 0.023528688 250.9754 5.525355 0.009509747 0.8589712 -0.1520199
## 2002 -0.003828919 252.4538 5.531228 0.005873335 0.8673457 -0.1423177
## 2003 0.021528413 259.6529 5.559346 0.028117477 0.8730796 -0.1357286
## 2004 0.045298794 268.6095 5.593259 0.033912913 0.8631952 -0.1471145
## 2005 0.076161674 292.5684 5.678698 0.085439833 0.8712413 -0.1378363
## 2006 0.153470380 342.1227 5.835169 0.156470959 0.8738594 -0.1348357
## 2007 0.043371774 356.0117 5.874964 0.039794151 0.8707387 -0.1384134
## 2008 0.010865235 359.2993 5.884156 0.009192150 0.8692831 -0.1400864
## 2009 -0.173946126 293.4172 5.681595 -0.202560259 0.8447618 -0.1687006
## 2010 -0.057205022 268.4334 5.592603 -0.088992649 0.8183311 -0.2004882
## 2011 0.022101312 273.9989 5.613124 0.020521253 0.8170392 -0.2020683
## 2012 0.059282934 284.0299 5.649080 0.035955423 0.7982002 -0.2253958
## 2013 0.032655021 296.9606 5.693599 0.044519956 0.8077272 -0.2135308
## 2014 0.032155550 303.2137 5.714438 0.020838367 0.7986376 -0.2248480
## 2015 0.062696925 330.3715 5.800218 0.085779941 0.8172870 -0.2017650
## 2016 0.091952380 363.5839 5.896010 0.095792303 0.8204313 -0.1979251
## 2017 0.039322954 386.8215 5.957963 0.061953264 0.8392096 -0.1752948
## 2018 0.070710176 417.5263 6.034348 0.076384190 0.8439848 -0.1696208
## Ips_dl I I_l I_dl r r_l
## 1972 0.0271312622 147.4472 4.993470 0.1203245772 1.2671869 1.2267870
## 1973 0.0245384747 159.1696 5.069970 0.0765001849 1.7625137 1.3624067
## 1974 -0.0143707153 145.6606 4.981279 -0.0886913345 2.2897845 1.4890432
## 1975 -0.0241219876 128.5430 4.856264 -0.1250155329 -0.5608925 0.4588007
## 1976 0.0244288990 153.6958 5.034975 0.1787117823 5.0191124 1.9688144
## 1977 -0.0137921807 150.6919 5.015238 -0.0197377947 6.7454124 2.1847561
## 1978 0.0002271467 153.8208 5.035789 0.0205510502 7.2004812 2.2346862
## 1979 -0.0183548597 151.9186 5.023345 -0.0124438207 9.0329552 2.4137707
## 1980 -0.0006990911 137.6918 4.925018 -0.0983266203 9.1070677 2.4203802
## 1981 -0.0206789738 112.2892 4.721077 -0.2039408931 7.7926949 2.2961406
## 1982 0.0349633476 125.9347 4.835763 0.1146858559 9.4017046 2.4462327
## 1983 0.0289252806 135.3432 4.907814 0.0720509224 6.5689859 2.1647075
## 1984 0.0129186364 151.2915 5.019208 0.1113941401 7.9753266 2.3143550
## 1985 -0.0018795164 171.9559 5.147238 0.1280300938 6.9795579 2.2107577
## 1986 0.0302834266 209.6092 5.345245 0.1980067718 7.5789164 2.2743897
## 1987 -0.0093347051 214.1705 5.366773 0.0215274857 6.2386826 2.1260568
## 1988 -0.0237026919 197.2744 5.284595 -0.0821770503 5.7005568 2.0597010
## 1989 0.0120804007 203.8070 5.317173 0.0325778736 4.5107439 1.8951899
## 1990 0.0016845171 203.6556 5.316431 -0.0007428402 7.8239392 2.2992803
## 1991 0.0053931455 199.9954 5.298294 -0.0181361841 6.4392971 2.1497095
## 1992 -0.0295087116 193.1834 5.263640 -0.0346545926 7.2146216 2.2361984
## 1993 -0.0007346771 187.9389 5.236117 -0.0275229007 6.6813356 2.1775210
## 1994 0.0030673392 201.4489 5.305536 0.0694187489 6.1679380 2.1175806
## 1995 0.0024014150 223.2685 5.408375 0.1028395485 6.8991361 2.2019029
## 1996 -0.0089906275 233.0371 5.451198 0.0428226498 5.0736237 1.9763966
## 1997 0.0175067310 261.3606 5.565901 0.1147031612 4.1524535 1.8398385
## 1998 0.0180088331 283.7954 5.648254 0.0823526901 3.6627272 1.7588566
## 1999 -0.0066289218 281.1841 5.639010 -0.0092440053 3.1718090 1.6705098
## 2000 0.0023223328 304.8535 5.719831 0.0808216715 2.5452127 1.5450659
## 2001 -0.0140189411 299.2059 5.701132 -0.0186992045 2.4986586 1.5350864
## 2002 0.0097022548 295.1944 5.687634 -0.0134978982 2.6501368 1.5671992
## 2003 0.0065890649 302.0140 5.710473 0.0228392309 2.7868735 1.5953271
## 2004 -0.0113858814 309.0965 5.733653 0.0231799517 2.1590196 1.4591003
## 2005 0.0092781597 330.5174 5.800659 0.0670059238 0.4796357 0.9642057
## 2006 0.0030005794 376.8237 5.931778 0.1311182392 1.6985550 1.3458949
## 2007 -0.0035776230 378.0706 5.935081 0.0033032806 1.8136077 1.3754042
## 2008 -0.0016730850 368.0154 5.908125 -0.0269559808 0.1395380 0.8253177
## 2009 -0.0286141324 311.2583 5.740623 -0.1675016951 3.0448691 1.6463361
## 2010 -0.0317876269 284.1922 5.649651 -0.0909725134 -0.2848877 0.6195976
## 2011 -0.0015800582 284.8457 5.651948 0.0022968613 2.0780853 1.4401083
## 2012 -0.0233275116 288.6668 5.665273 0.0133255856 -0.9525585 0.1743812
## 2013 0.0118649352 300.0950 5.704099 0.0388259445 0.8542418 1.0977151
## 2014 -0.0113171829 305.9494 5.723420 0.0193207936 0.2849503 0.8870753
## 2015 0.0230830163 330.3715 5.800218 0.0767979420 0.2558312 0.8750099
## 2016 0.0038399230 357.8618 5.880147 0.0799291045 0.0652387 0.7922259
## 2017 0.0226303105 376.9501 5.932113 0.0519660119 -0.6462049 0.4033715
## 2018 0.0056740140 399.7325 5.990796 0.0586826367 -0.3923645 0.5600176
## r_dl P P_l P_dl Pm Pm_l
## 1972 -0.462154737 16.88952 2.826693 0.091677668 26.02241 3.258958
## 1973 0.135619703 18.68324 2.927627 0.100933452 28.33216 3.343998
## 1974 0.126636553 21.16184 3.052200 0.124572754 36.87114 3.607429
## 1975 -1.030242565 23.98817 3.177561 0.125361396 38.65438 3.654660
## 1976 1.510013760 26.23829 3.267220 0.089658698 41.43428 3.724108
## 1977 0.215941647 28.56716 3.352258 0.085038272 44.38971 3.793008
## 1978 0.049930080 31.12528 3.438020 0.085762332 45.45364 3.816693
## 1979 0.179084521 33.32538 3.506319 0.068299062 50.55771 3.923115
## 1980 0.006609493 36.26153 3.590757 0.084438108 60.42618 4.101422
## 1981 -0.124239531 40.13932 3.692356 0.101599069 69.51622 4.241560
## 1982 0.150092086 44.21127 3.788980 0.096623281 77.63259 4.351987
## 1983 -0.281525179 47.47664 3.860238 0.071258136 80.87111 4.392857
## 1984 0.149647446 50.30596 3.918124 0.057885745 86.99024 4.465796
## 1985 -0.103597327 52.46457 3.960138 0.042014428 88.41159 4.482003
## 1986 0.063632065 53.67943 3.983030 0.022891843 79.73016 4.378648
## 1987 -0.148332962 56.23172 4.029481 0.046451122 77.30332 4.347737
## 1988 -0.066355722 58.44983 4.068169 0.038687689 78.36065 4.361322
## 1989 -0.164511171 61.35203 4.116628 0.048459489 82.41344 4.411749
## 1990 0.404090460 62.94868 4.142320 0.025691596 81.80595 4.404350
## 1991 -0.149570833 64.62277 4.168567 0.026247041 83.43533 4.424072
## 1992 0.086488896 65.69287 4.184990 0.016423501 82.69199 4.415123
## 1993 -0.058677404 66.07383 4.190773 0.005782432 81.54150 4.401112
## 1994 -0.059940361 67.10822 4.206307 0.015533751 82.01277 4.406875
## 1995 0.084322302 67.96881 4.219049 0.012742370 82.64968 4.414611
## 1996 -0.225506332 69.33782 4.238991 0.019941677 82.81004 4.416549
## 1997 -0.136558131 70.73423 4.258930 0.019939083 84.94248 4.441974
## 1998 -0.080981919 71.60578 4.271176 0.012246138 83.43160 4.424027
## 1999 -0.088346725 72.81216 4.287883 0.016707193 83.26164 4.421988
## 2000 -0.125443948 75.00961 4.317616 0.029733286 89.49480 4.494180
## 2001 -0.009979518 76.89866 4.342489 0.024872254 90.99272 4.510779
## 2002 0.032112841 78.70397 4.365694 0.023205140 88.96242 4.488214
## 2003 0.028127875 79.87023 4.380403 0.014709579 87.31380 4.469509
## 2004 -0.136226735 81.54410 4.401144 0.020740747 88.26239 4.480314
## 2005 -0.494894691 83.91412 4.429794 0.028649886 91.43276 4.515604
## 2006 0.381689226 85.65632 4.450343 0.020549210 94.61162 4.549780
## 2007 0.029509271 87.73973 4.474375 0.024031715 96.26050 4.567058
## 2008 -0.550086467 91.36750 4.514890 0.040514996 99.23653 4.597506
## 2009 0.821018419 91.85085 4.520166 0.005276283 90.66864 4.507212
## 2010 -1.026738536 94.81219 4.551898 0.031731903 96.93930 4.574085
## 2011 0.820510769 95.41770 4.558264 0.006366124 100.13977 4.606567
## 2012 -1.265727138 97.68404 4.581738 0.023474149 102.53971 4.630250
## 2013 0.923333888 98.55165 4.590581 0.008842500 102.07885 4.625746
## 2014 -0.210639758 99.56881 4.600849 0.010268188 99.67836 4.601949
## 2015 -0.012065446 100.00000 4.605170 0.004321258 100.00000 4.605170
## 2016 -0.082783950 100.25460 4.607713 0.002542717 95.97701 4.564109
## 2017 -0.388854414 101.39101 4.618984 0.011271535 97.84336 4.583368
## 2018 0.156646075 102.24846 4.627406 0.008421269 100.48907 4.610049
## Pm_dl Px Px_l Px_dl X X_l
## 1972 0.045617851 23.46816 3.155645 0.063221413 181.662 5.202148
## 1973 0.085039548 26.41906 3.274086 0.118440897 196.841 5.282396
## 1974 0.263431472 31.35545 3.445388 0.171302439 203.562 5.315971
## 1975 0.047231060 33.80084 3.520486 0.075097735 202.088 5.308703
## 1976 0.069448320 36.40300 3.594651 0.074165304 209.021 5.342435
## 1977 0.068899299 39.14289 3.667219 0.072567714 216.517 5.377669
## 1978 0.023685233 41.57278 3.727446 0.060226766 219.540 5.391534
## 1979 0.106422440 44.45323 3.794438 0.066992047 243.446 5.494895
## 1980 0.178307054 50.69161 3.925760 0.131322777 257.032 5.549201
## 1981 0.140137577 56.93435 4.041899 0.116138522 279.295 5.632269
## 1982 0.110427223 62.67320 4.137934 0.096035088 288.133 5.663422
## 1983 0.040869315 66.10288 4.191212 0.053278285 301.376 5.708359
## 1984 0.072939372 71.36105 4.267752 0.076539910 311.316 5.740808
## 1985 0.016207075 73.27482 4.294217 0.026464852 330.109 5.799423
## 1986 -0.103355120 68.80650 4.231298 -0.062918748 334.530 5.812727
## 1987 -0.030910973 67.64359 4.214253 -0.017045638 350.780 5.860159
## 1988 0.013584877 68.29807 4.223882 0.009628888 382.848 5.947638
## 1989 0.050426680 72.64089 4.285528 0.061646435 400.680 5.993163
## 1990 -0.007398590 73.00797 4.290569 0.005040600 426.831 6.056388
## 1991 0.019721933 74.05053 4.304748 0.014179069 453.179 6.116287
## 1992 -0.008949142 75.06367 4.318337 0.013589112 454.406 6.118991
## 1993 -0.014010652 73.80666 4.301449 -0.016887777 459.992 6.131209
## 1994 0.005762917 73.52131 4.297575 -0.003873632 497.875 6.210349
## 1995 0.007735989 74.20274 4.306801 0.009225676 511.405 6.237162
## 1996 0.001938364 75.34918 4.322133 0.015332007 535.244 6.282723
## 1997 0.025425013 77.37298 4.348638 0.026504658 559.383 6.326834
## 1998 -0.017947197 75.73505 4.327241 -0.021396554 582.330 6.367037
## 1999 -0.002039226 75.38976 4.322671 -0.004569652 647.991 6.473877
## 2000 0.072192560 81.54936 4.401208 0.078536980 729.722 6.592664
## 2001 0.016599005 82.83887 4.416897 0.015688968 754.225 6.625691
## 2002 -0.022565473 81.89514 4.405440 -0.011457803 787.052 6.668294
## 2003 -0.018705504 81.00555 4.394518 -0.010921915 777.538 6.656133
## 2004 0.010805552 82.58575 4.413837 0.019319505 801.061 6.685937
## 2005 0.035289747 87.13420 4.467450 0.053612309 863.706 6.761232
## 2006 0.034176506 89.55070 4.494805 0.027355396 952.992 6.859607
## 2007 0.017277699 90.62483 4.506728 0.011923305 987.811 6.895491
## 2008 0.030448129 95.11742 4.555112 0.048383964 1026.059 6.933481
## 2009 -0.090294644 87.13425 4.467450 -0.087662090 931.411 6.836701
## 2010 0.066873498 95.42518 4.558342 0.090892346 958.796 6.865678
## 2011 0.032481880 96.71129 4.571730 0.013387757 1027.780 6.935156
## 2012 0.023683256 99.56951 4.600856 0.029125850 1039.725 6.946712
## 2013 -0.004504602 100.14577 4.606627 0.005770800 1056.479 6.962697
## 2014 -0.023796948 99.30628 4.598209 -0.008418059 1089.535 6.993506
## 2015 0.003221595 100.00000 4.605170 0.006961401 1128.511 7.028654
## 2016 -0.041061450 95.84711 4.562754 -0.042415871 1174.910 7.068947
## 2017 0.019259069 97.55544 4.580421 0.017666527 1229.382 7.114267
## 2018 0.026681204 99.27844 4.597928 0.017507616 1258.768 7.137889
## X_dl M M_l M_dl rulc rulc_l
## 1972 0.051286921 166.365 5.114184 0.011449907 0.6727075 -0.3964447
## 1973 0.080248479 195.974 5.277982 0.163797828 0.6598799 -0.4156974
## 1974 0.033574331 192.019 5.257594 -0.020387672 0.6796674 -0.3861517
## 1975 -0.007267381 182.488 5.206684 -0.050909908 0.6850258 -0.3782988
## 1976 0.033731479 213.112 5.361818 0.155133432 0.6723645 -0.3969546
## 1977 0.035234341 214.943 5.370373 0.008555028 0.6705149 -0.3997093
## 1978 0.013865382 217.027 5.380022 0.009648893 0.6662453 -0.4060974
## 1979 0.103360704 231.492 5.444545 0.064523546 0.6668733 -0.4051552
## 1980 0.054305439 218.611 5.387294 -0.057251421 0.6700861 -0.4003491
## 1981 0.083067980 219.825 5.392832 0.005537881 0.6547486 -0.4235039
## 1982 0.031153608 226.720 5.423716 0.030884001 0.6384455 -0.4487189
## 1983 0.044936476 231.188 5.443231 0.019515456 0.6275526 -0.4659278
## 1984 0.032449819 243.584 5.495462 0.052230620 0.6081055 -0.4974069
## 1985 0.058614429 267.771 5.590132 0.094670285 0.6033403 -0.5052740
## 1986 0.013303659 290.476 5.671521 0.081388819 0.6067138 -0.4996982
## 1987 0.047432685 287.053 5.659667 -0.011854089 0.6206222 -0.4770327
## 1988 0.087478797 299.179 5.701042 0.041375189 0.6205939 -0.4770783
## 1989 0.045525060 315.328 5.753613 0.052571310 0.6038179 -0.5044826
## 1990 0.063225047 322.819 5.777092 0.023478428 0.5969436 -0.5159326
## 1991 0.059899041 335.833 5.816614 0.039522218 0.5914192 -0.5252302
## 1992 0.002703881 335.393 5.815303 -0.001311034 0.5831454 -0.5393188
## 1993 0.012218026 330.647 5.801051 -0.014251638 0.5831331 -0.5393399
## 1994 0.079139943 374.587 5.925824 0.124772745 0.5601305 -0.5795854
## 1995 0.026812798 400.081 5.991667 0.065842941 0.5599599 -0.5798901
## 1996 0.045560878 412.609 6.022500 0.030833387 0.5601381 -0.5795720
## 1997 0.044111673 450.742 6.110895 0.088394700 0.5563908 -0.5862844
## 1998 0.040202907 484.913 6.183969 0.073074380 0.5672416 -0.5669700
## 1999 0.106839510 497.266 6.209125 0.025155601 0.5669260 -0.5675264
## 2000 0.118786832 565.441 6.337606 0.128480863 0.5490626 -0.5995428
## 2001 0.033027092 579.012 6.361323 0.023717245 0.5564338 -0.5862070
## 2002 0.042603588 615.907 6.423096 0.061772775 0.5594234 -0.5808486
## 2003 -0.012161802 609.549 6.412719 -0.010376639 0.5623653 -0.5756036
## 2004 0.029804582 653.151 6.481808 0.069089004 0.5494381 -0.5988591
## 2005 0.075295334 727.619 6.589778 0.107969217 0.5456778 -0.6057265
## 2006 0.098374076 829.233 6.720501 0.130723618 0.5431887 -0.6102986
## 2007 0.035884875 877.643 6.777240 0.056738728 0.5551244 -0.5885630
## 2008 0.037989145 919.509 6.823840 0.046599927 0.5594392 -0.5808204
## 2009 -0.096779888 809.686 6.696647 -0.127193314 0.5790283 -0.5464040
## 2010 0.028977690 814.064 6.702039 0.005392469 0.5534619 -0.5915624
## 2011 0.069478085 874.660 6.773835 0.071796252 0.5488182 -0.5999880
## 2012 0.011555119 898.354 6.800564 0.026728961 0.5381318 -0.6196518
## 2013 0.015985426 911.566 6.815164 0.014599800 0.5361262 -0.6233858
## 2014 0.030809319 947.087 6.853391 0.038226958 0.5339306 -0.6274893
## 2015 0.035148065 990.281 6.897989 0.044597783 0.5357666 -0.6240567
## 2016 0.040292484 1026.547 6.933956 0.035967281 0.5343299 -0.6267418
## 2017 0.045320055 1070.225 6.975624 0.041668164 0.5334013 -0.6284812
## 2018 0.023621861 1108.449 7.010717 0.035092834 0.5321309 -0.6308658
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1972 -0.03535530436 11.36171 2.430249 0.0563223634 69.03983 4.234684
## 1973 -0.01925268846 12.32869 2.511929 0.0816807639 70.22585 4.251716
## 1974 0.02954577527 14.38301 2.666048 0.1541185289 68.81203 4.231379
## 1975 0.00785285468 16.43252 2.799262 0.1332142505 67.52988 4.212570
## 1976 -0.01865581129 17.64169 2.870265 0.0710028870 69.91316 4.247254
## 1977 -0.00275470922 19.15471 2.952549 0.0822835628 70.46688 4.255143
## 1978 -0.00638804577 20.73707 3.031923 0.0793742867 70.85039 4.260571
## 1979 0.00094218615 22.22381 3.101164 0.0692412482 72.30958 4.280957
## 1980 0.00480607558 24.29835 3.190408 0.0892441836 71.66254 4.271968
## 1981 -0.02315483574 26.28116 3.268853 0.0784442332 71.62734 4.271477
## 1982 -0.02521495723 28.22649 3.340261 0.0714083242 73.76517 4.300887
## 1983 -0.01720887471 29.79409 3.394310 0.0540492613 75.30735 4.321578
## 1984 -0.03147912952 30.59133 3.420717 0.0264066151 77.32714 4.348045
## 1985 -0.00786707336 31.65399 3.454864 0.0341473544 78.68816 4.365493
## 1986 0.00557579778 32.56805 3.483332 0.0284676403 80.43712 4.387476
## 1987 0.02266547113 34.89866 3.552448 0.0691165927 79.38580 4.374319
## 1988 -0.00004558178 36.27361 3.591090 0.0386421068 78.93873 4.368672
## 1989 -0.02740428645 37.04545 3.612146 0.0210552023 78.99145 4.369340
## 1990 -0.01145002033 37.57681 3.626387 0.0142415753 79.83154 4.379919
## 1991 -0.00929762629 38.21915 3.643337 0.0169494144 81.01790 4.394670
## 1992 -0.01408858483 38.30849 3.645672 0.0023349157 82.70663 4.415300
## 1993 -0.00002107425 38.52984 3.651433 0.0057613575 83.35876 4.423154
## 1994 -0.04024553179 37.58936 3.626721 -0.0247117806 86.58384 4.461113
## 1995 -0.00030474083 38.05980 3.639159 0.0124376296 88.47433 4.482712
## 1996 0.00031817620 38.83875 3.659419 0.0202598536 90.03806 4.500232
## 1997 -0.00671240290 39.35587 3.672645 0.0132266800 91.58761 4.517296
## 1998 0.01931441828 40.61778 3.704206 0.0315605561 92.09848 4.522858
## 1999 -0.00055645501 41.27911 3.720357 0.0161507377 93.67843 4.539868
## 2000 -0.03201643374 41.18497 3.718073 -0.0022831478 95.89285 4.563231
## 2001 0.01333580723 42.78902 3.756281 0.0382080610 95.38230 4.557893
## 2002 0.00535840930 44.02885 3.784845 0.0285635494 95.20915 4.556076
## 2003 0.00524506284 44.91625 3.804800 0.0199546421 95.55671 4.559720
## 2004 -0.02325557943 44.80344 3.802285 -0.0025148326 97.83126 4.583244
## 2005 -0.00686739974 45.79007 3.824067 0.0217824861 98.56455 4.590712
## 2006 -0.00457203117 46.52754 3.840044 0.0159771788 99.92589 4.604429
## 2007 0.02173559055 48.70647 3.885812 0.0457673057 98.41200 4.589163
## 2008 0.00774259880 51.11456 3.934069 0.0482575952 96.46925 4.569224
## 2009 0.03441639097 53.18424 3.973762 0.0396926740 93.13475 4.534047
## 2010 -0.04515840680 52.47493 3.960336 -0.0134265041 96.10697 4.565462
## 2011 -0.00842556212 52.36697 3.958276 -0.0020594379 97.31488 4.577952
## 2012 -0.01966383682 52.56689 3.962086 0.0038103123 97.73032 4.582212
## 2013 -0.00373398410 52.83612 3.967195 0.0051085159 98.35322 4.588565
## 2014 -0.00410356018 53.16284 3.973360 0.0061646279 99.04841 4.595609
## 2015 0.00343265126 53.57666 3.981113 0.0077539095 100.00000 4.605170
## 2016 -0.00268513196 53.56903 3.980971 -0.0001424154 101.45650 4.619630
## 2017 -0.00173938078 54.08210 3.990503 0.0095321540 101.73933 4.622414
## 2018 -0.00238459192 54.40956 3.996540 0.0060366771 102.35110 4.628409
## Tau_dl dPxdPm dPdPm Trade
## 1972 0.0116953716 0.0176035619 0.0460598167 0.3640789
## 1973 0.0170329030 0.0334013490 0.0158939043 0.3947747
## 1974 -0.0203379207 -0.0921290332 -0.1388587182 0.4020671
## 1975 -0.0188083743 0.0278666755 0.0781303361 0.3966598
## 1976 0.0346838057 0.0047169840 0.0202103779 0.4110443
## 1977 0.0078888006 0.0036684151 0.0161389735 0.4124127
## 1978 0.0054277590 0.0365415325 0.0620770994 0.4082064
## 1979 0.0203861452 -0.0394303929 -0.0381233780 0.4275427
## 1980 -0.0089885368 -0.0469842771 -0.0938689458 0.4302554
## 1981 -0.0004913006 -0.0239990557 -0.0385385085 0.4545198
## 1982 0.0294098858 -0.0143921347 -0.0138039416 0.4521859
## 1983 0.0206909807 0.0124089696 0.0303888206 0.4559053
## 1984 0.0264673211 0.0036005379 -0.0150536271 0.4560273
## 1985 0.0174476495 0.0102577771 0.0258073531 0.4724341
## 1986 0.0219831297 0.0404363722 0.1262469626 0.4707806
## 1987 -0.0131563254 0.0138653356 0.0773620948 0.4792242
## 1988 -0.0056475280 -0.0039559887 0.0251028115 0.5124982
## 1989 0.0006677356 0.0112197557 -0.0019671910 0.5345837
## 1990 0.0105789875 0.0124391898 0.0330901859 0.5515645
## 1991 0.0147514633 -0.0055428638 0.0065251076 0.5725461
## 1992 0.0206296282 0.0225382538 0.0253726422 0.5621165
## 1993 0.0078539814 -0.0028771246 0.0197930838 0.5626543
## 1994 0.0379594660 -0.0096365483 0.0097708347 0.5894512
## 1995 0.0215992013 0.0014896873 0.0050063813 0.5977196
## 1996 0.0175200372 0.0133936430 0.0180033139 0.6040501
## 1997 0.0170635235 0.0010796454 -0.0054859301 0.6234062
## 1998 0.0055624346 -0.0034493565 0.0301933351 0.6443638
## 1999 0.0170095394 -0.0025304264 0.0187464183 0.6716652
## 2000 0.0233635159 0.0063444202 -0.0424592742 0.7321487
## 2001 -0.0053384384 -0.0009100368 0.0082732487 0.7475187
## 2002 -0.0018169214 0.0111076704 0.0457706136 0.7829589
## 2003 0.0036437838 0.0077835892 0.0334150834 0.7710935
## 2004 0.0235243079 0.0085139530 0.0099351947 0.7873995
## 2005 0.0074675095 0.0183225627 -0.0066398609 0.8419669
## 2006 0.0137171553 -0.0068211102 -0.0136272958 0.9074627
## 2007 -0.0152661044 -0.0053543946 0.0067540160 0.9412823
## 2008 -0.0199384016 0.0179358342 0.0100668670 0.9867590
## 2009 -0.0351769759 0.0026325546 0.0955709274 0.9286178
## 2010 0.0314144259 0.0240188470 -0.0351415958 0.9281921
## 2011 0.0124901094 -0.0190941226 -0.0261157556 0.9828958
## 2012 0.0042599298 0.0054425945 -0.0002091069 0.9990458
## 2013 0.0063534674 0.0102754021 0.0133471020 1.0051118
## 2014 0.0070433945 0.0153788890 0.0340651360 1.0235593
## 2015 0.0095614877 0.0037398067 0.0010996634 1.0404821
## 2016 0.0144599640 -0.0013544211 0.0436041668 1.0470888
## 2017 0.0027838413 -0.0015925418 -0.0079875345 1.0719454
## 2018 0.0059950613 -0.0091735884 -0.0182599352 1.0776904
adf.DNK.WS <- adf.test((DNK$WS), alternative = c("stationary"), k = 2)
adf.DNK.PS <- adf.test((DNK$PS), alternative = c("stationary"), k = 2)
adf.DNK.Y <- adf.test((DNK$Y), alternative = c("stationary"), k = 2)
adf.DNK.Yrw <- adf.test((DNK$Yrw), alternative = c("stationary"), k = 2)
adf.DNK.r <- adf.test((DNK$r), alternative = c("stationary"), k = 2)
adf.DNK.R <- adf.test((DNK$R), alternative = c("stationary"), k = 2)
adf.DNK.Tau <- adf.test((DNK$Tau), alternative = c("stationary"), k = 2)
adf.DNK.rulc <- adf.test((DNK$rulc), alternative = c("stationary"), k = 2)
adf.DNK.ulc <- adf.test((DNK$ulc), alternative = c("stationary"), k = 2)
adf.DNK.P <- adf.test((DNK$P), alternative = c("stationary"), k = 2)
adf.DNK.Pm <- adf.test((DNK$Pm), alternative = c("stationary"), k = 2)
adf.DNK.Px <- adf.test((DNK$Px), alternative = c("stationary"), k = 2)
adf.DNK.X <- adf.test((DNK$X), alternative = c("stationary"), k = 2)
adf.DNK.M <- adf.test((DNK$M), alternative = c("stationary"), k = 2)
adf.DNK.I <- adf.test((DNK$I), alternative = c("stationary"), k = 2)
adf.DNK.C <- adf.test((DNK$C), alternative = c("stationary"), k = 2)
adf.DNK.Ipr <- adf.test((DNK$Ipr), alternative = c("stationary"), k = 2)
adf.DNK.Ips <- adf.test((DNK$Ips), alternative = c("stationary"), k = 2)
adf.DNK.It <- adf.test((DNK$It), alternative = c("stationary"), k = 2)
adf.DNK.Itcurr <- adf.test((DNK$Itcurr), alternative = c("stationary"), k = 2)
adf.DNK.Yf <- adf.test((DNK$Yf), alternative = c("stationary"), k = 2)
adf.DNK.W <- adf.test((DNK$W), alternative = c("stationary"), k = 2)
adf.DNK.WS.pval <- adf.DNK.WS$p.value
adf.DNK.PS.pval <- adf.DNK.PS$p.value
adf.DNK.Y.pval <- adf.DNK.Y$p.value
adf.DNK.Yrw.pval <- adf.DNK.Yrw$p.value
adf.DNK.r.pval <- adf.DNK.r$p.value
adf.DNK.R.pval <- adf.DNK.R$p.value
adf.DNK.Tau.pval <- adf.DNK.Tau$p.value
adf.DNK.rulc.pval <- adf.DNK.rulc$p.value
adf.DNK.ulc.pval <- adf.DNK.ulc$p.value
adf.DNK.P.pval <- adf.DNK.P$p.value
adf.DNK.Pm.pval <- adf.DNK.Pm$p.value
adf.DNK.Px.pval <- adf.DNK.Px$p.value
adf.DNK.X.pval <- adf.DNK.X$p.value
adf.DNK.M.pval <- adf.DNK.M$p.value
adf.DNK.I.pval <- adf.DNK.I$p.value
adf.DNK.C.pval <- adf.DNK.C$p.value
adf.DNK.Ipr.pval <- adf.DNK.Ipr$p.value
adf.DNK.Ips.pval <- adf.DNK.Ips$p.value
adf.DNK.It.pval <- adf.DNK.It$p.value
adf.DNK.Itcurr.pval <- adf.DNK.Itcurr$p.value
adf.DNK.Yf.pval <- adf.DNK.Yf$p.value
adf.DNK.W.pval <- adf.DNK.W$p.value
adf.DNK_non <- rbind(adf.DNK.WS.pval,adf.DNK.PS.pval,adf.DNK.Y.pval,adf.DNK.Yrw.pval,adf.DNK.r.pval,adf.DNK.R.pval,adf.DNK.Tau.pval,adf.DNK.rulc.pval,adf.DNK.ulc.pval,adf.DNK.P.pval,adf.DNK.Pm.pval,adf.DNK.Px.pval,adf.DNK.X.pval,adf.DNK.M.pval,adf.DNK.I.pval,adf.DNK.C.pval,adf.DNK.Ipr.pval,adf.DNK.Ips.pval,adf.DNK.It.pval,adf.DNK.Itcurr.pval,adf.DNK.Yf.pval,adf.DNK.W.pval)
colnames(adf.DNK_non) <- c("DNK")
rownames(adf.DNK_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.DNK_non
## DNK
## WS 0.39711327
## PS 0.39711327
## Y 0.33064006
## Yrw 0.35939230
## r 0.09894894
## R 0.38753305
## Tau 0.66856713
## rulc 0.62196476
## ulc 0.55645797
## P 0.48747067
## Pm 0.47882822
## Px 0.45573477
## X 0.58168171
## M 0.74546701
## I 0.08314385
## C 0.04154395
## Ipr 0.04382303
## Ips 0.49380137
## It 0.08728796
## Itcurr 0.05562404
## Yf 0.40653066
## W 0.16709002
adf.DNK.WS_dl <- adf.test((DNK$WS_dl), alternative = c("stationary"), k = 2)
adf.DNK.PS_dl <- adf.test((DNK$PS_dl), alternative = c("stationary"), k = 2)
adf.DNK.Y_dl <- adf.test((DNK$Y_dl), alternative = c("stationary"), k = 2)
adf.DNK.Yrw_dl <- adf.test((DNK$Yrw_dl), alternative = c("stationary"), k = 2)
adf.DNK.r_dl <- adf.test((DNK$r_dl), alternative = c("stationary"), k = 2)
adf.DNK.R_dl <- adf.test((DNK$R_dl), alternative = c("stationary"), k = 2)
adf.DNK.Tau_dl <- adf.test((DNK$Tau_dl), alternative = c("stationary"), k = 2)
adf.DNK.rulc_dl <- adf.test((DNK$rulc_dl), alternative = c("stationary"), k = 2)
adf.DNK.ulc_dl <- adf.test((DNK$ulc_dl), alternative = c("stationary"), k = 2)
adf.DNK.P_dl <- adf.test((DNK$P_dl), alternative = c("stationary"), k = 2)
adf.DNK.Pm_dl <- adf.test((DNK$Pm_dl), alternative = c("stationary"), k = 2)
adf.DNK.Px_dl <- adf.test((DNK$Px_dl), alternative = c("stationary"), k = 2)
adf.DNK.X_dl <- adf.test((DNK$X_dl), alternative = c("stationary"), k = 2)
adf.DNK.M_dl <- adf.test((DNK$M_dl), alternative = c("stationary"), k = 2)
adf.DNK.I_dl <- adf.test((DNK$I_dl), alternative = c("stationary"), k = 2)
adf.DNK.C_dl <- adf.test((DNK$C_dl), alternative = c("stationary"), k = 2)
adf.DNK.Ipr_dl <- adf.test((DNK$Ipr_dl), alternative = c("stationary"), k = 2)
adf.DNK.Ips_dl <- adf.test((DNK$Ips_dl), alternative = c("stationary"), k = 2)
adf.DNK.It_dl <- adf.test((DNK$It_dl), alternative = c("stationary"), k = 2)
adf.DNK.Itcurr_dl <- adf.test((DNK$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.DNK.Yf_dl <- adf.test((DNK$Yf_dl), alternative = c("stationary"), k = 2)
adf.DNK.W_dl <- adf.test((DNK$W_dl), alternative = c("stationary"), k = 2)
adf.DNK.WS_dl.pval <- adf.DNK.WS_dl$p.value
adf.DNK.PS_dl.pval <- adf.DNK.PS_dl$p.value
adf.DNK.Y_dl.pval <- adf.DNK.Y_dl$p.value
adf.DNK.Yrw_dl.pval <- adf.DNK.Yrw_dl$p.value
adf.DNK.r_dl.pval <- adf.DNK.r_dl$p.value
adf.DNK.R_dl.pval <- adf.DNK.R_dl$p.value
adf.DNK.Tau_dl.pval <- adf.DNK.Tau_dl$p.value
adf.DNK.rulc_dl.pval <- adf.DNK.rulc_dl$p.value
adf.DNK.ulc_dl.pval <- adf.DNK.ulc_dl$p.value
adf.DNK.P_dl.pval <- adf.DNK.P_dl$p.value
adf.DNK.Pm_dl.pval <- adf.DNK.Pm_dl$p.value
adf.DNK.Px_dl.pval <- adf.DNK.Px_dl$p.value
adf.DNK.X_dl.pval <- adf.DNK.X_dl$p.value
adf.DNK.M_dl.pval <- adf.DNK.M_dl$p.value
adf.DNK.I_dl.pval <- adf.DNK.I_dl$p.value
adf.DNK.C_dl.pval <- adf.DNK.C_dl$p.value
adf.DNK.Ipr_dl.pval <- adf.DNK.Ipr_dl$p.value
adf.DNK.Ips_dl.pval <- adf.DNK.Ips_dl$p.value
adf.DNK.It_dl.pval <- adf.DNK.It_dl$p.value
adf.DNK.Itcurr_dl.pval <- adf.DNK.Itcurr_dl$p.value
adf.DNK.Yf_dl.pval <- adf.DNK.Yf_dl$p.value
adf.DNK.W_dl.pval <- adf.DNK.W_dl$p.value
adf.DNK_dl <- rbind(adf.DNK.WS_dl.pval,adf.DNK.PS_dl.pval,adf.DNK.Y_dl.pval,adf.DNK.Yrw_dl.pval,adf.DNK.r_dl.pval,adf.DNK.R_dl.pval,adf.DNK.Tau_dl.pval,adf.DNK.rulc_dl.pval,adf.DNK.ulc_dl.pval,adf.DNK.P_dl.pval,adf.DNK.Pm_dl.pval,adf.DNK.Px_dl.pval,adf.DNK.X_dl.pval,adf.DNK.M_dl.pval,adf.DNK.I_dl.pval,adf.DNK.C_dl.pval,adf.DNK.Ipr_dl.pval,adf.DNK.Ips_dl.pval,adf.DNK.It_dl.pval,adf.DNK.Itcurr_dl.pval,adf.DNK.Yf_dl.pval,adf.DNK.W_dl.pval)
colnames(adf.DNK_dl) <- c("DNK")
rownames(adf.DNK_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.DNK_dl
## DNK
## dlog(WS) 0.01000000
## dlog(PS) 0.01000000
## dlog(Y) 0.02620517
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.01000000
## dlog(Tau) 0.01907560
## dlog(rulc) 0.01000000
## dlog(ulc) 0.23212349
## dlog(P) 0.44518808
## dlog(Pm) 0.04704967
## dlog(Px) 0.08001424
## dlog(X) 0.01000000
## dlog(M) 0.04148903
## dlog(I) 0.03830831
## dlog(C) 0.04147062
## dlog(Ipr) 0.02755360
## dlog(Ips) 0.04309108
## dlog(It) 0.02795302
## dlog(Itcurr) 0.01882491
## dlog(Yf) 0.03186404
## dlog(W) 0.07633237
adf.DNK <- NULL
adf.DNK <- rbind(adf.DNK_non,adf.DNK_dl)
#Consumption (C)
DNK_consumption <- dynlm(DNK$C_dl~DNK$R_dl+DNK$W_dl)
DNK_CR <- summary(DNK_consumption)$coefficients["DNK$R_dl","Estimate"]
DNK_CW <- summary(DNK_consumption)$coefficients["DNK$W_dl","Estimate"]
DNK_Ceffekt <- (DNK_CR*mean(DNK$C/DNK$R))-(DNK_CW*mean(DNK$C/DNK$W))
summary(DNK_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$C_dl ~ DNK$R_dl + DNK$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.032913 -0.008065 -0.000268 0.006782 0.045450
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.001871 0.003286 0.569 0.572
## DNK$R_dl 0.257496 0.050985 5.050 0.00000816 ***
## DNK$W_dl 0.706513 0.141162 5.005 0.00000948 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01705 on 44 degrees of freedom
## Multiple R-squared: 0.516, Adjusted R-squared: 0.494
## F-statistic: 23.45 on 2 and 44 DF, p-value: 0.0000001166
#Investments (I)
DNK_investment <- dynlm(DNK$I_dl~DNK$PS_l+DNK$Y_l)
DNK_iPS <- summary(DNK_investment)$coefficients["DNK$PS_l","Estimate"]
DNK_Ieffekt <- DNK_iPS*mean(DNK$I/DNK$R)
summary(DNK_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$I_dl ~ DNK$PS_l + DNK$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.176852 -0.044358 0.001033 0.042769 0.181210
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.81201 0.74743 3.762 0.000494 ***
## DNK$PS_l 1.00472 0.23402 4.293 0.0000954 ***
## DNK$Y_l -0.23149 0.07165 -3.231 0.002339 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07178 on 44 degrees of freedom
## Multiple R-squared: 0.298, Adjusted R-squared: 0.2661
## F-statistic: 9.34 on 2 and 44 DF, p-value: 0.0004159
#Price deflator (P)
DNK_deflator <- dynlm(DNK$P_dl~L(DNK$ulc_dl)+DNK$Pm_dl)
DNK_ePULC <- summary(DNK_deflator)$coefficients["L(DNK$ulc_dl)","Estimate"]
summary(DNK_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$P_dl ~ L(DNK$ulc_dl) + DNK$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.035476 -0.008619 -0.002471 0.011435 0.034230
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.012259 0.002829 4.334 0.00008386321572 ***
## L(DNK$ulc_dl) 0.661274 0.069938 9.455 0.00000000000365 ***
## DNK$Pm_dl 0.174145 0.041806 4.166 0.000143 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01406 on 44 degrees of freedom
## Multiple R-squared: 0.8443, Adjusted R-squared: 0.8373
## F-statistic: 119.3 on 2 and 44 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
DNK_exportdeflator <- dynlm(DNK$Px_dl~DNK$ulc_l+DNK$Pm_dl)
DNK_ePX <- summary(DNK_exportdeflator)$coefficients["DNK$ulc_l","Estimate"]
summary(DNK_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$Px_dl ~ DNK$ulc_l + DNK$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.040585 -0.008132 0.000136 0.007043 0.040440
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.078159 0.024623 3.174 0.00274 **
## DNK$ulc_l -0.018777 0.006671 -2.815 0.00728 **
## DNK$Pm_dl 0.697672 0.044675 15.617 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01555 on 44 degrees of freedom
## Multiple R-squared: 0.9083, Adjusted R-squared: 0.9041
## F-statistic: 217.8 on 2 and 44 DF, p-value: < 0.00000000000000022
#Exports (X)
DNK_exports <- dynlm(DNK$X_dl~DNK$dPxdPm+DNK$Yrw_dl)
DNK_eXP <- summary(DNK_exports)$coefficients["DNK$dPxdPm","Estimate"]
DNK_Xeffekt <- -(DNK_eXP*DNK_ePX*(1/(1-DNK_ePULC))*mean(DNK$Yf/DNK$Y)*(mean(DNK$X/DNK$Y)/mean(DNK$rulc)))
summary(DNK_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$X_dl ~ DNK$dPxdPm + DNK$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.053114 -0.017489 -0.000695 0.016522 0.057865
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.004839 0.007591 0.637 0.52713
## DNK$dPxdPm -0.598161 0.184505 -3.242 0.00227 **
## DNK$Yrw_dl 1.478753 0.251398 5.882 0.000000503 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02669 on 44 degrees of freedom
## Multiple R-squared: 0.4664, Adjusted R-squared: 0.4422
## F-statistic: 19.23 on 2 and 44 DF, p-value: 0.0000009965
#Imports (M)
DNK_imports <- dynlm(DNK$M_dl~DNK$dPdPm+L(DNK$Y_dl)+L(DNK$M_l))
DNK_eMP <- summary(DNK_imports)$coefficients["DNK$dPdPm","Estimate"]
DNK_eMP <- 0
DNK_Meffekt <- -(DNK_eMP*DNK_ePULC*(1/(1-DNK_ePULC))*mean(DNK$Yf/DNK$Y)*(mean(DNK$M/DNK$Y)/mean(DNK$rulc)))
summary(DNK_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$M_dl ~ DNK$dPdPm + L(DNK$Y_dl) + L(DNK$M_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.052963 -0.021601 -0.001141 0.024933 0.089592
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.099940 0.051631 -1.936 0.0595 .
## DNK$dPdPm -0.119661 0.112936 -1.060 0.2953
## L(DNK$Y_dl) 2.193094 0.250452 8.757 0.0000000000413 ***
## L(DNK$M_l) 0.016687 0.008328 2.004 0.0514 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03341 on 43 degrees of freedom
## Multiple R-squared: 0.6453, Adjusted R-squared: 0.6206
## F-statistic: 26.08 on 3 and 43 DF, p-value: 0.0000000009066
names(DNK_consumption$coefficients) <- sub("DNK$","",names(DNK_consumption$coefficients),fixed=TRUE)
names(DNK_investment$coefficients) <- sub("DNK$","",names(DNK_investment$coefficients),fixed=TRUE)
names(DNK_deflator$coefficients) <- sub("DNK$","",names(DNK_deflator$coefficients),fixed=TRUE)
names(DNK_exportdeflator$coefficients) <- sub("DNK$","",names(DNK_exportdeflator$coefficients),fixed=TRUE)
names(DNK_exports$coefficients) <- sub("DNK$","",names(DNK_exports$coefficients),fixed=TRUE)
names(DNK_imports$coefficients) <- sub("DNK$","",names(DNK_imports$coefficients),fixed=TRUE)
DNK_Xeffekt
## [1] -0.01822092
DNK_Meffekt
## [1] 0
#Nettoeksport (NX)
DNK_NXeffekt <- DNK_Xeffekt - DNK_Meffekt
DNK_NXeffekt
## [1] -0.01822092
#Nettoeffekten
DNK_Neteffekt = DNK_Ceffekt + DNK_Ieffekt + DNK_NXeffekt
DNK_Neteffekt
## [1] 0.3325172
DNK_Lukket <- DNK_Ceffekt + DNK_Ieffekt
DNK_Lukket_Konklusion <- ifelse(DNK_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
DNK_Lukket_Konklusion
## [1] "Profit-led domestic"
DNK_Def <- ifelse(DNK_Neteffekt > 0, "Profit-led", "Wage-led")
DNK_Def
## [1] "Profit-led"
summary(ur.df(y=DNK_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.034601 -0.004653 -0.000366 0.008750 0.015233
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.818708 1.000953 -1.817 0.0835 .
## z.diff.lag1 1.057239 0.929231 1.138 0.2680
## z.diff.lag2 0.903136 0.891800 1.013 0.3227
## z.diff.lag3 0.750567 0.827204 0.907 0.3745
## z.diff.lag4 0.656515 0.751373 0.874 0.3921
## z.diff.lag5 0.443406 0.690939 0.642 0.5280
## z.diff.lag6 0.311282 0.585990 0.531 0.6008
## z.diff.lag7 0.115196 0.496404 0.232 0.8187
## z.diff.lag8 0.314770 0.408457 0.771 0.4495
## z.diff.lag9 0.008169 0.337789 0.024 0.9809
## z.diff.lag10 0.130551 0.272770 0.479 0.6372
## z.diff.lag11 0.170552 0.233109 0.732 0.4725
## z.diff.lag12 -0.055364 0.166993 -0.332 0.7435
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01422 on 21 degrees of freedom
## Multiple R-squared: 0.6053, Adjusted R-squared: 0.3609
## F-statistic: 2.477 on 13 and 21 DF, p-value: 0.03115
##
##
## Value of test-statistic is: -1.817
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DNK_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.082381 -0.034141 -0.001478 0.027765 0.064287
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.70980 0.48601 -1.460 0.159
## z.diff.lag1 0.14649 0.44845 0.327 0.747
## z.diff.lag2 0.19762 0.42442 0.466 0.646
## z.diff.lag3 0.38783 0.40661 0.954 0.351
## z.diff.lag4 0.33034 0.39311 0.840 0.410
## z.diff.lag5 0.05250 0.37865 0.139 0.891
## z.diff.lag6 -0.14695 0.33599 -0.437 0.666
## z.diff.lag7 -0.13536 0.30415 -0.445 0.661
## z.diff.lag8 0.08679 0.25005 0.347 0.732
## z.diff.lag9 0.10447 0.23478 0.445 0.661
## z.diff.lag10 0.07042 0.22423 0.314 0.757
## z.diff.lag11 -0.01533 0.18782 -0.082 0.936
## z.diff.lag12 -0.12732 0.14965 -0.851 0.404
##
## Residual standard error: 0.05248 on 21 degrees of freedom
## Multiple R-squared: 0.4671, Adjusted R-squared: 0.1371
## F-statistic: 1.416 on 13 and 21 DF, p-value: 0.2317
##
##
## Value of test-statistic is: -1.4605
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DNK_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.027316 -0.012943 0.001949 0.020614 0.034828
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.82122 0.74649 -1.100 0.284
## z.diff.lag1 -0.12384 0.73419 -0.169 0.868
## z.diff.lag2 -0.14533 0.71239 -0.204 0.840
## z.diff.lag3 -0.39058 0.67209 -0.581 0.567
## z.diff.lag4 -0.60709 0.63507 -0.956 0.350
## z.diff.lag5 -0.54711 0.59846 -0.914 0.371
## z.diff.lag6 -0.14767 0.52800 -0.280 0.782
## z.diff.lag7 -0.43373 0.47465 -0.914 0.371
## z.diff.lag8 -0.34703 0.40894 -0.849 0.406
## z.diff.lag9 -0.03079 0.35358 -0.087 0.931
## z.diff.lag10 -0.05083 0.28979 -0.175 0.862
## z.diff.lag11 0.03675 0.25254 0.146 0.886
## z.diff.lag12 0.04621 0.22459 0.206 0.839
##
## Residual standard error: 0.02344 on 21 degrees of freedom
## Multiple R-squared: 0.7526, Adjusted R-squared: 0.5995
## F-statistic: 4.914 on 13 and 21 DF, p-value: 0.0006433
##
##
## Value of test-statistic is: -1.1001
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DNK_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.052885 -0.014750 0.001941 0.027217 0.050489
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.34738 0.86221 -1.563 0.133
## z.diff.lag1 0.38508 0.80511 0.478 0.637
## z.diff.lag2 0.36526 0.73408 0.498 0.624
## z.diff.lag3 0.48269 0.67003 0.720 0.479
## z.diff.lag4 0.49716 0.60953 0.816 0.424
## z.diff.lag5 0.34840 0.57095 0.610 0.548
## z.diff.lag6 0.38483 0.52672 0.731 0.473
## z.diff.lag7 0.41444 0.48430 0.856 0.402
## z.diff.lag8 0.29812 0.44621 0.668 0.511
## z.diff.lag9 0.21083 0.41582 0.507 0.617
## z.diff.lag10 -0.03566 0.39248 -0.091 0.928
## z.diff.lag11 -0.14958 0.32322 -0.463 0.648
## z.diff.lag12 -0.07035 0.19938 -0.353 0.728
##
## Residual standard error: 0.03373 on 21 degrees of freedom
## Multiple R-squared: 0.5314, Adjusted R-squared: 0.2414
## F-statistic: 1.832 on 13 and 21 DF, p-value: 0.1049
##
##
## Value of test-statistic is: -1.5627
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(DNK_consumption)
plot(DNK_investment)
plot(DNK_deflator)
plot(DNK_exportdeflator)
plot(DNK_exports)
plot(DNK_imports)
bptest(DNK_consumption)
##
## studentized Breusch-Pagan test
##
## data: DNK_consumption
## BP = 1.1762, df = 2, p-value = 0.5554
bptest(DNK_investment)
##
## studentized Breusch-Pagan test
##
## data: DNK_investment
## BP = 6.2858, df = 2, p-value = 0.04316
bptest(DNK_deflator)
##
## studentized Breusch-Pagan test
##
## data: DNK_deflator
## BP = 16.489, df = 2, p-value = 0.0002627
bptest(DNK_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: DNK_exportdeflator
## BP = 7.7678, df = 2, p-value = 0.02057
bptest(DNK_exports)
##
## studentized Breusch-Pagan test
##
## data: DNK_exports
## BP = 1.788, df = 2, p-value = 0.409
bptest(DNK_imports)
##
## studentized Breusch-Pagan test
##
## data: DNK_imports
## BP = 2.4945, df = 3, p-value = 0.4763
resettest(DNK_consumption)
##
## RESET test
##
## data: DNK_consumption
## RESET = 1.9402, df1 = 2, df2 = 42, p-value = 0.1563
resettest(DNK_investment)
##
## RESET test
##
## data: DNK_investment
## RESET = 2.069, df1 = 2, df2 = 42, p-value = 0.139
resettest(DNK_deflator)
##
## RESET test
##
## data: DNK_deflator
## RESET = 9.4581, df1 = 2, df2 = 42, p-value = 0.0004063
resettest(DNK_exportdeflator)
##
## RESET test
##
## data: DNK_exportdeflator
## RESET = 11.492, df1 = 2, df2 = 42, p-value = 0.0001045
resettest(DNK_exports)
##
## RESET test
##
## data: DNK_exports
## RESET = 2.7107, df1 = 2, df2 = 42, p-value = 0.07812
resettest(DNK_imports)
##
## RESET test
##
## data: DNK_imports
## RESET = 2.881, df1 = 2, df2 = 41, p-value = 0.06749
DNK_regtab <- matrix(c(DNK_Ceffekt, DNK_Ieffekt, DNK_Lukket, DNK_Xeffekt, DNK_Meffekt, DNK_NXeffekt, DNK_Neteffekt,DNK_Lukket_Konklusion, DNK_Def),ncol=9,byrow=TRUE)
colnames(DNK_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(DNK_regtab) <- c("DNK")
DNK_regtab <- as.table(DNK_regtab)
DNK_regtab
## consumption investment Lukket neteffekt
## DNK -0.164202968964362 0.51494110594295 0.350738136978588
## exports imports netexports neteffect
## DNK -0.0182209156862252 0 -0.0182209156862252 0.332517221292363
## Lukket konklusion Konklusion
## DNK Profit-led domestic Profit-led
DNK_smoke <- matrix(c(mean(DNK$C/DNK$R), mean(DNK$C/DNK$W), mean(DNK$I/DNK$R), DNK_CR, DNK_CW, DNK_iPS, DNK_ePULC, (1/(1-DNK_ePULC)), DNK_eXP, DNK_ePX, DNK_eMP, mean(DNK$Yf/DNK$Y), mean(DNK$X/DNK$Y), mean(DNK$rulc), (mean(DNK$X/DNK$Y)/mean(DNK$rulc))),ncol=15,byrow=TRUE)
colnames(DNK_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(DNK_smoke) <- c("DNK")
DNK_smoke <- as.table(DNK_smoke)
DNK_smoke
## C/R C/W I/R CR CW
## DNK 1.64837271 0.83317951 0.51252129 0.25749563 0.70651250
## iPS ePULC 1/1-epulc eXP ePX
## DNK 1.00472140 0.66127376 2.95223658 -0.59816085 -0.01877693
## eMP Yf/Y X/Y RULC (X/Y)/rulc
## DNK 0.00000000 0.88929959 0.36493793 0.59059601 0.61791465
summary(DNK_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$C_dl ~ DNK$R_dl + DNK$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.032913 -0.008065 -0.000268 0.006782 0.045450
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.001871 0.003286 0.569 0.572
## R_dl 0.257496 0.050985 5.050 0.00000816 ***
## W_dl 0.706513 0.141162 5.005 0.00000948 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01705 on 44 degrees of freedom
## Multiple R-squared: 0.516, Adjusted R-squared: 0.494
## F-statistic: 23.45 on 2 and 44 DF, p-value: 0.0000001166
summary(DNK_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$I_dl ~ DNK$PS_l + DNK$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.176852 -0.044358 0.001033 0.042769 0.181210
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.81201 0.74743 3.762 0.000494 ***
## PS_l 1.00472 0.23402 4.293 0.0000954 ***
## Y_l -0.23149 0.07165 -3.231 0.002339 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07178 on 44 degrees of freedom
## Multiple R-squared: 0.298, Adjusted R-squared: 0.2661
## F-statistic: 9.34 on 2 and 44 DF, p-value: 0.0004159
summary(DNK_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$P_dl ~ L(DNK$ulc_dl) + DNK$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.035476 -0.008619 -0.002471 0.011435 0.034230
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.012259 0.002829 4.334 0.00008386321572 ***
## L(ulc_dl) 0.661274 0.069938 9.455 0.00000000000365 ***
## Pm_dl 0.174145 0.041806 4.166 0.000143 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01406 on 44 degrees of freedom
## Multiple R-squared: 0.8443, Adjusted R-squared: 0.8373
## F-statistic: 119.3 on 2 and 44 DF, p-value: < 0.00000000000000022
summary(DNK_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$Px_dl ~ DNK$ulc_l + DNK$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.040585 -0.008132 0.000136 0.007043 0.040440
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.078159 0.024623 3.174 0.00274 **
## ulc_l -0.018777 0.006671 -2.815 0.00728 **
## Pm_dl 0.697672 0.044675 15.617 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01555 on 44 degrees of freedom
## Multiple R-squared: 0.9083, Adjusted R-squared: 0.9041
## F-statistic: 217.8 on 2 and 44 DF, p-value: < 0.00000000000000022
summary(DNK_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$X_dl ~ DNK$dPxdPm + DNK$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.053114 -0.017489 -0.000695 0.016522 0.057865
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.004839 0.007591 0.637 0.52713
## dPxdPm -0.598161 0.184505 -3.242 0.00227 **
## Yrw_dl 1.478753 0.251398 5.882 0.000000503 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02669 on 44 degrees of freedom
## Multiple R-squared: 0.4664, Adjusted R-squared: 0.4422
## F-statistic: 19.23 on 2 and 44 DF, p-value: 0.0000009965
summary(DNK_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = DNK$M_dl ~ DNK$dPdPm + L(DNK$Y_dl) + L(DNK$M_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.052963 -0.021601 -0.001141 0.024933 0.089592
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.099940 0.051631 -1.936 0.0595 .
## dPdPm -0.119661 0.112936 -1.060 0.2953
## L(Y_dl) 2.193094 0.250452 8.757 0.0000000000413 ***
## L(M_l) 0.016687 0.008328 2.004 0.0514 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03341 on 43 degrees of freedom
## Multiple R-squared: 0.6453, Adjusted R-squared: 0.6206
## F-statistic: 26.08 on 3 and 43 DF, p-value: 0.0000000009066
FIN_df[!complete.cases(FIN_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.7433935 -0.2965298 NA 0.2566065 -1.3602115 NA
## 1961 0.7208137 -0.3273746 -0.030844838 0.2791863 -1.2758758 0.084335607
## 2019 0.5986222 -0.5131246 -0.003514465 0.4013778 -0.9128522 0.005264593
## 2020 0.6183628 -0.4806799 0.032444703 0.3816372 -0.9632850 -0.050432785
## 2021 0.6144674 -0.4869994 -0.006319571 0.3855326 -0.9531295 0.010155508
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 43.5988 3.775030 NA 8931055365355 29.82056 NA
## 1961 46.9144 3.848325 0.073295038 9351148073737 29.86652 0.04596455
## 2019 229.7234 5.436876 0.009748156 NA NA NA
## 2020 215.1727 5.371441 -0.065435015 NA NA NA
## 2021 223.0772 5.407518 0.036076938 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 0.36266 43.23614 3.766677 NA 22.6038 3.118118
## 1961 0.39942 46.51498 3.839774 0.07309769 24.3284 3.191644
## 2019 34.00200 195.72140 5.276692 0.00794322 122.2427 4.806008
## 2020 31.87192 183.30078 5.211128 -0.06556381 112.5855 4.723713
## 2021 34.42268 188.65452 5.239917 0.02878900 118.1022 4.771550
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA 32.14146 3.470147 NA 11.09468 2.406465
## 1961 0.073526358 33.52863 3.512400 0.042252854 12.98635 2.563899
## 2019 0.009591617 117.16318 4.763568 0.004428755 78.55822 4.363840
## 2020 -0.082295480 113.34639 4.730449 -0.033119106 69.95439 4.247843
## 2021 0.047837418 115.92205 4.752918 0.022469425 72.73247 4.286788
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA 12.46648 2.523043 NA 0.83637 -0.17868418
## 1961 0.15743330 13.60722 2.610601 0.087557092 0.93551 -0.06666344
## 2019 0.01320781 52.25899 3.956212 -0.007554205 56.81600 4.03981798
## 2020 -0.11599659 47.13761 3.853071 -0.103140737 52.11925 3.95353436
## 2021 0.03894450 51.42713 3.940166 0.087094658 57.88562 4.05846899
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA 0.69870 -0.3585338 NA 0.8353958 -0.1798496
## 1961 0.11202074 0.79632 -0.2277542 0.13077965 0.8512148 -0.1610907
## 2019 0.01771190 46.76000 3.8450281 0.01735373 0.8230076 -0.1947898
## 2020 -0.08628361 41.17854 3.7179172 -0.12711089 0.7900831 -0.2356171
## 2021 0.10493463 46.86140 3.8471943 0.12927706 0.8095517 -0.2112747
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA 10.41445 2.343194 NA NA NA
## 1961 0.0187589133 11.58267 2.449510 0.10631601 1.175426 2.569204
## 2019 -0.0003581747 43.00955 3.761422 -0.00791238 -1.668267 2.323538
## 2020 -0.0408272758 37.24263 3.617454 -0.14396801 NA NA
## 2021 0.0243424298 41.63292 3.728891 0.11143709 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 6.510430 1.873406 NA 10.27317 2.329535
## 1961 NA 6.858203 1.925445 0.05203998 10.36010 2.337962
## 2019 -0.05346327 104.507430 4.649258 0.01752315 105.02802 4.654227
## 2020 NA 106.339436 4.666636 0.01737803 103.16450 4.636325
## 2021 NA 108.288027 4.684795 0.01815839 103.68390 4.641347
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 12.59357 2.533186 NA 4.77514 1.563423
## 1961 0.008426142 12.86945 2.554856 0.021670012 5.02067 1.613563
## 2019 0.002821003 104.24193 4.646714 -0.006734419 92.06948 4.522544
## 2020 -0.017902352 103.62266 4.640756 -0.005958412 82.25536 4.409829
## 2021 0.005021957 104.24439 4.646738 0.005982071 88.28832 4.480608
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA 6.11456 1.810673 NA 0.7372099 -0.3048827
## 1961 0.05014010 6.60741 1.888192 0.07751893 0.7146768 -0.3359249
## 2019 0.06908102 90.26829 4.502786 0.02182441 0.5100185 -0.6733083
## 2020 -0.11271495 82.49076 4.412686 -0.09009995 0.5267694 -0.6409924
## 2021 0.07077927 89.17475 4.490598 0.07791164 0.5196499 -0.6545999
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA 4.799553 1.568523 NA 42.46210 3.748612
## 1961 -0.031042184 4.901399 1.589521 0.020997792 44.08170 3.786045
## 2019 -0.005319401 53.300720 3.975950 0.012203745 102.84879 4.633260
## 2020 0.032315909 56.016359 4.025644 0.049693943 97.45331 4.579373
## 2021 -0.013607514 56.271864 4.030195 0.004550874 99.82693 4.603438
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA 0.2497706
## 1961 0.037432801 0.0132438699 0.04361383 0.2478574
## 2019 -0.002703559 -0.0095554221 0.01470214 0.7937275
## 2020 -0.053886478 0.0119439400 0.03528039 0.7656460
## 2021 0.024064592 0.0009601142 0.01313643 0.7955231
## 2022 NA NA NA NA
FIN <- FIN_df[3:59,]
FIN[!complete.cases(FIN),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
FIN %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1962 0.7339776 -0.3092768 0.018097835 0.2660224 -1.324175 -0.04829888
## 1963 0.7424185 -0.2978421 0.011434640 0.2575815 -1.356419 -0.03224448
## 1964 0.7524050 -0.2844806 0.013361557 0.2475950 -1.395961 -0.03954157
## 1965 0.7592689 -0.2753993 0.009081327 0.2407311 -1.424075 -0.02811403
## 1966 0.7688514 -0.2628575 0.012541711 0.2311486 -1.464695 -0.04061973
## 1967 0.7657081 -0.2669542 -0.004096673 0.2342919 -1.451188 0.01350694
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1962 48.3133 3.877707 0.02938222 9901117485257 29.92367 0.05714850
## 1963 49.9005 3.910031 0.03232414 10447743252033 29.97741 0.05373837
## 1964 52.5146 3.961091 0.05106020 11127925564517 30.04048 0.06307177
## 1965 55.2994 4.012762 0.05167083 11742033747805 30.09420 0.05371727
## 1966 56.6115 4.036212 0.02345009 12456413551355 30.15326 0.05906060
## 1967 57.8393 4.057668 0.02145633 13033381855439 30.19854 0.04527827
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1962 0.43329 47.88001 3.868698 0.02892368 25.7914 3.250041 0.05839671
## 1963 0.44878 49.45172 3.900997 0.03229875 26.9301 3.293245 0.04320352
## 1964 0.50068 52.01392 3.951511 0.05051453 28.4167 3.346977 0.05373238
## 1965 0.56978 54.72962 4.002405 0.05089369 30.0044 3.401344 0.05436704
## 1966 0.62509 55.98641 4.025109 0.02270392 30.7692 3.426514 0.02517015
## 1967 0.73588 57.10342 4.044864 0.01975503 31.4173 3.447359 0.02084451
## W W_l W_dl R R_l R_dl
## 1962 35.14285 3.559421 0.04702151 12.73716 2.544523 -0.01937520180
## 1963 36.71387 3.603155 0.04373339 12.73785 2.544578 0.00005426723
## 1964 39.13553 3.667031 0.06387609 12.87839 2.555551 0.01097296112
## 1965 41.55450 3.727006 0.05997501 13.17512 2.578330 0.02277965886
## 1966 43.04523 3.762251 0.03524563 12.94118 2.560414 -0.01791581422
## 1967 43.72455 3.777910 0.01565835 13.37887 2.593676 0.03326196532
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl
## 1962 13.67988 2.615926 0.005325606 0.98764 -0.012437020 0.054226424
## 1963 13.27312 2.585741 -0.030185203 0.99529 -0.004721127 0.007715893
## 1964 14.07833 2.644637 0.058895798 1.10592 0.100677568 0.105398695
## 1965 15.54914 2.744005 0.099368596 1.27870 0.245843937 0.145166369
## 1966 16.16249 2.782693 0.038687794 1.37766 0.320386408 0.074542471
## 1967 15.96327 2.770290 -0.012402667 1.43289 0.359693384 0.039306976
## Ipr Ipr_l Ipr_dl Ips Ips_l Ips_dl
## 1962 0.83573 -0.17944968 0.04830448 0.8461889 -0.1670127 -0.005921944
## 1963 0.82434 -0.19317221 -0.01372253 0.8282410 -0.1884511 -0.021438421
## 1964 0.89086 -0.11556799 0.07760422 0.8055375 -0.2162456 -0.027794473
## 1965 1.02789 0.02750816 0.14307615 0.8038555 -0.2183358 -0.002090221
## 1966 1.11738 0.11098666 0.08347850 0.8110709 -0.2093997 0.008936031
## 1967 1.15461 0.14376262 0.03277597 0.8057911 -0.2159308 -0.006531011
## I I_l I_dl r r_l r_dl
## 1962 11.57576 2.448913 -0.0005963384 2.9969608 2.699814 0.13060985
## 1963 10.99334 2.397290 -0.0516236241 2.6661706 2.677328 -0.02248598
## 1964 11.34062 2.428391 0.0311013256 1.1515973 2.567378 -0.10995074
## 1965 12.49926 2.525670 0.0972783749 3.4246793 2.728159 0.16078157
## 1966 13.10893 2.573293 0.0476238246 3.5196911 2.734348 0.00618883
## 1967 12.86306 2.554360 -0.0189336778 0.7712889 2.537760 -0.19658825
## P P_l P_dl Pm Pm_l Pm_dl Px
## 1962 7.130744 1.964416 0.03897012 10.53104 2.354327 0.01636508 12.81257
## 1963 7.497736 2.014601 0.05018550 10.64965 2.365527 0.01120008 13.03733
## 1964 8.035756 2.083901 0.06929997 10.87935 2.386867 0.02134009 13.82215
## 1965 8.439415 2.132913 0.04901195 11.03285 2.400877 0.01401004 14.50596
## 1966 8.838097 2.179072 0.04615848 11.19936 2.415856 0.01497945 14.37384
## 1967 9.488751 2.250107 0.07103546 11.81904 2.469712 0.05385521 14.74356
## Px_l Px_dl X X_l X_dl M M_l
## 1962 2.550426 -0.004429551 5.37563 1.681876 0.06831239 6.97830 1.942805
## 1963 2.567817 0.017390671 5.49331 1.703531 0.02165521 6.78434 1.914617
## 1964 2.626272 0.058455040 5.81249 1.760009 0.05647806 8.18181 2.101913
## 1965 2.674560 0.048287616 6.13869 1.814611 0.05460231 8.85795 2.181315
## 1966 2.665410 -0.009150065 6.53189 1.876696 0.06208497 9.17138 2.216088
## 1967 2.690806 0.025396418 6.92052 1.934491 0.05779458 9.14345 2.213038
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1962 0.05461359 0.7273950 -0.3182856 0.017639293 5.186868 1.646130
## 1963 -0.02818832 0.7357416 -0.3068763 0.011409253 5.516396 1.707725
## 1964 0.18729638 0.7452315 -0.2940604 0.012815888 5.988498 1.789841
## 1965 0.07940196 0.7514458 -0.2857563 0.008304181 6.341763 1.847157
## 1966 0.03477240 0.7603619 -0.2739607 0.011795545 6.720152 1.905111
## 1967 -0.00304999 0.7559661 -0.2797587 -0.005797977 7.173174 1.970348
## ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm
## 1962 0.05660941 44.48728 3.795203 0.009158508 -0.020794630 0.02260504
## 1963 0.06159476 44.95429 3.805646 0.010442922 0.006190594 0.03898543
## 1964 0.08211586 46.38517 3.836980 0.031333634 0.037114949 0.04795988
## 1965 0.05731613 47.46040 3.859896 0.022915966 0.034277575 0.03500190
## 1966 0.05795403 47.51480 3.861041 0.001145432 -0.024129517 0.03117903
## 1967 0.06523748 48.16655 3.874665 0.013623531 -0.028458788 0.01718025
## Trade
## 1962 0.2557045
## 1963 0.2460426
## 1964 0.2664840
## 1965 0.2711899
## 1966 0.2773866
## 1967 0.2777345
FIN %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1962 0.7339776 -0.3092768 0.018097835 0.2660224 -1.3241747 -0.048298880
## 1963 0.7424185 -0.2978421 0.011434640 0.2575815 -1.3564192 -0.032244483
## 1964 0.7524050 -0.2844806 0.013361557 0.2475950 -1.3959608 -0.039541574
## 1965 0.7592689 -0.2753993 0.009081327 0.2407311 -1.4240748 -0.028114028
## 1966 0.7688514 -0.2628575 0.012541711 0.2311486 -1.4646945 -0.040619735
## 1967 0.7657081 -0.2669542 -0.004096673 0.2342919 -1.4511876 0.013506938
## 1968 0.7352466 -0.3075493 -0.040595095 0.2647534 -1.3289565 0.122231129
## 1969 0.6972517 -0.3606088 -0.053059466 0.3027483 -1.1948536 0.134102894
## 1970 0.6949508 -0.3639142 -0.003305391 0.3050492 -1.1872823 0.007571259
## 1971 0.7246452 -0.3220731 0.041841118 0.2753548 -1.2896950 -0.102412684
## 1972 0.7191005 -0.3297542 -0.007681151 0.2808995 -1.2697582 0.019936819
## 1973 0.7092561 -0.3435386 -0.013784387 0.2907439 -1.2353125 0.034445694
## 1974 0.6881565 -0.3737391 -0.030200461 0.3118435 -1.1652537 0.070058804
## 1975 0.7380013 -0.3038097 0.069929321 0.2619987 -1.3394156 -0.174161931
## 1976 0.7504468 -0.2870866 0.016723182 0.2495532 -1.3880831 -0.048667433
## 1977 0.7393559 -0.3019759 -0.014889363 0.2606441 -1.3445993 0.043483756
## 1978 0.7042220 -0.3506617 -0.048685787 0.2957780 -1.2181459 0.126453360
## 1979 0.6881002 -0.3738208 -0.023159060 0.3118998 -1.1650734 0.053072532
## 1980 0.7001582 -0.3564490 0.017371797 0.2998418 -1.2045003 -0.039426881
## 1981 0.7189025 -0.3300295 0.026419432 0.2810975 -1.2690537 -0.064553415
## 1982 0.7063028 -0.3477112 -0.017681664 0.2936972 -1.2252061 0.043847629
## 1983 0.6943854 -0.3647281 -0.017016943 0.3056146 -1.1854305 0.039775622
## 1984 0.6926774 -0.3671909 -0.002462801 0.3073226 -1.1798572 0.005573274
## 1985 0.7066114 -0.3472745 0.019916472 0.2933886 -1.2262571 -0.046399952
## 1986 0.7038810 -0.3511460 -0.003871491 0.2961190 -1.2169939 0.009263224
## 1987 0.7116072 -0.3402292 0.010916790 0.2883928 -1.2434319 -0.026438021
## 1988 0.6958764 -0.3625832 -0.022354028 0.3041236 -1.1903211 0.053110792
## 1989 0.6921541 -0.3679466 -0.005363444 0.3078459 -1.1781560 0.012165146
## 1990 0.7073002 -0.3463001 0.021646563 0.2926998 -1.2286078 -0.050451815
## 1991 0.7402200 -0.3008078 0.045492294 0.2597800 -1.3479203 -0.119312516
## 1992 0.7189925 -0.3299044 -0.029096568 0.2810075 -1.2693739 0.078546399
## 1993 0.6736633 -0.3950248 -0.065120488 0.3263367 -1.1198256 0.149548296
## 1994 0.6475843 -0.4345063 -0.039481460 0.3524157 -1.0429438 0.076881790
## 1995 0.6279011 -0.4653726 -0.030866350 0.3720989 -0.9885955 0.054348304
## 1996 0.6363832 -0.4519544 0.013418245 0.3636168 -1.0116547 -0.023059142
## 1997 0.6207113 -0.4768892 -0.024934829 0.3792887 -0.9694576 0.042197105
## 1998 0.6084438 -0.4968508 -0.019961536 0.3915562 -0.9376262 0.031831408
## 1999 0.6095323 -0.4950634 0.001787354 0.3904677 -0.9404099 -0.002783745
## 2000 0.5971956 -0.5155106 -0.020447230 0.4028044 -0.9093041 0.031105807
## 2001 0.5901450 -0.5273871 -0.011876446 0.4098550 -0.8919517 0.017352377
## 2002 0.5939366 -0.5209827 0.006404397 0.4060634 -0.9012460 -0.009294258
## 2003 0.5979568 -0.5142368 0.006745922 0.4020432 -0.9111957 -0.009949747
## 2004 0.5922252 -0.5238684 -0.009631610 0.4077748 -0.8970401 0.014155614
## 2005 0.6001214 -0.5106233 0.013245113 0.3998786 -0.9165943 -0.019554226
## 2006 0.6010813 -0.5090250 0.001598225 0.3989187 -0.9189977 -0.002403354
## 2007 0.5828789 -0.5397758 -0.030750765 0.4171211 -0.8743787 0.044618970
## 2008 0.5962964 -0.5170175 0.022758340 0.4037036 -0.9070743 -0.032695537
## 2009 0.6366928 -0.4514680 0.065549472 0.3633072 -1.0125065 -0.105432265
## 2010 0.6239179 -0.4717364 -0.020268425 0.3760821 -0.9779479 0.034558607
## 2011 0.6294680 -0.4628803 0.008856125 0.3705320 -0.9928154 -0.014867486
## 2012 0.6444359 -0.4393799 0.023500390 0.3555641 -1.0340498 -0.041234350
## 2013 0.6409022 -0.4448784 -0.005498478 0.3590978 -1.0241605 0.009889213
## 2014 0.6356298 -0.4531389 -0.008260523 0.3643702 -1.0095850 0.014575557
## 2015 0.6291507 -0.4633844 -0.010245529 0.3708493 -0.9919595 0.017625442
## 2016 0.6222379 -0.4744328 -0.011048410 0.3777621 -0.9734905 0.018469004
## 2017 0.5973797 -0.5152023 -0.040769470 0.4026203 -0.9097614 0.063729141
## 2018 0.6007298 -0.5096101 0.005592210 0.3992702 -0.9181168 -0.008355381
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1962 48.3133 3.877707 0.029382220 9901117485257 29.92367 0.0571485037
## 1963 49.9005 3.910031 0.032324138 10447743252033 29.97741 0.0537383703
## 1964 52.5146 3.961091 0.051060203 11127925564517 30.04048 0.0630717672
## 1965 55.2994 4.012762 0.051670832 11742033747805 30.09420 0.0537172662
## 1966 56.6115 4.036212 0.023450086 12456413551355 30.15326 0.0590606032
## 1967 57.8393 4.057668 0.021456331 13033381855439 30.19854 0.0452782663
## 1968 59.1715 4.080440 0.022771532 13849384533188 30.25926 0.0607268924
## 1969 64.8480 4.172046 0.091606063 14651545642571 30.31557 0.0563050409
## 1970 69.6924 4.244091 0.072045203 15037567976954 30.34157 0.0260057673
## 1971 71.3351 4.267388 0.023297219 15634349880518 30.38049 0.0389188072
## 1972 76.8532 4.341897 0.074508616 16512296377060 30.43513 0.0546349293
## 1973 82.2204 4.409403 0.067506338 17561308575188 30.49672 0.0615927673
## 1974 84.8815 4.441256 0.031852720 17777147419023 30.50893 0.0122156739
## 1975 87.6929 4.473841 0.032584772 17762092566969 30.50809 -0.0008472242
## 1976 88.0989 4.478460 0.004619109 18643299694852 30.55651 0.0484202605
## 1977 88.3469 4.481271 0.002811063 19369372529293 30.59471 0.0382062671
## 1978 91.0855 4.511799 0.030527515 20169521364419 30.63519 0.0404795387
## 1979 97.5903 4.580778 0.068979477 21004521209341 30.67576 0.0405650886
## 1980 103.0482 4.635197 0.054418737 21321992097491 30.69076 0.0150013227
## 1981 104.4048 4.648276 0.013078811 21748538868284 30.71057 0.0198075439
## 1982 107.6496 4.678882 0.030605857 21729091292504 30.70967 -0.0008946015
## 1983 111.0041 4.709567 0.030685630 22316625982551 30.73635 0.0266799851
## 1984 114.5981 4.741431 0.031864087 23331618400610 30.78083 0.0444774931
## 1985 118.6645 4.776300 0.034868959 24166325136526 30.81598 0.0351506872
## 1986 121.9339 4.803479 0.027178911 24944758437215 30.84768 0.0317035766
## 1987 126.2924 4.838600 0.035120759 25823584639195 30.88231 0.0346244902
## 1988 132.8816 4.889459 0.050858653 27078844956293 30.92977 0.0474645865
## 1989 139.6410 4.939075 0.049616337 28141476026338 30.96827 0.0384917092
## 1990 140.5779 4.945762 0.006686940 29031797702644 30.99941 0.0311471985
## 1991 132.3030 4.885095 -0.060667037 29474451025688 31.01454 0.0151321194
## 1992 127.9445 4.851597 -0.033498170 30085568485246 31.03507 0.0205217833
## 1993 127.0983 4.844961 -0.006635773 30449615385115 31.04709 0.0120277586
## 1994 132.1362 4.883833 0.038872406 31414400342948 31.07829 0.0311930344
## 1995 137.7091 4.925143 0.041310280 32330785146835 31.10704 0.0287534794
## 1996 142.7593 4.961160 0.036016506 33288351678019 31.13623 0.0291876595
## 1997 151.8020 5.022577 0.061417045 34402442218628 31.16915 0.0329200203
## 1998 160.0859 5.075711 0.053133506 35341089633141 31.19607 0.0269187427
## 1999 167.0971 5.118575 0.042864534 36494121014824 31.22817 0.0321048803
## 2000 176.7442 5.174703 0.056128409 37965785176668 31.26771 0.0395341845
## 2001 181.3568 5.200466 0.025762872 38537972449360 31.28267 0.0149586886
## 2002 184.4527 5.217393 0.016926700 39126036005104 31.29781 0.0151440753
## 2003 188.1486 5.237232 0.019839014 39987630080365 31.31959 0.0217820304
## 2004 195.6602 5.276379 0.039147405 41315002904246 31.35225 0.0326555422
## 2005 201.0988 5.303796 0.027416848 42498417101447 31.38049 0.0282411301
## 2006 209.1979 5.343281 0.039484364 43826830116990 31.41127 0.0307793590
## 2007 220.2833 5.394914 0.051633751 45055602443436 31.43892 0.0276511473
## 2008 222.0104 5.402724 0.007809782 45231304086591 31.44281 0.0038920785
## 2009 204.0839 5.318531 -0.084193044 43735341388796 31.40918 -0.0336329127
## 2010 210.5858 5.349893 0.031361987 45034657081346 31.43845 0.0292758480
## 2011 215.9506 5.375050 0.025156507 45873386845831 31.45691 0.0184527909
## 2012 212.9330 5.360978 -0.014072116 46464820849856 31.46972 0.0128103438
## 2013 211.0123 5.351916 -0.009061137 47135492549133 31.48405 0.0143307891
## 2014 210.2422 5.348260 -0.003656226 48091848177712 31.50413 0.0200864116
## 2015 211.3850 5.353681 0.005420916 49212518270692 31.52717 0.0230353413
## 2016 217.1146 5.380425 0.026744209 50050502163196 31.54405 0.0168845114
## 2017 223.8460 5.410958 0.030532991 51203998651645 31.56684 0.0227850887
## 2018 227.4949 5.427128 0.016169505 52349323255318 31.58896 0.0221213823
## Tax Yf Yf_l Yf_dl C C_l
## 1962 0.43329 47.88001 3.868698 0.028923678 25.7914 3.250041
## 1963 0.44878 49.45172 3.900997 0.032298751 26.9301 3.293245
## 1964 0.50068 52.01392 3.951511 0.050514535 28.4167 3.346977
## 1965 0.56978 54.72962 4.002405 0.050893687 30.0044 3.401344
## 1966 0.62509 55.98641 4.025109 0.022703921 30.7692 3.426514
## 1967 0.73588 57.10342 4.044864 0.019755027 31.4173 3.447359
## 1968 0.86692 58.30458 4.065681 0.020816640 31.4383 3.448027
## 1969 0.95559 63.89241 4.157201 0.091519926 34.8122 3.549968
## 1970 1.02451 68.66789 4.229282 0.072081121 37.4486 3.622969
## 1971 1.15708 70.17802 4.251035 0.021753461 38.0991 3.640191
## 1972 1.34956 75.50364 4.324181 0.073145710 41.2734 3.720218
## 1973 1.59054 80.62986 4.389869 0.065688185 43.7085 3.777543
## 1974 1.89790 82.98360 4.418643 0.028773946 44.4728 3.794878
## 1975 2.17700 85.51590 4.448702 0.030059326 45.7618 3.823450
## 1976 2.48600 85.61290 4.449836 0.001133649 46.5558 3.840652
## 1977 2.96200 85.38490 4.447169 -0.002666703 46.4202 3.837735
## 1978 3.33700 87.74850 4.474475 0.027305498 47.7605 3.866199
## 1979 3.81200 93.77830 4.540933 0.066458718 50.5554 3.923070
## 1980 4.36200 98.68620 4.591945 0.051011633 51.8771 3.948877
## 1981 5.04200 99.36280 4.598778 0.006832679 52.6377 3.963433
## 1982 5.64700 102.00260 4.624998 0.026220505 55.3412 4.013518
## 1983 6.29600 104.70810 4.651176 0.026178176 57.0616 4.044131
## 1984 7.42800 107.17010 4.674417 0.023240813 58.9437 4.076583
## 1985 8.17400 110.49050 4.704930 0.030512253 61.3472 4.116550
## 1986 8.99800 112.93590 4.726820 0.021890857 63.8780 4.156975
## 1987 9.85900 116.43340 4.757319 0.030499035 66.8760 4.202840
## 1988 11.99800 120.88360 4.794828 0.037508663 70.5914 4.256908
## 1989 13.24500 126.39600 4.839420 0.044591737 73.8894 4.302569
## 1990 13.39900 127.17890 4.845595 0.006174921 73.6724 4.299628
## 1991 12.86200 119.44100 4.782823 -0.062772231 71.4438 4.268911
## 1992 12.29600 115.64850 4.750555 -0.032267107 68.4536 4.226156
## 1993 12.16100 114.93730 4.744387 -0.006168656 66.6302 4.199158
## 1994 12.88200 119.25420 4.781257 0.036870587 68.3639 4.224845
## 1995 13.59100 124.11810 4.821234 0.039976182 71.7328 4.272948
## 1996 14.16800 128.59130 4.856639 0.035405626 74.4352 4.309929
## 1997 16.00000 135.80200 4.911198 0.054558785 77.0391 4.344313
## 1998 16.97900 143.10690 4.963592 0.052393961 80.7556 4.391427
## 1999 17.76400 149.33310 5.006179 0.042587478 83.4569 4.424330
## 2000 18.42400 158.32020 5.064620 0.058440183 85.2116 4.445138
## 2001 18.74200 162.61480 5.091384 0.026764649 87.4978 4.471614
## 2002 19.71400 164.73870 5.104361 0.012976368 89.6843 4.496296
## 2003 20.79700 167.35160 5.120097 0.015736406 93.3853 4.536734
## 2004 21.11700 174.54320 5.162172 0.042075287 96.8881 4.573557
## 2005 22.04000 179.05880 5.187714 0.025541968 99.9647 4.604817
## 2006 23.01600 186.18190 5.226724 0.039009909 103.8838 4.643273
## 2007 23.82500 196.45830 5.280450 0.053726042 107.5217 4.677693
## 2008 24.26700 197.74340 5.286970 0.006520036 109.6373 4.697178
## 2009 23.53100 180.55290 5.196024 -0.090946421 106.4345 4.667530
## 2010 24.37800 186.20780 5.226863 0.030839445 109.6241 4.697057
## 2011 27.37100 188.57960 5.239520 0.012656945 112.7970 4.725590
## 2012 28.32000 184.61300 5.218262 -0.021258457 113.2309 4.729429
## 2013 29.47300 181.53930 5.201472 -0.016789583 112.6398 4.724195
## 2014 29.72700 180.51520 5.195815 -0.005657174 113.3228 4.730240
## 2015 29.91300 181.47200 5.201101 0.005286387 115.1440 4.746184
## 2016 31.36000 185.75460 5.224426 0.023325076 117.8752 4.769626
## 2017 31.86100 191.98500 5.257417 0.032990796 119.0133 4.779235
## 2018 33.32200 194.17290 5.268749 0.011331755 121.0758 4.796417
## C_dl W W_l W_dl R R_l
## 1962 0.0583967108 35.14285 3.559421 0.047021514 12.73716 2.544523
## 1963 0.0432035171 36.71387 3.603155 0.043733390 12.73785 2.544578
## 1964 0.0537323804 39.13553 3.667031 0.063876092 12.87839 2.555551
## 1965 0.0543670371 41.55450 3.727006 0.059975014 13.17512 2.578330
## 1966 0.0251701521 43.04523 3.762251 0.035245632 12.94118 2.560414
## 1967 0.0208445070 43.72455 3.777910 0.015658354 13.37887 2.593676
## 1968 0.0006681982 42.86824 3.758131 -0.019778456 15.43634 2.736724
## 1969 0.1019410052 44.54909 3.796592 0.038460459 19.34332 2.962347
## 1970 0.0730014260 47.72081 3.865368 0.068775729 20.94708 3.041999
## 1971 0.0172213337 50.85417 3.928962 0.063594580 19.32385 2.961340
## 1972 0.0800275649 54.29470 3.994427 0.065464560 21.20894 3.054423
## 1973 0.0573243665 57.18722 4.046330 0.051903798 23.44264 3.154557
## 1974 0.0173351751 57.10570 4.044904 -0.001426515 25.87790 3.253389
## 1975 0.0285719156 63.11084 4.144893 0.099988646 22.40506 3.109287
## 1976 0.0172019112 64.24792 4.162749 0.017856832 21.36498 3.061753
## 1977 -0.0029168838 63.12983 4.145193 -0.017556065 22.25507 3.102570
## 1978 0.0284642287 61.79442 4.123813 -0.021380289 25.95408 3.256329
## 1979 0.0568708266 64.52887 4.167113 0.043299658 29.24943 3.375860
## 1980 0.0258076950 69.09595 4.235496 0.068383431 29.59025 3.387445
## 1981 0.0145551334 71.43217 4.268748 0.033252112 27.93063 3.329724
## 1982 0.0500850652 72.04473 4.277287 0.008538841 29.95787 3.399792
## 1983 0.0306137278 72.70778 4.286448 0.009161233 32.00032 3.465746
## 1984 0.0324513650 74.23430 4.307226 0.020778012 32.93580 3.494560
## 1985 0.0399667793 78.07384 4.357655 0.050428725 32.41666 3.478672
## 1986 0.0404254838 79.49344 4.375674 0.018019365 33.44246 3.509826
## 1987 0.0458651442 82.85485 4.417090 0.041415824 33.57855 3.513888
## 1988 0.0540681657 84.12005 4.432245 0.015154636 36.76355 3.604507
## 1989 0.0456610565 87.48551 4.471473 0.039228293 38.91049 3.661264
## 1990 -0.0029411427 89.95366 4.499295 0.027821484 37.22524 3.616987
## 1991 -0.0307171112 88.41262 4.482015 -0.017279937 31.02838 3.434902
## 1992 -0.0427549832 83.15040 4.420651 -0.061363675 32.49810 3.481181
## 1993 -0.0269982153 77.42904 4.349362 -0.071289144 37.50826 3.624561
## 1994 0.0256869793 77.22715 4.346751 -0.002610873 42.02705 3.738314
## 1995 0.0481031971 77.93389 4.355861 0.009109833 46.18421 3.832638
## 1996 0.0369808436 81.83334 4.404685 0.048823872 46.75796 3.844984
## 1997 0.0343841369 84.29383 4.434309 0.029623955 51.50817 3.941740
## 1998 0.0471142244 87.07250 4.466741 0.032432425 56.03440 4.025966
## 1999 0.0329030214 91.02334 4.511116 0.044374832 58.30976 4.065769
## 2000 0.0208072439 94.54812 4.549109 0.037992953 63.77208 4.155315
## 2001 0.0264760754 95.96630 4.563997 0.014888203 66.64850 4.199432
## 2002 0.0246820757 97.84434 4.583378 0.019380765 66.89436 4.203115
## 2003 0.0404382194 100.06903 4.605860 0.022482329 67.28257 4.208901
## 2004 0.0368227591 103.36887 4.638304 0.032443677 71.17433 4.265132
## 2005 0.0312604193 107.45702 4.677091 0.038787081 71.60178 4.271120
## 2006 0.0384558431 111.91046 4.717699 0.040608134 74.27144 4.307726
## 2007 0.0344197209 114.51140 4.740674 0.022975277 81.94690 4.406071
## 2008 0.0194849574 117.91367 4.769953 0.029278376 79.82973 4.379896
## 2009 -0.0296478726 114.95673 4.744556 -0.025396949 65.59617 4.183517
## 2010 0.0295274684 116.17839 4.755127 0.010571020 70.02941 4.248915
## 2011 0.0285325021 118.70482 4.776640 0.021513070 69.87478 4.246705
## 2012 0.0038393538 118.97125 4.778882 0.002241933 65.64175 4.184212
## 2013 -0.0052339799 116.34894 4.756594 -0.022288061 65.19036 4.177312
## 2014 0.0060452666 114.74085 4.742676 -0.013917697 65.77435 4.186230
## 2015 0.0159431355 114.17324 4.737717 -0.004959142 67.29876 4.209142
## 2016 0.0234429187 115.58354 4.749994 0.012276665 70.17106 4.250936
## 2017 0.0096088139 114.68795 4.742215 -0.007778674 77.29705 4.347656
## 2018 0.0171815442 116.64544 4.759139 0.016923965 77.52746 4.350632
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1962 -0.01937520180 13.67988 2.615926 0.005325606 0.98764 -0.012437020
## 1963 0.00005426723 13.27312 2.585741 -0.030185203 0.99529 -0.004721127
## 1964 0.01097296112 14.07833 2.644637 0.058895798 1.10592 0.100677568
## 1965 0.02277965886 15.54914 2.744005 0.099368596 1.27870 0.245843937
## 1966 -0.01791581422 16.16249 2.782693 0.038687794 1.37766 0.320386408
## 1967 0.03326196532 15.96327 2.770290 -0.012402667 1.43289 0.359693384
## 1968 0.14304776850 15.13549 2.717042 -0.053248141 1.51089 0.412698881
## 1969 0.22562281983 17.05485 2.836435 0.119392304 1.78026 0.576759421
## 1970 0.07965237974 19.17962 2.953848 0.117413636 2.18888 0.783389997
## 1971 -0.08065922272 19.87741 2.989584 0.035735654 2.51861 0.923707162
## 1972 0.09308252985 21.18068 3.053089 0.063505534 2.98310 1.092963028
## 1973 0.10013387940 22.98252 3.134734 0.081644482 3.74927 1.321561154
## 1974 0.09883274977 23.71355 3.166047 0.031312688 4.89990 1.589214797
## 1975 -0.14410260560 25.84297 3.252039 0.085991996 5.99000 1.790091412
## 1976 -0.04753378416 24.11291 3.182747 -0.069291229 6.09500 1.807468763
## 1977 0.04081705317 23.48784 3.156483 -0.026264541 6.55400 1.880075550
## 1978 0.15375885778 21.94324 3.088459 -0.068023721 6.48900 1.870108436
## 1979 0.11953124935 22.96449 3.133949 0.045489990 7.34300 1.993747478
## 1980 0.01158475180 25.54772 3.240548 0.106598966 9.19500 2.218659858
## 1981 -0.05772073622 26.22280 3.266629 0.026081185 10.32500 2.334568139
## 1982 0.07006813392 27.83531 3.326305 0.059676097 11.73500 2.462575829
## 1983 0.06595379763 28.97142 3.366310 0.040004468 13.27200 2.585656553
## 1984 0.02881408662 28.79250 3.360115 -0.006194890 14.07200 2.644187007
## 1985 -0.01588769898 30.22828 3.408778 0.048662973 15.52400 2.742387214
## 1986 0.03115408039 30.80896 3.427806 0.019027647 16.38400 2.796305249
## 1987 0.00406101405 32.55978 3.483078 0.055272228 18.22800 2.902958873
## 1988 0.09061945561 36.08008 3.585741 0.102663128 21.61600 3.073433781
## 1989 0.05675688231 40.31279 3.696669 0.110927876 26.24600 3.267513596
## 1990 -0.04427689379 38.87042 3.660234 -0.036435238 26.99600 3.295688707
## 1991 -0.18208474656 32.29634 3.474954 -0.185279639 22.48500 3.112848420
## 1992 0.04627929133 27.85507 3.327015 -0.147938915 18.84400 2.936194561
## 1993 0.14337964012 24.36770 3.193258 -0.133756512 16.41300 2.798073704
## 1994 0.11375237679 24.57406 3.201691 0.008432930 16.92700 2.828909980
## 1995 0.09432448688 27.65529 3.319817 0.118125615 18.99900 2.944386346
## 1996 0.01234648420 30.42257 3.415185 0.095367737 20.93000 3.041183536
## 1997 0.09675588958 33.73431 3.518515 0.103330653 23.67000 3.164208424
## 1998 0.08422536848 37.33475 3.619925 0.101409108 26.75700 3.286796121
## 1999 0.03980373271 39.02739 3.664264 0.044339179 28.48500 3.349377633
## 2000 0.08954599021 41.45439 3.724594 0.060330079 31.46000 3.448716898
## 2001 0.04411702639 42.18546 3.742076 0.017481825 33.08400 3.499049782
## 2002 0.00368211031 40.93957 3.712097 -0.029978535 32.07600 3.468108087
## 2003 0.00578665900 42.08447 3.739679 0.027581712 33.05600 3.498203093
## 2004 0.05623090079 44.04605 3.785236 0.045556889 35.33600 3.564902274
## 2005 0.00598774234 45.47854 3.817241 0.032004889 37.74300 3.630800028
## 2006 0.03660655486 46.09544 3.830714 0.013473463 39.35800 3.672699258
## 2007 0.09834501190 50.84187 3.928720 0.098006198 45.26300 3.812489922
## 2008 -0.02617550101 51.16459 3.935048 0.006327464 47.58300 3.862475555
## 2009 -0.19637868630 45.00982 3.806881 -0.128167003 41.72000 3.730980630
## 2010 0.06539805186 46.04714 3.829666 0.022784966 41.94900 3.736454595
## 2011 -0.00221054158 47.83638 3.867786 0.038120784 44.78000 3.801761611
## 2012 -0.06249280692 47.70027 3.864937 -0.002849380 46.39500 3.837191695
## 2013 -0.00690036986 45.50159 3.817747 -0.047189788 44.96700 3.805928887
## 2014 0.00891838297 44.66734 3.799243 -0.018504685 44.42500 3.793802374
## 2015 0.02291182865 44.87700 3.803925 0.004682828 44.87700 3.803925414
## 2016 0.04179407944 48.80894 3.887913 0.083988079 49.41800 3.900314730
## 2017 0.09671993747 50.75515 3.927013 0.039099598 52.48600 3.960546467
## 2018 0.00297637413 52.65526 3.963766 0.036753048 55.81854 4.022106072
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1962 0.054226424 0.83573 -0.17944968 0.048304479 0.8461889 -0.1670127
## 1963 0.007715893 0.82434 -0.19317221 -0.013722528 0.8282410 -0.1884511
## 1964 0.105398695 0.89086 -0.11556799 0.077604222 0.8055375 -0.2162456
## 1965 0.145166369 1.02789 0.02750816 0.143076148 0.8038555 -0.2183358
## 1966 0.074542471 1.11738 0.11098666 0.083478502 0.8110709 -0.2093997
## 1967 0.039306976 1.15461 0.14376262 0.032775965 0.8057911 -0.2159308
## 1968 0.053005497 1.20668 0.18787279 0.044110162 0.7986551 -0.2248261
## 1969 0.164060540 1.46663 0.38296725 0.195094465 0.8238291 -0.1937922
## 1970 0.206630576 1.88133 0.63197897 0.249011722 0.8594944 -0.1514110
## 1971 0.140317165 2.17142 0.77538133 0.143402358 0.8621502 -0.1483258
## 1972 0.169255866 2.54173 0.93284495 0.157463620 0.8520432 -0.1601181
## 1973 0.228598126 3.24715 1.17777769 0.244932737 0.8660753 -0.1437835
## 1974 0.267653642 4.26737 1.45099771 0.273220024 0.8709096 -0.1382171
## 1975 0.200876615 5.15900 1.64074276 0.189745050 0.8612688 -0.1493486
## 1976 0.017377351 5.22400 1.65326339 0.012520630 0.8570960 -0.1542054
## 1977 0.072606787 5.57800 1.71883029 0.065566897 0.8510833 -0.1612453
## 1978 -0.009967115 5.41800 1.68972674 -0.029103546 0.8349515 -0.1803817
## 1979 0.123639043 6.15100 1.81661467 0.126887927 0.8376685 -0.1771328
## 1980 0.224912380 7.74200 2.04666005 0.230045382 0.8419793 -0.1719998
## 1981 0.115908281 8.72600 2.16630707 0.119647023 0.8451332 -0.1682611
## 1982 0.128007690 9.84800 2.28726839 0.120961314 0.8391990 -0.1753074
## 1983 0.123080724 11.07800 2.40496116 0.117692771 0.8346896 -0.1806954
## 1984 0.058530455 11.82800 2.47046960 0.065508442 0.8405344 -0.1737174
## 1985 0.098200206 12.95700 2.56163618 0.091166581 0.8346431 -0.1807510
## 1986 0.053918035 13.65600 2.61417899 0.052542803 0.8334961 -0.1821263
## 1987 0.106653625 15.06100 2.71210862 0.097929636 0.8262563 -0.1908503
## 1988 0.170474908 18.04900 2.89309028 0.180981660 0.8349833 -0.1803435
## 1989 0.194079815 22.83900 3.12846960 0.235379319 0.8701897 -0.1390440
## 1990 0.028175110 22.90100 3.13118058 0.002710977 0.8483109 -0.1645081
## 1991 -0.182840287 18.36300 2.91033777 -0.220842807 0.8166778 -0.2025106
## 1992 -0.176653859 14.78200 2.69341022 -0.216927546 0.7844407 -0.2427843
## 1993 -0.138120857 12.96700 2.56240767 -0.131002556 0.7900445 -0.2356660
## 1994 0.030836276 13.13900 2.57558491 0.013177238 0.7762155 -0.2533251
## 1995 0.115476366 15.34800 2.73098517 0.155400266 0.8078320 -0.2134012
## 1996 0.096797190 16.84200 2.82387577 0.092890594 0.8046823 -0.2173078
## 1997 0.123024887 18.80800 2.93428231 0.110406545 0.7945923 -0.2299261
## 1998 0.122587698 21.79700 3.08177235 0.147490034 0.8146279 -0.2050238
## 1999 0.062581512 23.48900 3.15653223 0.074759881 0.8246094 -0.1928454
## 2000 0.099339265 26.65100 3.28282667 0.126294447 0.8471392 -0.1658902
## 2001 0.050332884 28.16300 3.33800906 0.055182386 0.8512574 -0.1610407
## 2002 -0.030941695 26.58900 3.28049760 -0.057511463 0.8289375 -0.1876105
## 2003 0.030095006 27.18900 3.30281248 0.022314883 0.8225133 -0.1953906
## 2004 0.066699181 29.13100 3.37180290 0.068990420 0.8244000 -0.1930994
## 2005 0.065897754 31.82400 3.46022072 0.088417823 0.8431762 -0.1705793
## 2006 0.041899230 33.58100 3.51396043 0.053739709 0.8532192 -0.1587388
## 2007 0.139790664 38.74500 3.65700172 0.143041284 0.8559972 -0.1554882
## 2008 0.049985633 40.61800 3.70421132 0.047209603 0.8536242 -0.1582642
## 2009 -0.131494924 34.59800 3.54379588 -0.160415441 0.8292905 -0.1871848
## 2010 0.005473965 35.15200 3.55968152 0.015885639 0.8379699 -0.1767731
## 2011 0.065307016 37.29200 3.61877883 0.059097311 0.8327825 -0.1829828
## 2012 0.035430084 38.29700 3.64537156 0.026592738 0.8254553 -0.1918201
## 2013 -0.031262807 36.46700 3.59640774 -0.048963822 0.8109725 -0.2095211
## 2014 -0.012126513 35.75800 3.57677402 -0.019633722 0.8049071 -0.2170284
## 2015 0.010123040 36.96900 3.61007972 0.033305703 0.8237850 -0.1938457
## 2016 0.096389316 40.40100 3.69885454 0.088774814 0.8175361 -0.2014602
## 2017 0.060231737 43.27200 3.76750577 0.068651237 0.8244484 -0.1930407
## 2018 0.061559605 45.95554 3.82767441 0.060168633 0.8233024 -0.1944317
## Ips_dl I I_l I_dl r r_l
## 1962 -0.005921944 11.57576 2.448913 -0.0005963384 2.9969608 2.699814
## 1963 -0.021438421 10.99334 2.397290 -0.0516236241 2.6661706 2.677328
## 1964 -0.027794473 11.34062 2.428391 0.0311013256 1.1515973 2.567378
## 1965 -0.002090221 12.49926 2.525670 0.0972783749 3.4246793 2.728159
## 1966 0.008936031 13.10893 2.573293 0.0476238246 3.5196911 2.734348
## 1967 -0.006531011 12.86306 2.554360 -0.0189336778 0.7712889 2.537760
## 1968 -0.008895335 12.08804 2.492216 -0.0621434761 -3.4926322 2.126728
## 1969 0.031033925 14.05028 2.642642 0.1504262287 3.6099934 2.740195
## 1970 0.042381145 16.48478 2.802437 0.1597947813 3.8339807 2.754551
## 1971 0.003085193 17.13731 2.841258 0.0388208474 0.6854670 2.530953
## 1972 -0.011792246 18.04685 2.892971 0.0517132883 -0.2531436 2.453318
## 1973 0.016334611 19.90459 2.990950 0.0979790925 -4.8448967 1.950913
## 1974 0.005566382 20.65236 3.027830 0.0368790692 -10.8800070 0.000000
## 1975 -0.011131566 22.25774 3.102690 0.0748604301 -1.6476438 2.325556
## 1976 -0.004856721 20.66708 3.028542 -0.0741479498 -2.5291725 2.235466
## 1977 -0.007039890 19.99011 2.995238 -0.0333044314 1.1902582 2.570340
## 1978 -0.019136431 18.32154 2.908077 -0.0871601519 2.1723963 2.642793
## 1979 0.003248884 19.23663 2.956816 0.0487388741 1.1488161 2.567164
## 1980 0.005133002 21.51065 3.068548 0.1117319684 1.7321687 2.610965
## 1981 0.003738742 22.16176 3.098368 0.0298199272 0.6869054 2.531067
## 1982 -0.007046376 23.35936 3.150998 0.0526297210 3.0517736 2.703492
## 1983 -0.005387953 24.18214 3.185614 0.0346165153 4.5004661 2.796090
## 1984 0.006977988 24.20109 3.186398 0.0007830976 5.1342139 2.834050
## 1985 -0.007033625 25.22983 3.228027 0.0416293481 7.1118468 2.944010
## 1986 -0.001375233 25.67915 3.245679 0.0176524142 6.5960181 2.916474
## 1987 -0.008723989 26.90272 3.292228 0.0465482388 5.8739016 2.876606
## 1988 0.010506753 30.12627 3.405397 0.1131698807 2.6718797 2.677721
## 1989 0.041299504 35.07978 3.557625 0.1522273800 5.2186577 2.839000
## 1990 -0.025464134 32.97420 3.495725 -0.0618993719 7.7049934 2.974764
## 1991 -0.038002521 26.37570 3.272443 -0.2232821595 9.5734995 3.065888
## 1992 -0.040273687 21.85065 3.084231 -0.1882126014 10.9950243 3.130046
## 1993 0.007118301 19.25157 2.957592 -0.1266382103 6.9421998 2.935037
## 1994 -0.017659038 19.07477 2.948366 -0.0092261082 7.0649771 2.941539
## 1995 0.039923900 22.34083 3.106416 0.1580495144 4.4045740 2.790219
## 1996 -0.003906596 24.48050 3.197877 0.0914611414 7.1640179 2.946753
## 1997 -0.012618342 26.80502 3.288589 0.0907123107 3.8009390 2.752446
## 1998 0.024902337 30.41393 3.414901 0.1263114446 1.6410396 2.604247
## 1999 0.012178369 32.18235 3.471418 0.0565175482 3.7582042 2.749717
## 2000 0.026955182 35.11764 3.558704 0.0872852616 3.7802599 2.751127
## 2001 0.004849502 35.91069 3.581035 0.0223313273 1.6808129 2.607185
## 2002 -0.026569768 33.93635 3.524487 -0.0565483033 3.9979387 2.764931
## 2003 -0.007780123 34.61504 3.544288 0.0198015893 3.9325218 2.760803
## 2004 0.002291238 36.31157 3.592136 0.0478481267 3.4865741 2.732195
## 2005 0.022520069 38.34642 3.646661 0.0545249579 2.3985466 2.658759
## 2006 0.011840479 39.32951 3.671975 0.0253139422 2.8332345 2.688748
## 2007 0.003250621 43.52050 3.773232 0.1012568186 1.4952195 2.593404
## 2008 -0.002776030 43.67533 3.776783 0.0035514335 1.2158581 2.572297
## 2009 -0.028920517 37.32622 3.619696 -0.1570875198 1.9316419 2.625512
## 2010 0.010411674 38.58612 3.652893 0.0331966403 2.6783718 2.678167
## 2011 -0.006209706 39.83730 3.684804 0.0319110779 0.3764561 2.506053
## 2012 -0.008837346 39.37444 3.673117 -0.0116867256 -1.0524768 2.382092
## 2013 -0.017701015 36.90054 3.608226 -0.0648908026 -0.6811964 2.415808
## 2014 -0.007507208 35.95306 3.582214 -0.0260118929 -0.1787403 2.459697
## 2015 0.023182663 36.96900 3.610080 0.0278654915 -0.8825781 2.397662
## 2016 -0.007614503 39.90307 3.686453 0.0763735760 0.1838717 2.490216
## 2017 0.008419500 41.84500 3.733972 0.0475190982 -0.1507970 2.462082
## 2018 -0.001390972 43.35120 3.769334 0.0353620759 -1.1074560 2.377001
## r_dl P P_l P_dl Pm Pm_l
## 1962 0.130609847 7.130744 1.964416 0.0389701211 10.53104 2.354327
## 1963 -0.022485981 7.497736 2.014601 0.0501855028 10.64965 2.365527
## 1964 -0.109950744 8.035756 2.083901 0.0692999739 10.87935 2.386867
## 1965 0.160781568 8.439415 2.132913 0.0490119452 11.03285 2.400877
## 1966 0.006188830 8.838097 2.179072 0.0461584846 11.19936 2.415856
## 1967 -0.196588253 9.488751 2.250107 0.0710354558 11.81904 2.469712
## 1968 -0.411032077 10.633472 2.364007 0.1138997994 14.41981 2.668603
## 1969 0.613467105 11.074781 2.404671 0.0406637609 14.82100 2.696045
## 1970 0.014356572 11.500991 2.442433 0.0377626293 15.93652 2.768613
## 1971 -0.223598358 12.347930 2.513488 0.0710552507 17.07903 2.837851
## 1972 -0.077634663 13.365895 2.592706 0.0792178694 18.40392 2.912564
## 1973 -0.502404862 15.206665 2.721734 0.1290275212 20.49591 3.020226
## 1974 -1.950913369 18.562985 2.921170 0.1994357160 28.76389 3.359121
## 1975 2.325555560 20.691523 3.029724 0.1085545618 31.54397 3.451383
## 1976 -0.090089969 23.387357 3.152196 0.1224714959 33.13736 3.500661
## 1977 0.334874228 25.596830 3.242469 0.0902729221 36.72217 3.603381
## 1978 0.072453616 27.502731 3.314285 0.0718168155 41.00170 3.713613
## 1979 -0.075629370 29.773449 3.393617 0.0793316898 46.27374 3.834575
## 1980 0.043800600 32.661418 3.486195 0.0925774874 55.44849 4.015454
## 1981 -0.079897304 36.460981 3.596243 0.1100481828 62.01679 4.127405
## 1982 0.172424508 39.761422 3.682897 0.0866544675 64.60257 4.168254
## 1983 0.092598093 43.018242 3.761624 0.0787271191 69.25826 4.237842
## 1984 0.037959557 46.649988 3.842673 0.0810484023 72.54726 4.284238
## 1985 0.109960622 49.083774 3.893529 0.0508558355 74.87609 4.315835
## 1986 -0.027536189 51.415562 3.939941 0.0464123816 69.34975 4.239163
## 1987 -0.039868257 53.618428 3.981893 0.0419519313 69.25627 4.237814
## 1988 -0.198885039 57.737848 4.055913 0.0740200911 70.11445 4.250129
## 1989 0.161279717 61.508440 4.119174 0.0632614814 73.79560 4.301299
## 1990 0.135763615 64.703650 4.169818 0.0506432211 74.79510 4.314752
## 1991 0.091124118 65.681821 4.184822 0.0150045775 77.30046 4.347700
## 1992 0.064157874 66.264685 4.193657 0.0088349091 83.24799 4.421824
## 1993 -0.195008594 67.434424 4.211156 0.0174985317 90.04150 4.500271
## 1994 0.006501820 68.678384 4.229435 0.0182788740 89.58709 4.495211
## 1995 -0.151320496 71.563162 4.270580 0.0411459310 89.65759 4.495998
## 1996 0.156534690 71.507055 4.269796 -0.0007843184 89.95396 4.499298
## 1997 -0.194307054 72.994403 4.290383 0.0205866466 90.36516 4.503859
## 1998 -0.148198866 75.255856 4.320894 0.0305109609 87.85161 4.475649
## 1999 0.145469876 75.953447 4.330121 0.0092268893 86.06141 4.455061
## 2000 0.001409379 77.197433 4.346366 0.0162455829 92.44410 4.526604
## 2001 -0.143941989 79.747772 4.378869 0.0325026090 89.73955 4.496912
## 2002 0.157746338 80.500837 4.388268 0.0093987766 87.33379 4.469737
## 2003 -0.004128496 80.653794 4.390166 0.0018982594 87.35337 4.469962
## 2004 -0.028607495 81.139670 4.396172 0.0060061470 88.94932 4.488067
## 2005 -0.073436430 81.893593 4.405421 0.0092487675 93.15409 4.534255
## 2006 0.029989207 82.647571 4.414585 0.0091646802 98.33108 4.588340
## 2007 -0.095343643 84.923361 4.441749 0.0271637807 99.39048 4.599056
## 2008 -0.021107688 87.502665 4.471669 0.0299200354 101.11587 4.616267
## 2009 0.053215820 89.055041 4.489255 0.0175853577 93.97949 4.543077
## 2010 0.052654331 89.342669 4.492479 0.0032245722 99.60420 4.601204
## 2011 -0.172113293 91.686723 4.518378 0.0258983925 105.69878 4.660593
## 2012 -0.123961415 94.413279 4.547682 0.0293041578 107.95532 4.681717
## 2013 0.033715593 96.828962 4.572946 0.0252644068 106.08989 4.664287
## 2014 0.043889525 98.408878 4.589131 0.0161848819 104.39079 4.648141
## 2015 -0.062035592 100.000000 4.605170 0.0160391624 100.00000 4.605170
## 2016 0.092554247 100.185787 4.607026 0.0018561433 97.57800 4.580652
## 2017 -0.028133445 100.888946 4.614020 0.0069940371 101.32548 4.618338
## 2018 -0.085080987 102.692083 4.631735 0.0177146551 104.73216 4.651406
## Pm_dl Px Px_l Px_dl X X_l
## 1962 0.0163650787 12.81257 2.550426 -0.004429551 5.37563 1.681876
## 1963 0.0112000771 13.03733 2.567817 0.017390671 5.49331 1.703531
## 1964 0.0213400908 13.82215 2.626272 0.058455040 5.81249 1.760009
## 1965 0.0140100407 14.50596 2.674560 0.048287616 6.13869 1.814611
## 1966 0.0149794521 14.37384 2.665410 -0.009150065 6.53189 1.876696
## 1967 0.0538552059 14.74356 2.690806 0.025396418 6.92052 1.934491
## 1968 0.1988915562 17.67493 2.872147 0.181341254 7.61133 2.029638
## 1969 0.0274418173 18.41697 2.913272 0.041124857 8.88526 2.184394
## 1970 0.0725681048 20.08332 2.999889 0.086617173 9.66165 2.268164
## 1971 0.0692383660 21.11065 3.049778 0.049888136 9.55001 2.256542
## 1972 0.0747123939 22.53851 3.115225 0.065447731 10.93293 2.391779
## 1973 0.1076617562 25.53299 3.239971 0.124746122 11.72236 2.461498
## 1974 0.3388952729 34.96948 3.554476 0.314504202 11.73535 2.462606
## 1975 0.0922617664 39.79382 3.683712 0.129236073 10.14228 2.316713
## 1976 0.0492786384 42.00890 3.737882 0.054169812 11.60230 2.451203
## 1977 0.1027194183 45.27692 3.812797 0.074915890 13.46381 2.600005
## 1978 0.1102328061 48.20579 3.875479 0.062681775 14.51070 2.674886
## 1979 0.1209612032 54.15138 3.991784 0.116304325 15.91095 2.767008
## 1980 0.1808797558 60.31420 4.099568 0.107784032 17.19993 2.844905
## 1981 0.1119507092 65.44578 4.181222 0.081654486 18.19827 2.901327
## 1982 0.0408491532 69.20843 4.237123 0.055900706 17.85765 2.882432
## 1983 0.0695881790 73.57113 4.298253 0.061129920 18.63095 2.924824
## 1984 0.0463957297 79.42190 4.374774 0.076521520 19.84717 2.988061
## 1985 0.0315964263 81.62023 4.402077 0.027302944 19.97299 2.994381
## 1986 -0.0766720878 78.48982 4.362969 -0.039108232 20.48546 3.019715
## 1987 -0.0013488710 79.97468 4.381710 0.018741157 21.16670 3.052429
## 1988 0.0123152249 83.69761 4.427210 0.045500349 21.91341 3.087099
## 1989 0.0511702004 88.74200 4.485733 0.058522832 22.28370 3.103855
## 1990 0.0134532689 89.14576 4.490273 0.004539555 22.59670 3.117804
## 1991 0.0329475381 88.80601 4.486454 -0.003818429 20.81278 3.035567
## 1992 0.0741240829 94.27519 4.546218 0.059763687 22.97211 3.134281
## 1993 0.0784467474 100.35143 4.608678 0.062460298 26.80181 3.288469
## 1994 -0.0050594625 101.72404 4.622264 0.013585341 30.36352 3.413242
## 1995 0.0007866499 106.73814 4.670379 0.048114829 33.02100 3.497144
## 1996 0.0033000680 106.16323 4.664978 -0.005400710 34.92358 3.553162
## 1997 0.0045608078 105.11725 4.655076 -0.009901443 39.82220 3.684425
## 1998 -0.0282095795 104.03349 4.644713 -0.010363502 43.35527 3.769428
## 1999 -0.0205881266 98.87245 4.593831 -0.050882190 48.27027 3.876816
## 2000 0.0715430462 102.32629 4.628167 0.034335932 56.04425 4.026142
## 2001 -0.0296924744 100.77965 4.612936 -0.015230112 57.06509 4.044193
## 2002 -0.0271741602 97.93057 4.584259 -0.028677770 59.33796 4.083249
## 2003 0.0002241550 96.41541 4.568666 -0.015592624 58.73957 4.073114
## 2004 0.0181051889 95.97730 4.564112 -0.004554408 63.87448 4.156920
## 2005 0.0461882023 97.09014 4.575640 0.011528098 68.31281 4.224097
## 2006 0.0540851070 99.27636 4.597908 0.022267720 75.01685 4.317713
## 2007 0.0107162450 100.27798 4.607946 0.010038591 81.75873 4.403773
## 2008 0.0172106838 100.07974 4.605967 -0.001978800 87.15550 4.467694
## 2009 -0.0731905258 94.18432 4.545254 -0.060713615 69.62518 4.243126
## 2010 0.0581277576 97.76204 4.582536 0.037282684 73.92849 4.303098
## 2011 0.0593890590 102.11321 4.626082 0.043545697 75.42805 4.323179
## 2012 0.0211241327 103.19429 4.636614 0.010531454 75.60399 4.325509
## 2013 -0.0174307486 102.15860 4.626527 -0.010086974 76.03667 4.331216
## 2014 -0.0161453018 101.24282 4.617522 -0.009004786 74.55245 4.311503
## 2015 -0.0429712394 100.00000 4.605170 -0.012351567 74.84500 4.315419
## 2016 -0.0245181022 97.55719 4.580439 -0.024731459 77.61499 4.351761
## 2017 0.0376857835 100.74588 4.612601 0.032162539 84.45507 4.436220
## 2018 0.0330683257 104.94630 4.653449 0.040847571 85.92394 4.453462
## X_dl M M_l M_dl rulc rulc_l
## 1962 0.068312386 6.97830 1.942805 0.054613588 0.7273950 -0.3182856
## 1963 0.021655212 6.78434 1.914617 -0.028188319 0.7357416 -0.3068763
## 1964 0.056478062 8.18181 2.101913 0.187296382 0.7452315 -0.2940604
## 1965 0.054602314 8.85795 2.181315 0.079401963 0.7514458 -0.2857563
## 1966 0.062084970 9.17138 2.216088 0.034772405 0.7603619 -0.2739607
## 1967 0.057794577 9.14345 2.213038 -0.003049990 0.7559661 -0.2797587
## 1968 0.095147015 8.78437 2.172974 -0.040063770 0.7244745 -0.3223087
## 1969 0.154755797 10.74192 2.374154 0.201179838 0.6869771 -0.3754543
## 1970 0.083770717 12.92183 2.558918 0.184764285 0.6847347 -0.3787238
## 1971 -0.011622239 12.89939 2.557180 -0.001738106 0.7128913 -0.3384264
## 1972 0.135237134 13.54630 2.606113 0.048933424 0.7064729 -0.3474704
## 1973 0.069718793 15.27534 2.726240 0.120126316 0.6955357 -0.3630730
## 1974 0.001107525 16.26748 2.789168 0.062928260 0.6727697 -0.3963522
## 1975 -0.145892829 16.30105 2.791230 0.002061500 0.7196802 -0.3289483
## 1976 0.134490529 16.06646 2.776734 -0.014495654 0.7292705 -0.3157106
## 1977 0.148801991 15.78883 2.759303 -0.017431141 0.7145675 -0.3360778
## 1978 0.074880963 15.16523 2.719005 -0.040297420 0.6784221 -0.3879856
## 1979 0.092121243 17.96267 2.888296 0.169290408 0.6612222 -0.4136654
## 1980 0.077897763 19.49918 2.970372 0.082076698 0.6705207 -0.3997007
## 1981 0.056421221 18.60464 2.923411 -0.046961401 0.6841847 -0.3795274
## 1982 -0.018894547 19.01627 2.945295 0.021883917 0.6692521 -0.4015944
## 1983 0.042392188 19.79836 2.985599 0.040304177 0.6550008 -0.4231188
## 1984 0.063237251 19.98008 2.994736 0.009136671 0.6477795 -0.4342049
## 1985 0.006319433 21.25111 3.056409 0.061673352 0.6579377 -0.4186451
## 1986 0.025334505 22.00008 3.091046 0.034636960 0.6519388 -0.4278047
## 1987 0.032713826 23.93574 3.175373 0.084326650 0.6560557 -0.4215096
## 1988 0.034669586 26.53804 3.278579 0.103206436 0.6330451 -0.4572136
## 1989 0.016756691 28.92449 3.364689 0.086109466 0.6265030 -0.4676016
## 1990 0.013948408 28.81606 3.360933 -0.003755771 0.6398848 -0.4464671
## 1991 -0.082236657 24.97786 3.217990 -0.142943038 0.6682586 -0.4030800
## 1992 0.098713650 25.15256 3.224960 0.006969848 0.6498943 -0.4309455
## 1993 0.154188551 25.49491 3.238479 0.013519144 0.6092060 -0.4955989
## 1994 0.124772465 28.76084 3.359015 0.120535915 0.5844511 -0.5370822
## 1995 0.083901835 31.11616 3.437727 0.078712559 0.5659313 -0.5692826
## 1996 0.056018523 33.36707 3.507569 0.069842187 0.5732260 -0.5564752
## 1997 0.131262300 37.33076 3.619818 0.112248166 0.5552880 -0.5882683
## 1998 0.085003719 40.49328 3.701136 0.081318383 0.5439111 -0.6089694
## 1999 0.107387579 42.22915 3.743111 0.041974706 0.5447332 -0.6074591
## 2000 0.149325714 48.50499 3.881667 0.138555938 0.5349433 -0.6255946
## 2001 0.018050989 49.17564 3.895398 0.013731700 0.5291575 -0.6364692
## 2002 0.039056690 51.28599 3.937418 0.042019237 0.5304576 -0.6340152
## 2003 -0.010135631 53.39233 3.977667 0.040249487 0.5318617 -0.6313719
## 2004 0.083806302 57.72950 4.055768 0.078101205 0.5283081 -0.6380756
## 2005 0.067177396 64.18505 4.161770 0.106002010 0.5343494 -0.6267054
## 2006 0.093615451 68.41479 4.225589 0.063818712 0.5349502 -0.6255816
## 2007 0.086059838 73.46478 4.296806 0.071217078 0.5198370 -0.6542401
## 2008 0.063921286 79.31594 4.373439 0.076633010 0.5311178 -0.6327715
## 2009 -0.224567596 65.83458 4.187145 -0.186293885 0.5632817 -0.5739754
## 2010 0.059971991 69.98400 4.248267 0.061121412 0.5516915 -0.5947663
## 2011 0.020080947 74.32820 4.308490 0.060223778 0.5496851 -0.5984098
## 2012 0.002329838 75.16350 4.319666 0.011175319 0.5587262 -0.5820957
## 2013 0.005706664 75.25788 4.320921 0.001254875 0.5513846 -0.5953227
## 2014 -0.019712819 74.58321 4.311915 -0.009005201 0.5457555 -0.6055841
## 2015 0.003916404 76.04700 4.331352 0.019436155 0.5401199 -0.6159642
## 2016 0.036341270 80.44641 4.387591 0.056239678 0.5323619 -0.6304317
## 2017 0.084459098 83.71636 4.427434 0.039843170 0.5123520 -0.6687434
## 2018 0.017242809 88.31958 4.480962 0.053527409 0.5127387 -0.6679889
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1962 0.0176392932 5.186868 1.646130 0.0566094142 44.48728 3.795203
## 1963 0.0114092527 5.516396 1.707725 0.0615947555 44.95429 3.805646
## 1964 0.0128158885 5.988498 1.789841 0.0821158624 46.38517 3.836980
## 1965 0.0083041812 6.341763 1.847157 0.0573161264 47.46040 3.859896
## 1966 0.0117955453 6.720152 1.905111 0.0579540299 47.51480 3.861041
## 1967 -0.0057979767 7.173174 1.970348 0.0652374791 48.16655 3.874665
## 1968 -0.0425499873 7.703680 2.041698 0.0713498121 48.89468 3.889669
## 1969 -0.0531456038 7.608121 2.029216 -0.0124818429 52.15324 3.954186
## 1970 -0.0032694740 7.875128 2.063709 0.0344931554 54.22978 3.993230
## 1971 0.0402973602 8.802731 2.175062 0.1113526109 54.63294 4.000637
## 1972 -0.0090440567 9.442642 2.245236 0.0701738127 57.35894 4.049329
## 1973 -0.0156025394 10.576778 2.358661 0.1134249817 59.40979 4.084459
## 1974 -0.0332792349 12.488613 2.524817 0.1661564811 59.95595 4.093610
## 1975 0.0674038741 14.891279 2.700776 0.1759584359 60.83120 4.108103
## 1976 0.0132377228 17.055709 2.836485 0.1357092187 60.43238 4.101525
## 1977 -0.0203671285 18.290664 2.906391 0.0699057936 60.40602 4.101089
## 1978 -0.0519078049 18.658462 2.926300 0.0199090106 61.95120 4.126347
## 1979 -0.0256798197 19.686864 2.979952 0.0536518701 64.78703 4.171105
## 1980 0.0139646939 21.900157 3.086494 0.1065421813 66.26844 4.193714
## 1981 0.0201733001 24.946045 3.216715 0.1302214829 65.64556 4.184270
## 1982 -0.0220670161 26.610417 3.281303 0.0645874513 66.53792 4.197772
## 1983 -0.0215243964 28.176984 3.338505 0.0572027227 67.81825 4.216831
## 1984 -0.0110860752 30.218907 3.408468 0.0699623271 69.04847 4.234809
## 1985 0.0155597660 32.294063 3.474883 0.0664156014 70.42392 4.254533
## 1986 -0.0091595455 33.519798 3.512136 0.0372528361 71.68936 4.272342
## 1987 0.0062950656 35.176675 3.560383 0.0482469969 72.92127 4.289380
## 1988 -0.0357040169 36.550662 3.598699 0.0383160742 75.49688 4.324091
## 1989 -0.0103880447 38.535225 3.651573 0.0528734367 77.50904 4.350395
## 1990 0.0211345444 41.402883 3.723351 0.0717777655 77.13908 4.345610
## 1991 0.0433870996 43.892444 3.781742 0.0583916771 74.61479 4.312339
## 1992 -0.0278655049 43.065043 3.762712 -0.0190305958 75.03404 4.317942
## 1993 -0.0646533706 41.081453 3.715557 -0.0471548389 77.31255 4.347856
## 1994 -0.0414832794 40.139157 3.692352 -0.0232044054 81.24525 4.397472
## 1995 -0.0322004475 40.499832 3.701298 0.0089454835 83.52954 4.425200
## 1996 0.0128073656 40.989703 3.713321 0.0120230472 85.45081 4.447941
## 1997 -0.0317930895 40.532918 3.702114 -0.0112064428 88.58563 4.483970
## 1998 -0.0207010810 40.932498 3.711924 0.0098098799 91.62438 4.517697
## 1999 0.0015102976 41.374366 3.722662 0.0107371869 93.72816 4.540399
## 2000 -0.0181354560 41.296247 3.720772 -0.0018898731 97.07536 4.575488
## 2001 -0.0108746689 42.199128 3.742400 0.0216279401 97.86603 4.583599
## 2002 0.0024540645 42.702284 3.754252 0.0118528412 98.16174 4.586616
## 2003 0.0026433145 42.896661 3.758794 0.0045415739 99.32204 4.598367
## 2004 -0.0067037282 42.866747 3.758096 -0.0006975812 102.20968 4.627026
## 2005 0.0113702324 43.759792 3.778715 0.0206189999 103.30434 4.637679
## 2006 0.0011237701 44.212336 3.789004 0.0102884503 105.48030 4.658524
## 2007 -0.0286584739 44.146302 3.787509 -0.0014946931 108.52613 4.686991
## 2008 0.0214685933 46.474222 3.838898 0.0513886287 106.93439 4.672215
## 2009 0.0587960944 50.163077 3.915279 0.0763814520 99.36760 4.598826
## 2010 -0.0207909677 49.289587 3.897713 -0.0175663955 102.41509 4.629034
## 2011 -0.0036434371 50.398822 3.919968 0.0222549554 103.44941 4.639083
## 2012 0.0163140485 52.751173 3.965586 0.0456182063 100.95544 4.614679
## 2013 -0.0132269246 53.390001 3.977623 0.0120374822 100.13308 4.606500
## 2014 -0.0102614710 53.707191 3.983547 0.0059234109 99.71916 4.602358
## 2015 -0.0103800575 54.011987 3.989206 0.0056591049 100.00000 4.605170
## 2016 -0.0144675439 53.335098 3.976595 -0.0126114006 101.88631 4.623858
## 2017 -0.0383116642 51.690653 3.945277 -0.0313176272 103.72612 4.641754
## 2018 0.0007544599 52.654204 3.963746 0.0184691150 103.12723 4.635963
## Tau_dl dPxdPm dPdPm Trade
## 1962 0.0091585080 -0.0207946295 0.022605042 0.2557045
## 1963 0.0104429222 0.0061905936 0.038985426 0.2460426
## 1964 0.0313336345 0.0371149494 0.047959883 0.2664840
## 1965 0.0229159658 0.0342775754 0.035001905 0.2711899
## 1966 0.0011454318 -0.0241295167 0.031179032 0.2773866
## 1967 0.0136235313 -0.0284587875 0.017180250 0.2777345
## 1968 0.0150039122 -0.0175503021 -0.084991757 0.2770878
## 1969 0.0645176926 0.0136830394 0.013221944 0.3026644
## 1970 0.0390439164 0.0140490679 -0.034805475 0.3240451
## 1971 0.0074067860 -0.0193502303 0.001816885 0.3147034
## 1972 0.0486916259 -0.0092646626 0.004505475 0.3185193
## 1973 0.0351303562 0.0170843658 0.021365765 0.3283577
## 1974 0.0091510820 -0.0243910712 -0.139459557 0.3299050
## 1975 0.0144927230 0.0369743069 0.016292795 0.3015447
## 1976 -0.0065777084 0.0048911741 0.073192858 0.3140648
## 1977 -0.0004363596 -0.0278035281 -0.012446496 0.3311111
## 1978 0.0252581766 -0.0475510308 -0.038415991 0.3258030
## 1979 0.0447584678 -0.0046568785 -0.041629513 0.3471003
## 1980 0.0226083712 -0.0730957242 -0.088302268 0.3561354
## 1981 -0.0094437623 -0.0302962228 -0.001902526 0.3525021
## 1982 0.0135019938 0.0150515528 0.045805314 0.3425365
## 1983 0.0190593965 -0.0084582593 0.009138940 0.3461972
## 1984 0.0179773796 0.0301257899 0.034652673 0.3475385
## 1985 0.0197242942 -0.0042934820 0.019259409 0.3474004
## 1986 0.0178092286 0.0375638559 0.123084469 0.3484309
## 1987 0.0170380691 0.0200900277 0.043300802 0.3571271
## 1988 0.0347109392 0.0331851243 0.061704866 0.3646212
## 1989 0.0263033380 0.0073526312 0.012091281 0.3667131
## 1990 -0.0047845533 -0.0089137142 0.037189952 0.3657243
## 1991 -0.0332713846 -0.0367659672 -0.017942961 0.3461043
## 1992 0.0056031926 -0.0143603963 -0.065289174 0.3761371
## 1993 0.0299143951 -0.0159864498 -0.060948216 0.4114667
## 1994 0.0496161350 0.0186448035 0.023338337 0.4474501
## 1995 0.0277279741 0.0473281795 0.040359281 0.4657438
## 1996 0.0227405333 -0.0087007784 -0.004084386 0.4783622
## 1997 0.0360287924 -0.0144622504 0.016025839 0.5082473
## 1998 0.0337276682 0.0178460777 0.058720540 0.5237722
## 1999 0.0227012847 -0.0302940634 0.029815016 0.5415978
## 2000 0.0350889277 -0.0372071142 -0.055297463 0.5915285
## 2001 0.0081118991 0.0144623626 0.062195083 0.5858106
## 2002 0.0030170065 -0.0015036095 0.036572937 0.5997416
## 2003 0.0117509963 -0.0158167790 0.001674104 0.5959752
## 2004 0.0286588614 -0.0226595969 -0.012099042 0.6215060
## 2005 0.0106530742 -0.0346601046 -0.036939435 0.6588695
## 2006 0.0208447773 -0.0318173867 -0.044920427 0.6856266
## 2007 0.0284668122 -0.0006776538 0.016447536 0.7046540
## 2008 -0.0147755349 -0.0191894841 0.012709352 0.7498362
## 2009 -0.0733893936 0.0124769110 0.090775884 0.6637454
## 2010 0.0302079970 -0.0208450733 -0.054903185 0.6833912
## 2011 0.0100486155 -0.0158433620 -0.033490666 0.6934746
## 2012 -0.0244034509 -0.0105926789 0.008180025 0.7080513
## 2013 -0.0081791679 0.0073437742 0.042695155 0.7169940
## 2014 -0.0041422834 0.0071405162 0.032330184 0.7093517
## 2015 0.0028123921 0.0306196720 0.059010402 0.7138255
## 2016 0.0186873949 -0.0002133567 0.026374245 0.7280091
## 2017 0.0178963657 -0.0055232446 -0.030691746 0.7512818
## 2018 -0.0057905109 0.0077792448 -0.015353671 0.7659228
adf.FIN.WS <- adf.test((FIN$WS), alternative = c("stationary"), k = 2)
adf.FIN.PS <- adf.test((FIN$PS), alternative = c("stationary"), k = 2)
adf.FIN.Y <- adf.test((FIN$Y), alternative = c("stationary"), k = 2)
adf.FIN.Yrw <- adf.test((FIN$Yrw), alternative = c("stationary"), k = 2)
adf.FIN.r <- adf.test((FIN$r), alternative = c("stationary"), k = 2)
adf.FIN.R <- adf.test((FIN$R), alternative = c("stationary"), k = 2)
adf.FIN.Tau <- adf.test((FIN$Tau), alternative = c("stationary"), k = 2)
adf.FIN.rulc <- adf.test((FIN$rulc), alternative = c("stationary"), k = 2)
adf.FIN.ulc <- adf.test((FIN$ulc), alternative = c("stationary"), k = 2)
adf.FIN.P <- adf.test((FIN$P), alternative = c("stationary"), k = 2)
adf.FIN.Pm <- adf.test((FIN$Pm), alternative = c("stationary"), k = 2)
adf.FIN.Px <- adf.test((FIN$Px), alternative = c("stationary"), k = 2)
adf.FIN.X <- adf.test((FIN$X), alternative = c("stationary"), k = 2)
adf.FIN.M <- adf.test((FIN$M), alternative = c("stationary"), k = 2)
adf.FIN.I <- adf.test((FIN$I), alternative = c("stationary"), k = 2)
adf.FIN.C <- adf.test((FIN$C), alternative = c("stationary"), k = 2)
adf.FIN.Ipr <- adf.test((FIN$Ipr), alternative = c("stationary"), k = 2)
adf.FIN.Ips <- adf.test((FIN$Ips), alternative = c("stationary"), k = 2)
adf.FIN.It <- adf.test((FIN$It), alternative = c("stationary"), k = 2)
adf.FIN.Itcurr <- adf.test((FIN$Itcurr), alternative = c("stationary"), k = 2)
adf.FIN.Yf <- adf.test((FIN$Yf), alternative = c("stationary"), k = 2)
adf.FIN.W <- adf.test((FIN$W), alternative = c("stationary"), k = 2)
adf.FIN.WS.pval <- adf.FIN.WS$p.value
adf.FIN.PS.pval <- adf.FIN.PS$p.value
adf.FIN.Y.pval <- adf.FIN.Y$p.value
adf.FIN.Yrw.pval <- adf.FIN.Yrw$p.value
adf.FIN.r.pval <- adf.FIN.r$p.value
adf.FIN.R.pval <- adf.FIN.R$p.value
adf.FIN.Tau.pval <- adf.FIN.Tau$p.value
adf.FIN.rulc.pval <- adf.FIN.rulc$p.value
adf.FIN.ulc.pval <- adf.FIN.ulc$p.value
adf.FIN.P.pval <- adf.FIN.P$p.value
adf.FIN.Pm.pval <- adf.FIN.Pm$p.value
adf.FIN.Px.pval <- adf.FIN.Px$p.value
adf.FIN.X.pval <- adf.FIN.X$p.value
adf.FIN.M.pval <- adf.FIN.M$p.value
adf.FIN.I.pval <- adf.FIN.I$p.value
adf.FIN.C.pval <- adf.FIN.C$p.value
adf.FIN.Ipr.pval <- adf.FIN.Ipr$p.value
adf.FIN.Ips.pval <- adf.FIN.Ips$p.value
adf.FIN.It.pval <- adf.FIN.It$p.value
adf.FIN.Itcurr.pval <- adf.FIN.Itcurr$p.value
adf.FIN.Yf.pval <- adf.FIN.Yf$p.value
adf.FIN.W.pval <- adf.FIN.W$p.value
adf.FIN_non <- rbind(adf.FIN.WS.pval,adf.FIN.PS.pval,adf.FIN.Y.pval,adf.FIN.Yrw.pval,adf.FIN.r.pval,adf.FIN.R.pval,adf.FIN.Tau.pval,adf.FIN.rulc.pval,adf.FIN.ulc.pval,adf.FIN.P.pval,adf.FIN.Pm.pval,adf.FIN.Px.pval,adf.FIN.X.pval,adf.FIN.M.pval,adf.FIN.I.pval,adf.FIN.C.pval,adf.FIN.Ipr.pval,adf.FIN.Ips.pval,adf.FIN.It.pval,adf.FIN.Itcurr.pval,adf.FIN.Yf.pval,adf.FIN.W.pval)
colnames(adf.FIN_non) <- c("FIN")
rownames(adf.FIN_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.FIN_non
## FIN
## WS 0.51582543
## PS 0.51582543
## Y 0.46868561
## Yrw 0.65547883
## r 0.57210914
## R 0.63376426
## Tau 0.95501094
## rulc 0.52634664
## ulc 0.92161077
## P 0.79241085
## Pm 0.91338003
## Px 0.96761085
## X 0.64936905
## M 0.86781501
## I 0.08568598
## C 0.38240704
## Ipr 0.31201723
## Ips 0.16820610
## It 0.06253567
## Itcurr 0.38158749
## Yf 0.52899586
## W 0.29559460
adf.FIN.WS_dl <- adf.test((FIN$WS_dl), alternative = c("stationary"), k = 2)
adf.FIN.PS_dl <- adf.test((FIN$PS_dl), alternative = c("stationary"), k = 2)
adf.FIN.Y_dl <- adf.test((FIN$Y_dl), alternative = c("stationary"), k = 2)
adf.FIN.Yrw_dl <- adf.test((FIN$Yrw_dl), alternative = c("stationary"), k = 2)
adf.FIN.r_dl <- adf.test((FIN$r_dl), alternative = c("stationary"), k = 2)
adf.FIN.R_dl <- adf.test((FIN$R_dl), alternative = c("stationary"), k = 2)
adf.FIN.Tau_dl <- adf.test((FIN$Tau_dl), alternative = c("stationary"), k = 2)
adf.FIN.rulc_dl <- adf.test((FIN$rulc_dl), alternative = c("stationary"), k = 2)
adf.FIN.ulc_dl <- adf.test((FIN$ulc_dl), alternative = c("stationary"), k = 2)
adf.FIN.P_dl <- adf.test((FIN$P_dl), alternative = c("stationary"), k = 2)
adf.FIN.Pm_dl <- adf.test((FIN$Pm_dl), alternative = c("stationary"), k = 2)
adf.FIN.Px_dl <- adf.test((FIN$Px_dl), alternative = c("stationary"), k = 2)
adf.FIN.X_dl <- adf.test((FIN$X_dl), alternative = c("stationary"), k = 2)
adf.FIN.M_dl <- adf.test((FIN$M_dl), alternative = c("stationary"), k = 2)
adf.FIN.I_dl <- adf.test((FIN$I_dl), alternative = c("stationary"), k = 2)
adf.FIN.C_dl <- adf.test((FIN$C_dl), alternative = c("stationary"), k = 2)
adf.FIN.Ipr_dl <- adf.test((FIN$Ipr_dl), alternative = c("stationary"), k = 2)
adf.FIN.Ips_dl <- adf.test((FIN$Ips_dl), alternative = c("stationary"), k = 2)
adf.FIN.It_dl <- adf.test((FIN$It_dl), alternative = c("stationary"), k = 2)
adf.FIN.Itcurr_dl <- adf.test((FIN$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.FIN.Yf_dl <- adf.test((FIN$Yf_dl), alternative = c("stationary"), k = 2)
adf.FIN.W_dl <- adf.test((FIN$W_dl), alternative = c("stationary"), k = 2)
adf.FIN.WS_dl.pval <- adf.FIN.WS_dl$p.value
adf.FIN.PS_dl.pval <- adf.FIN.PS_dl$p.value
adf.FIN.Y_dl.pval <- adf.FIN.Y_dl$p.value
adf.FIN.Yrw_dl.pval <- adf.FIN.Yrw_dl$p.value
adf.FIN.r_dl.pval <- adf.FIN.r_dl$p.value
adf.FIN.R_dl.pval <- adf.FIN.R_dl$p.value
adf.FIN.Tau_dl.pval <- adf.FIN.Tau_dl$p.value
adf.FIN.rulc_dl.pval <- adf.FIN.rulc_dl$p.value
adf.FIN.ulc_dl.pval <- adf.FIN.ulc_dl$p.value
adf.FIN.P_dl.pval <- adf.FIN.P_dl$p.value
adf.FIN.Pm_dl.pval <- adf.FIN.Pm_dl$p.value
adf.FIN.Px_dl.pval <- adf.FIN.Px_dl$p.value
adf.FIN.X_dl.pval <- adf.FIN.X_dl$p.value
adf.FIN.M_dl.pval <- adf.FIN.M_dl$p.value
adf.FIN.I_dl.pval <- adf.FIN.I_dl$p.value
adf.FIN.C_dl.pval <- adf.FIN.C_dl$p.value
adf.FIN.Ipr_dl.pval <- adf.FIN.Ipr_dl$p.value
adf.FIN.Ips_dl.pval <- adf.FIN.Ips_dl$p.value
adf.FIN.It_dl.pval <- adf.FIN.It_dl$p.value
adf.FIN.Itcurr_dl.pval <- adf.FIN.Itcurr_dl$p.value
adf.FIN.Yf_dl.pval <- adf.FIN.Yf_dl$p.value
adf.FIN.W_dl.pval <- adf.FIN.W_dl$p.value
adf.FIN_dl <- rbind(adf.FIN.WS_dl.pval,adf.FIN.PS_dl.pval,adf.FIN.Y_dl.pval,adf.FIN.Yrw_dl.pval,adf.FIN.r_dl.pval,adf.FIN.R_dl.pval,adf.FIN.Tau_dl.pval,adf.FIN.rulc_dl.pval,adf.FIN.ulc_dl.pval,adf.FIN.P_dl.pval,adf.FIN.Pm_dl.pval,adf.FIN.Px_dl.pval,adf.FIN.X_dl.pval,adf.FIN.M_dl.pval,adf.FIN.I_dl.pval,adf.FIN.C_dl.pval,adf.FIN.Ipr_dl.pval,adf.FIN.Ips_dl.pval,adf.FIN.It_dl.pval,adf.FIN.Itcurr_dl.pval,adf.FIN.Yf_dl.pval,adf.FIN.W_dl.pval)
colnames(adf.FIN_dl) <- c("FIN")
rownames(adf.FIN_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.FIN_dl
## FIN
## dlog(WS) 0.01000000
## dlog(PS) 0.01000000
## dlog(Y) 0.02626102
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.01000000
## dlog(Tau) 0.02018798
## dlog(rulc) 0.01000000
## dlog(ulc) 0.25725272
## dlog(P) 0.24869489
## dlog(Pm) 0.03846620
## dlog(Px) 0.03920176
## dlog(X) 0.01000000
## dlog(M) 0.01000000
## dlog(I) 0.01000000
## dlog(C) 0.04789002
## dlog(Ipr) 0.01199730
## dlog(Ips) 0.01000000
## dlog(It) 0.01000000
## dlog(Itcurr) 0.01184197
## dlog(Yf) 0.03662119
## dlog(W) 0.01000000
adf.FIN <- NULL
adf.FIN <- rbind(adf.FIN_non,adf.FIN_dl)
#Consumption (C)
FIN_consumption <- dynlm(FIN$C_dl~FIN$R_dl+FIN$W_dl+L(FIN$C_l))
FIN_CR <- summary(FIN_consumption)$coefficients["FIN$R_dl","Estimate"]
FIN_CW <- summary(FIN_consumption)$coefficients["FIN$W_dl","Estimate"]
FIN_Ceffekt <- (FIN_CR*mean(FIN$C/FIN$R))-(FIN_CW*mean(FIN$C/FIN$W))
summary(FIN_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$C_dl ~ FIN$R_dl + FIN$W_dl + L(FIN$C_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.028712 -0.004807 0.001277 0.005774 0.026172
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.01479 0.01731 0.854 0.397
## FIN$R_dl 0.18567 0.02237 8.302 0.00000000003701748 ***
## FIN$W_dl 0.63850 0.05721 11.160 0.00000000000000158 ***
## L(FIN$C_l) -0.00154 0.00398 -0.387 0.700
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01251 on 53 degrees of freedom
## Multiple R-squared: 0.7864, Adjusted R-squared: 0.7743
## F-statistic: 65.05 on 3 and 53 DF, p-value: < 0.00000000000000022
#Investments (I)
FIN_investment <- dynlm(FIN$I_dl~FIN$PS_l+FIN$Y_dl+L(FIN$r_dl,2))
FIN_iPS <- summary(FIN_investment)$coefficients["FIN$PS_l","Estimate"]
FIN_Ieffekt <- FIN_iPS*mean(FIN$I/FIN$R)
summary(FIN_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$I_dl ~ FIN$PS_l + FIN$Y_dl + L(FIN$r_dl,
## 2))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.109751 -0.021467 0.003122 0.033080 0.093809
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.06390 0.03893 1.642 0.10658
## FIN$PS_l 0.09019 0.03365 2.680 0.00978 **
## FIN$Y_dl 2.21439 0.19376 11.428 0.000000000000000644 ***
## L(FIN$r_dl, 2) 0.01310 0.01344 0.974 0.33432
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04381 on 53 degrees of freedom
## Multiple R-squared: 0.7235, Adjusted R-squared: 0.7078
## F-statistic: 46.22 on 3 and 53 DF, p-value: 0.000000000000008096
#Price deflator (P)
FIN_deflator <- dynlm(FIN$P_dl~L(FIN$ulc_dl)+FIN$Pm_dl)
FIN_ePULC <- summary(FIN_deflator)$coefficients["L(FIN$ulc_dl)","Estimate"]
summary(FIN_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$P_dl ~ L(FIN$ulc_dl) + FIN$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.039565 -0.015490 -0.000364 0.012529 0.035221
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.015300 0.003082 4.965 0.000007263506782 ***
## L(FIN$ulc_dl) 0.534922 0.055759 9.593 0.000000000000291 ***
## FIN$Pm_dl 0.243871 0.039788 6.129 0.000000105722929 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01725 on 54 degrees of freedom
## Multiple R-squared: 0.8221, Adjusted R-squared: 0.8155
## F-statistic: 124.8 on 2 and 54 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
FIN_exportdeflator <- dynlm(FIN$Px_dl~FIN$ulc_dl+FIN$Pm_dl)
FIN_ePX <- summary(FIN_exportdeflator)$coefficients["FIN$ulc_dl","Estimate"]
summary(FIN_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$Px_dl ~ FIN$ulc_dl + FIN$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.048718 -0.015670 -0.000756 0.015363 0.047443
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.001314 0.003818 -0.344 0.7321
## FIN$ulc_dl 0.153259 0.069082 2.219 0.0307 *
## FIN$Pm_dl 0.782219 0.049295 15.868 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02137 on 54 degrees of freedom
## Multiple R-squared: 0.8776, Adjusted R-squared: 0.8731
## F-statistic: 193.6 on 2 and 54 DF, p-value: < 0.00000000000000022
#Exports (X)
FIN_exports <- dynlm(FIN$X_dl~FIN$dPxdPm+FIN$Yrw_dl)
FIN_eXP <- summary(FIN_exports)$coefficients["FIN$dPxdPm","Estimate"]
FIN_Xeffekt <- -(FIN_eXP*FIN_ePX*(1/(1-FIN_ePULC))*mean(FIN$Yf/FIN$Y)*(mean(FIN$X/FIN$Y)/mean(FIN$rulc)))
summary(FIN_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$X_dl ~ FIN$dPxdPm + FIN$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.122143 -0.034973 0.000005 0.034351 0.136087
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.02013 0.01389 -1.449 0.1532
## FIN$dPxdPm -0.71690 0.29024 -2.470 0.0167 *
## FIN$Yrw_dl 2.22534 0.39296 5.663 0.000000588 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05312 on 54 degrees of freedom
## Multiple R-squared: 0.4058, Adjusted R-squared: 0.3838
## F-statistic: 18.44 on 2 and 54 DF, p-value: 0.0000007865
#Imports (M)
FIN_imports <- dynlm(FIN$M_dl~FIN$dPdPm+FIN$Y_dl)
FIN_eMP <- summary(FIN_imports)$coefficients["FIN$dPdPm","Estimate"]
FIN_eMP <- 0
FIN_Meffekt <- -(FIN_eMP*FIN_ePULC*(1/(1-FIN_ePULC))*mean(FIN$Yf/FIN$Y)*(mean(FIN$M/FIN$Y)/mean(FIN$rulc)))
summary(FIN_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$M_dl ~ FIN$dPdPm + FIN$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.094690 -0.018517 0.000938 0.019960 0.101135
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.006045 0.007329 -0.825 0.413
## FIN$dPdPm -0.079150 0.114364 -0.692 0.492
## FIN$Y_dl 1.880188 0.177790 10.575 0.0000000000000091 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04 on 54 degrees of freedom
## Multiple R-squared: 0.6802, Adjusted R-squared: 0.6684
## F-statistic: 57.44 on 2 and 54 DF, p-value: 0.00000000000004267
names(FIN_consumption$coefficients) <- sub("FIN$","",names(FIN_consumption$coefficients),fixed=TRUE)
names(FIN_investment$coefficients) <- sub("FIN$","",names(FIN_investment$coefficients),fixed=TRUE)
names(FIN_deflator$coefficients) <- sub("FIN$","",names(FIN_deflator$coefficients),fixed=TRUE)
names(FIN_exportdeflator$coefficients) <- sub("FIN$","",names(FIN_exportdeflator$coefficients),fixed=TRUE)
names(FIN_exports$coefficients) <- sub("FIN$","",names(FIN_exports$coefficients),fixed=TRUE)
names(FIN_imports$coefficients) <- sub("FIN$","",names(FIN_imports$coefficients),fixed=TRUE)
FIN_Xeffekt
## [1] 0.07932185
FIN_Meffekt
## [1] 0
#Nettoeksport (NX)
FIN_NXeffekt <- FIN_Xeffekt - FIN_Meffekt
FIN_NXeffekt
## [1] 0.07932185
#Nettoeffekten
FIN_Neteffekt = FIN_Ceffekt + FIN_Ieffekt + FIN_NXeffekt
FIN_Neteffekt
## [1] -0.06983049
FIN_Lukket <- FIN_Ceffekt + FIN_Ieffekt
FIN_Lukket_Konklusion <- ifelse(FIN_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
FIN_Lukket_Konklusion
## [1] "Wage-led domestic"
FIN_Def <- ifelse(FIN_Neteffekt > 0, "Profit-led", "Wage-led")
FIN_Def
## [1] "Wage-led"
summary(ur.df(y=FIN_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0252389 -0.0062085 -0.0000182 0.0054600 0.0164940
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.520221 0.623597 -2.438 0.0207 *
## z.diff.lag1 0.828624 0.582507 1.423 0.1649
## z.diff.lag2 0.637748 0.534614 1.193 0.2420
## z.diff.lag3 0.576432 0.514995 1.119 0.2716
## z.diff.lag4 0.674249 0.485019 1.390 0.1744
## z.diff.lag5 0.485887 0.455120 1.068 0.2939
## z.diff.lag6 0.505692 0.430413 1.175 0.2490
## z.diff.lag7 0.556077 0.385127 1.444 0.1588
## z.diff.lag8 0.388875 0.346931 1.121 0.2709
## z.diff.lag9 0.404619 0.304958 1.327 0.1943
## z.diff.lag10 0.380872 0.260695 1.461 0.1541
## z.diff.lag11 -0.009531 0.209588 -0.045 0.9640
## z.diff.lag12 0.158836 0.156095 1.018 0.3168
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01149 on 31 degrees of freedom
## Multiple R-squared: 0.5835, Adjusted R-squared: 0.4089
## F-statistic: 3.341 on 13 and 31 DF, p-value: 0.002889
##
##
## Value of test-statistic is: -2.4378
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FIN_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.091482 -0.030722 -0.001842 0.022481 0.073649
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -2.2791 0.8815 -2.586 0.0146 *
## z.diff.lag1 1.4576 0.8307 1.755 0.0892 .
## z.diff.lag2 1.3393 0.7952 1.684 0.1022
## z.diff.lag3 1.1622 0.7500 1.549 0.1314
## z.diff.lag4 1.0300 0.7028 1.465 0.1529
## z.diff.lag5 0.7266 0.6409 1.134 0.2656
## z.diff.lag6 0.8656 0.5705 1.517 0.1393
## z.diff.lag7 0.7424 0.5128 1.448 0.1577
## z.diff.lag8 0.5849 0.4298 1.361 0.1834
## z.diff.lag9 0.5542 0.3624 1.529 0.1363
## z.diff.lag10 0.3921 0.2863 1.370 0.1806
## z.diff.lag11 0.2884 0.2153 1.340 0.1901
## z.diff.lag12 0.1811 0.1710 1.059 0.2979
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04358 on 31 degrees of freedom
## Multiple R-squared: 0.5194, Adjusted R-squared: 0.3179
## F-statistic: 2.578 on 13 and 31 DF, p-value: 0.01518
##
##
## Value of test-statistic is: -2.5855
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FIN_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.131583 -0.022459 0.007432 0.041540 0.115772
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.84427 0.47824 -1.765 0.0874 .
## z.diff.lag1 0.10029 0.45599 0.220 0.8274
## z.diff.lag2 0.11556 0.43210 0.267 0.7909
## z.diff.lag3 0.06235 0.40420 0.154 0.8784
## z.diff.lag4 0.16375 0.38462 0.426 0.6732
## z.diff.lag5 0.14535 0.36565 0.398 0.6937
## z.diff.lag6 0.10815 0.33966 0.318 0.7523
## z.diff.lag7 0.19150 0.31201 0.614 0.5438
## z.diff.lag8 0.05169 0.28789 0.180 0.8587
## z.diff.lag9 -0.02857 0.26567 -0.108 0.9151
## z.diff.lag10 -0.02538 0.24538 -0.103 0.9183
## z.diff.lag11 -0.11298 0.21283 -0.531 0.5993
## z.diff.lag12 -0.06451 0.17535 -0.368 0.7155
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05763 on 31 degrees of freedom
## Multiple R-squared: 0.4052, Adjusted R-squared: 0.1558
## F-statistic: 1.625 on 13 and 31 DF, p-value: 0.1313
##
##
## Value of test-statistic is: -1.7654
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FIN_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.055047 -0.013457 -0.006637 0.014666 0.066625
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.44109 0.30575 -1.443 0.159
## z.diff.lag1 -0.52425 0.31011 -1.691 0.101
## z.diff.lag2 -0.39060 0.31892 -1.225 0.230
## z.diff.lag3 -0.06742 0.32812 -0.205 0.839
## z.diff.lag4 -0.11261 0.32582 -0.346 0.732
## z.diff.lag5 -0.10849 0.32418 -0.335 0.740
## z.diff.lag6 0.11216 0.31874 0.352 0.727
## z.diff.lag7 0.08240 0.31590 0.261 0.796
## z.diff.lag8 0.23343 0.30143 0.774 0.445
## z.diff.lag9 0.12897 0.27944 0.462 0.648
## z.diff.lag10 0.31589 0.24091 1.311 0.199
## z.diff.lag11 0.08223 0.20052 0.410 0.685
## z.diff.lag12 -0.04311 0.13230 -0.326 0.747
##
## Residual standard error: 0.03132 on 31 degrees of freedom
## Multiple R-squared: 0.6678, Adjusted R-squared: 0.5285
## F-statistic: 4.794 on 13 and 31 DF, p-value: 0.0001684
##
##
## Value of test-statistic is: -1.4426
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
plot(FIN_consumption)
plot(FIN_investment)
plot(FIN_deflator)
plot(FIN_exportdeflator)
plot(FIN_exports)
plot(FIN_imports)
bptest(FIN_consumption)
##
## studentized Breusch-Pagan test
##
## data: FIN_consumption
## BP = 3.292, df = 3, p-value = 0.3488
bptest(FIN_investment)
##
## studentized Breusch-Pagan test
##
## data: FIN_investment
## BP = 0.73745, df = 3, p-value = 0.8644
bptest(FIN_deflator)
##
## studentized Breusch-Pagan test
##
## data: FIN_deflator
## BP = 1.3974, df = 2, p-value = 0.4972
bptest(FIN_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: FIN_exportdeflator
## BP = 4.4621, df = 2, p-value = 0.1074
bptest(FIN_exports)
##
## studentized Breusch-Pagan test
##
## data: FIN_exports
## BP = 5.3275, df = 2, p-value = 0.06968
bptest(FIN_imports)
##
## studentized Breusch-Pagan test
##
## data: FIN_imports
## BP = 1.6843, df = 2, p-value = 0.4308
resettest(FIN_consumption)
##
## RESET test
##
## data: FIN_consumption
## RESET = 0.62196, df1 = 2, df2 = 51, p-value = 0.5409
resettest(FIN_investment)
##
## RESET test
##
## data: FIN_investment
## RESET = 1.0577, df1 = 2, df2 = 51, p-value = 0.3547
resettest(FIN_deflator)
##
## RESET test
##
## data: FIN_deflator
## RESET = 0.68281, df1 = 2, df2 = 52, p-value = 0.5097
resettest(FIN_exportdeflator)
##
## RESET test
##
## data: FIN_exportdeflator
## RESET = 1.0248, df1 = 2, df2 = 52, p-value = 0.366
resettest(FIN_exports)
##
## RESET test
##
## data: FIN_exports
## RESET = 6.5791, df1 = 2, df2 = 52, p-value = 0.002837
resettest(FIN_imports)
##
## RESET test
##
## data: FIN_imports
## RESET = 1.7899, df1 = 2, df2 = 52, p-value = 0.1771
FIN_regtab <- matrix(c(FIN_Ceffekt, FIN_Ieffekt, FIN_Lukket, FIN_Xeffekt, FIN_Meffekt, FIN_NXeffekt, FIN_Neteffekt,FIN_Lukket_Konklusion, FIN_Def),ncol=9,byrow=TRUE)
colnames(FIN_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(FIN_regtab) <- c("FIN")
FIN_regtab <- as.table(FIN_regtab)
FIN_regtab
## consumption investment Lukket neteffekt
## FIN -0.212002599652354 0.0628502571301414 -0.149152342522213
## exports imports netexports neteffect
## FIN 0.0793218499803654 0 0.0793218499803654 -0.0698304925418476
## Lukket konklusion Konklusion
## FIN Wage-led domestic Wage-led
FIN_smoke <- matrix(c(mean(FIN$C/FIN$R), mean(FIN$C/FIN$W), mean(FIN$I/FIN$R), FIN_CR, FIN_CW, FIN_iPS, FIN_ePULC, (1/(1-FIN_ePULC)), FIN_eXP, FIN_ePX, FIN_eMP, mean(FIN$Yf/FIN$Y), mean(FIN$X/FIN$Y), mean(FIN$rulc), (mean(FIN$X/FIN$Y)/mean(FIN$rulc))),ncol=15,byrow=TRUE)
colnames(FIN_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(FIN_smoke) <- c("FIN")
FIN_smoke <- as.table(FIN_smoke)
FIN_smoke
## C/R C/W I/R CR CW
## FIN 1.77218514 0.84737257 0.69687853 0.18567427 0.63850518
## iPS ePULC 1/1-epulc eXP ePX
## FIN 0.09018825 0.53492194 2.15017670 -0.71689528 0.15325921
## eMP Yf/Y X/Y RULC (X/Y)/rulc
## FIN 0.00000000 0.92406914 0.22657610 0.62356566 0.36335564
summary(FIN_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$C_dl ~ FIN$R_dl + FIN$W_dl + L(FIN$C_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.028712 -0.004807 0.001277 0.005774 0.026172
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.01479 0.01731 0.854 0.397
## R_dl 0.18567 0.02237 8.302 0.00000000003701748 ***
## W_dl 0.63850 0.05721 11.160 0.00000000000000158 ***
## L(C_l) -0.00154 0.00398 -0.387 0.700
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01251 on 53 degrees of freedom
## Multiple R-squared: 0.7864, Adjusted R-squared: 0.7743
## F-statistic: 65.05 on 3 and 53 DF, p-value: < 0.00000000000000022
summary(FIN_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$I_dl ~ FIN$PS_l + FIN$Y_dl + L(FIN$r_dl,
## 2))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.109751 -0.021467 0.003122 0.033080 0.093809
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.06390 0.03893 1.642 0.10658
## PS_l 0.09019 0.03365 2.680 0.00978 **
## Y_dl 2.21439 0.19376 11.428 0.000000000000000644 ***
## L(r_dl, 2) 0.01310 0.01344 0.974 0.33432
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04381 on 53 degrees of freedom
## Multiple R-squared: 0.7235, Adjusted R-squared: 0.7078
## F-statistic: 46.22 on 3 and 53 DF, p-value: 0.000000000000008096
summary(FIN_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$P_dl ~ L(FIN$ulc_dl) + FIN$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.039565 -0.015490 -0.000364 0.012529 0.035221
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.015300 0.003082 4.965 0.000007263506782 ***
## L(ulc_dl) 0.534922 0.055759 9.593 0.000000000000291 ***
## Pm_dl 0.243871 0.039788 6.129 0.000000105722929 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01725 on 54 degrees of freedom
## Multiple R-squared: 0.8221, Adjusted R-squared: 0.8155
## F-statistic: 124.8 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(FIN_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$Px_dl ~ FIN$ulc_dl + FIN$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.048718 -0.015670 -0.000756 0.015363 0.047443
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.001314 0.003818 -0.344 0.7321
## ulc_dl 0.153259 0.069082 2.219 0.0307 *
## Pm_dl 0.782219 0.049295 15.868 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02137 on 54 degrees of freedom
## Multiple R-squared: 0.8776, Adjusted R-squared: 0.8731
## F-statistic: 193.6 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(FIN_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$X_dl ~ FIN$dPxdPm + FIN$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.122143 -0.034973 0.000005 0.034351 0.136087
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.02013 0.01389 -1.449 0.1532
## dPxdPm -0.71690 0.29024 -2.470 0.0167 *
## Yrw_dl 2.22534 0.39296 5.663 0.000000588 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05312 on 54 degrees of freedom
## Multiple R-squared: 0.4058, Adjusted R-squared: 0.3838
## F-statistic: 18.44 on 2 and 54 DF, p-value: 0.0000007865
summary(FIN_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FIN$M_dl ~ FIN$dPdPm + FIN$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.094690 -0.018517 0.000938 0.019960 0.101135
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.006045 0.007329 -0.825 0.413
## dPdPm -0.079150 0.114364 -0.692 0.492
## Y_dl 1.880188 0.177790 10.575 0.0000000000000091 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04 on 54 degrees of freedom
## Multiple R-squared: 0.6802, Adjusted R-squared: 0.6684
## F-statistic: 57.44 on 2 and 54 DF, p-value: 0.00000000000004267
FRA_df[!complete.cases(FRA_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.7272756 -0.3184498 NA 0.2727244 -1.299293 NA
## 1961 0.7416154 -0.2989245 0.01952530 0.2583846 -1.353306 -0.05401263
## 2019 0.6676164 -0.4040415 -0.01185690 0.3323836 -1.101466 0.02424883
## 2020 0.6937024 -0.3657122 0.03832928 0.3062976 -1.183198 -0.08173254
## 2021 0.6671336 -0.4047649 -0.03905268 0.3328664 -1.100014 0.08318395
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 469.632 6.151949 NA 8800482141236 29.80583 NA
## 1961 493.021 6.200552 0.04860236 9199981521992 29.85022 0.04439497
## 2019 2342.362 7.758915 0.01306807 NA NA NA
## 2020 2149.157 7.672831 -0.08608415 NA NA NA
## 2021 2308.219 7.744232 0.07140056 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1960 7.5570 462.075 6.135727 NA 258.320 5.554199 NA
## 1961 8.3080 484.713 6.183557 0.047829748 272.898 5.609098 0.05489897
## 2019 407.0810 1935.281 7.568008 0.008469163 1252.556 7.132942 0.01234763
## 2020 372.0508 1777.106 7.482742 -0.085266225 1136.488 7.035698 -0.09724346
## 2021 412.8182 1895.401 7.547186 0.064444009 1237.143 7.120560 0.08486188
## 2022 NA NA NA NA NA NA NA
## W W_l W_dl R R_l R_dl
## 1960 336.0559 5.817277 NA 126.0191 4.836434 NA
## 1961 359.4706 5.884632 0.067355045 125.2424 4.830251 -0.006182881
## 2019 1292.0254 7.163966 -0.003387739 643.2556 6.466542 0.032717995
## 2020 1232.7829 7.117029 -0.046936940 544.3233 6.299543 -0.166998760
## 2021 1264.4857 7.142421 0.025391328 630.9151 6.447171 0.147627960
## 2022 NA NA NA NA NA NA
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1960 97.9551 4.584509 NA 10.5730 2.358304 NA 8.6511
## 1961 109.3434 4.694493 0.10998418 12.1450 2.496918 0.13861398 9.9089
## 2019 541.0969 6.293598 0.03516384 565.8340 6.338301 0.05059462 477.6060
## 2020 469.3392 6.151326 -0.14227263 492.8958 6.200298 -0.13800296 403.1502
## 2021 535.0529 6.282366 0.13103987 569.7572 6.345210 0.14491251 479.3834
## 2022 NA NA NA NA NA NA NA
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1960 2.157686 NA 0.8182257 -0.2006171 NA 80.14938
## 1961 2.293433 0.13574686 0.8158831 -0.2034842 -0.002867118 89.21143
## 2019 6.168786 0.04291088 0.8440744 -0.1695146 -0.007683732 456.72605
## 2020 5.999309 -0.16947693 0.8179218 -0.2009886 -0.031473971 383.88274
## 2021 6.172501 0.17319150 0.8413819 -0.1727096 0.028278985 450.18383
## 2022 NA NA NA NA NA NA
## I_l I_dl r r_l r_dl P P_l
## 1960 4.383892 NA NA NA NA 9.97248 2.299829
## 1961 4.491009 0.10711706 2.176997 1.931312 NA 10.29876 2.332023
## 2019 6.124084 0.02748011 -1.316882 1.225150 -0.3249199 103.27170 4.637363
## 2020 5.950337 -0.17374660 NA NA NA 104.60308 4.650173
## 2021 6.109656 0.15931886 NA NA NA 105.59353 4.659597
## 2022 NA NA NA NA NA NA NA
## P_dl Pm Pm_l Pm_dl Px Px_l
## 1960 NA 19.93618 2.992536 NA 21.73690 3.079011
## 1961 0.032193938 19.92529 2.991990 -0.0005461315 21.76766 3.080425
## 2019 0.014555455 101.85031 4.623504 -0.0001265414 101.20590 4.617157
## 2020 0.012809603 96.32491 4.567727 -0.0557772068 96.96832 4.574384
## 2021 0.009424082 98.59341 4.591004 0.0232774789 99.26163 4.597759
## 2022 NA NA NA NA NA NA
## Px_dl X X_l X_dl M M_l
## 1960 NA 31.9181 3.463173 NA 29.0828 3.370147
## 1961 0.001413843 33.6141 3.514946 0.05177237 31.2517 3.442074
## 2019 0.009485351 750.3120 6.620489 0.01986149 757.8396 6.630472
## 2020 -0.042772692 660.5912 6.493135 -0.12735393 668.2931 6.504727
## 2021 0.023374756 718.6801 6.577416 0.08428114 738.9528 6.605234
## 2022 NA NA NA NA NA NA
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1960 NA 0.7155728 -0.3346720 NA 7.136035 1.965157
## 1961 0.07192684 0.7291183 -0.3159193 0.01875268 7.509012 2.016104
## 2019 0.02142013 0.5515908 -0.5949488 -0.01645580 56.963724 4.042415
## 2020 -0.12574490 0.5736123 -0.5558016 0.03914721 60.001614 4.094371
## 2021 0.10050720 0.5478188 -0.6018108 -0.04600923 57.846116 4.057786
## 2022 NA NA NA NA NA NA
## ulc_dl Tau Tau_l Tau_dl dPxdPm
## 1960 NA 46.18904 3.832743 NA NA
## 1961 0.050946622 47.83778 3.867816 0.0350731937 0.00195997426
## 2019 -0.001900349 101.91591 4.624148 -0.0009795153 0.00961189269
## 2020 0.051956812 98.95226 4.594638 -0.0295105153 0.01300451428
## 2021 -0.036585150 99.68950 4.602060 0.0074228418 0.00009727721
## 2022 NA NA NA NA NA
## dPdPm Trade
## 1960 NA 0.1298909
## 1961 0.03274007 0.1315680
## 2019 0.01468200 0.6438593
## 2020 0.06858681 0.6183282
## 2021 -0.01385340 0.6314968
## 2022 NA NA
FRA <- FRA_df[3:59,]
FRA[!complete.cases(FRA),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
FRA %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1962 0.7414479 -0.2991504 -0.000225869 0.2585521 -1.352658 0.0006480059
## 1963 0.7513413 -0.2858952 0.013255125 0.2486587 -1.391674 -0.0390159848
## 1964 0.7499167 -0.2877931 -0.001897844 0.2500833 -1.385961 0.0057126933
## 1965 0.7418016 -0.2986734 -0.010880343 0.2581984 -1.354027 0.0319343173
## 1966 0.7316737 -0.3124207 -0.013747253 0.2683263 -1.315551 0.0384757178
## 1967 0.7233947 -0.3238004 -0.011379664 0.2766053 -1.285164 0.0303878163
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl Tax
## 1962 526.760 6.266745 0.06619327 9730615761826 29.90630 0.05607570 9.383
## 1963 559.597 6.327217 0.06047184 10251407087275 29.95844 0.05213779 10.695
## 1964 596.822 6.391619 0.06440203 10925381701654 30.02211 0.06367371 11.999
## 1965 625.836 6.439088 0.04746944 11524850595846 30.07553 0.05341695 12.843
## 1966 658.704 6.490274 0.05118591 12218016919738 30.13393 0.05840603 13.941
## 1967 691.120 6.538313 0.04803920 12786124200589 30.17938 0.04544888 14.682
## Yf Yf_l Yf_dl C C_l C_dl W
## 1962 517.377 6.248772 0.06521485 292.669 5.679042 0.06994418 383.6081
## 1963 548.902 6.307920 0.05914810 313.248 5.746995 0.06795293 412.4128
## 1964 584.823 6.371309 0.06338932 330.307 5.800023 0.05302732 438.5686
## 1965 612.993 6.418354 0.04704428 343.014 5.837771 0.03774874 454.7192
## 1966 644.763 6.468883 0.05052929 358.935 5.883141 0.04537005 471.7561
## 1967 676.438 6.516841 0.04795799 376.247 5.930246 0.04710453 489.3316
## W_l W_dl R R_l R_dl It It_l
## 1962 5.949621 0.06498898 133.7689 4.896114 0.06586286 116.5876 4.758643
## 1963 6.022025 0.07240323 136.4892 4.916246 0.02013212 126.4799 4.840083
## 1964 6.083516 0.06149147 146.2544 4.985348 0.06910201 139.4561 4.937750
## 1965 6.119680 0.03616394 158.2738 5.064326 0.07897860 147.4164 4.993261
## 1966 6.156462 0.03678204 173.0069 5.153331 0.08900501 158.6481 5.066689
## 1967 6.193040 0.03657832 187.1064 5.231677 0.07834580 170.6539 5.139638
## It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl
## 1962 0.06414953 13.488 2.601800 0.10488284 10.8418 2.383409 0.08997569
## 1963 0.08144048 15.656 2.750854 0.14905383 12.5496 2.529689 0.14627976
## 1964 0.09766645 18.011 2.890983 0.14012845 14.2942 2.659854 0.13016507
## 1965 0.05551138 19.740 2.982647 0.09166435 15.5396 2.743392 0.08353774
## 1966 0.07342731 21.655 3.075236 0.09258934 17.2109 2.845543 0.10215130
## 1967 0.07294899 23.785 3.169055 0.09381876 18.8568 2.936874 0.09133069
## Ips Ips_l Ips_dl I I_l I_dl
## 1962 0.8038108 -0.2183914 -0.014907148 93.71437 4.540252 0.04924239
## 1963 0.8015841 -0.2211654 -0.002774070 101.38427 4.618918 0.07866641
## 1964 0.7936372 -0.2311288 -0.009963384 110.67755 4.706621 0.08770307
## 1965 0.7872138 -0.2392554 -0.008126608 116.04822 4.754006 0.04738477
## 1966 0.7947772 -0.2296935 0.009561959 126.08989 4.836995 0.08298927
## 1967 0.7928022 -0.2321815 -0.002488068 135.29479 4.907456 0.07046092
## r r_l r_dl P P_l P_dl
## 1962 0.5087944 1.654479 -0.276833200 10.80301 2.379825 0.04780200
## 1963 -0.1762756 1.514090 -0.140388753 11.39999 2.433613 0.05378734
## 1964 1.4001714 1.811845 0.297754693 11.85530 2.472775 0.03916212
## 1965 3.1049106 2.057512 0.245666708 12.21118 2.502352 0.02957709
## 1966 3.5039951 2.107246 0.049734132 12.57408 2.531637 0.02928567
## 1967 3.5603489 2.114073 0.006827702 12.95650 2.561598 0.02996034
## Pm Pm_l Pm_dl Px Px_l Px_dl X
## 1962 20.32485 3.011844 0.01985453 22.04604 3.093133 0.012707935 34.0061
## 1963 20.63138 3.026813 0.01496883 22.37445 3.107920 0.014786382 36.8590
## 1964 20.95310 3.042287 0.01547361 23.21272 3.144700 0.036780845 39.9135
## 1965 21.17362 3.052756 0.01046930 23.44744 3.154761 0.010060809 44.2266
## 1966 21.59787 3.072595 0.01983877 23.81141 3.170165 0.015403722 47.2841
## 1967 21.47701 3.066983 -0.00561180 23.76952 3.168404 -0.001760857 50.8172
## X_l X_dl M M_l M_dl rulc rulc_l
## 1962 3.526540 0.01159430 33.4861 3.511130 0.06905665 0.7282407 -0.3171236
## 1963 3.607100 0.08055990 37.8210 3.632865 0.12173408 0.7369817 -0.3051922
## 1964 3.686715 0.07961479 43.5974 3.774998 0.14213301 0.7348398 -0.3081028
## 1965 3.789326 0.10261181 44.7019 3.800016 0.02501849 0.7265788 -0.3194083
## 1966 3.856174 0.06684767 49.8151 3.908318 0.10830214 0.7161883 -0.3338121
## 1967 3.928235 0.07206079 54.6910 4.001699 0.09338101 0.7080270 -0.3452730
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1962 -0.001204284 7.867196 2.062702 0.04659771 50.41424 3.920274
## 1963 0.011931383 8.401585 2.128420 0.06571872 52.51239 3.961049
## 1964 -0.002910555 8.711744 2.164672 0.03625157 54.70632 4.001979
## 1965 -0.011305509 8.872384 2.182944 0.01827158 56.27531 4.030256
## 1966 -0.014403874 9.005408 2.197825 0.01488180 57.90148 4.058743
## 1967 -0.011460878 9.173554 2.216325 0.01849947 59.52902 4.086464
## Tau_dl dPxdPm dPdPm Trade
## 1962 0.05245795 -0.0071465898 0.02794747 0.1281270
## 1963 0.04077542 -0.0001824482 0.03881851 0.1334532
## 1964 0.04093011 0.0213072313 0.02368851 0.1399260
## 1965 0.02827668 -0.0004084935 0.01910779 0.1420955
## 1966 0.02848701 -0.0044350481 0.00944690 0.1474095
## 1967 0.02772092 0.0038509431 0.03557214 0.1526626
FRA %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1962 0.7414479 -0.2991504 -0.0002258690 0.2585521 -1.352658 0.0006480059
## 1963 0.7513413 -0.2858952 0.0132551250 0.2486587 -1.391674 -0.0390159848
## 1964 0.7499167 -0.2877931 -0.0018978435 0.2500833 -1.385961 0.0057126933
## 1965 0.7418016 -0.2986734 -0.0108803435 0.2581984 -1.354027 0.0319343173
## 1966 0.7316737 -0.3124207 -0.0137472528 0.2683263 -1.315551 0.0384757178
## 1967 0.7233947 -0.3238004 -0.0113796642 0.2766053 -1.285164 0.0303878163
## 1968 0.7330061 -0.3106013 0.0131990454 0.2669939 -1.320529 -0.0353657998
## 1969 0.7206479 -0.3276046 -0.0170032813 0.2793521 -1.275282 0.0452469820
## 1970 0.7177788 -0.3315939 -0.0039893014 0.2822212 -1.265064 0.0102183628
## 1971 0.7182776 -0.3308992 0.0006946831 0.2817224 -1.266833 -0.0017689785
## 1972 0.7135734 -0.3374700 -0.0065707984 0.2864266 -1.250273 0.0165600644
## 1973 0.7086247 -0.3444292 -0.0069591809 0.2913753 -1.233143 0.0171296359
## 1974 0.7137595 -0.3372092 0.0072199512 0.2862405 -1.250923 -0.0177795876
## 1975 0.7489640 -0.2890644 0.0481448300 0.2510360 -1.382159 -0.1312359463
## 1976 0.7546679 -0.2814775 0.0075868564 0.2453321 -1.405142 -0.0229835166
## 1977 0.7518564 -0.2852099 -0.0037323744 0.2481436 -1.393748 0.0113946167
## 1978 0.7525561 -0.2842797 0.0009302037 0.2474439 -1.396571 -0.0028237415
## 1979 0.7512557 -0.2860093 -0.0017295347 0.2487443 -1.391330 0.0052417607
## 1980 0.7546483 -0.2815034 0.0045058407 0.2453517 -1.405063 -0.0137330776
## 1981 0.7567579 -0.2787119 0.0027915121 0.2432421 -1.413698 -0.0086352559
## 1982 0.7543875 -0.2818491 -0.0031371844 0.2456125 -1.404000 0.0096977206
## 1983 0.7442003 -0.2954450 -0.0135959409 0.2557997 -1.363361 0.0406396256
## 1984 0.7336438 -0.3097316 -0.0142865788 0.2663562 -1.322921 0.0404397570
## 1985 0.7226674 -0.3248062 -0.0150746142 0.2773326 -1.282538 0.0403832081
## 1986 0.7006907 -0.3556888 -0.0308825524 0.2993093 -1.206278 0.0762600335
## 1987 0.6951168 -0.3636754 -0.0079866570 0.3048832 -1.187826 0.0184512238
## 1988 0.6791668 -0.3868885 -0.0232130341 0.3208332 -1.136834 0.0509923869
## 1989 0.6661305 -0.4062697 -0.0193812623 0.3338695 -1.097005 0.0398290570
## 1990 0.6692149 -0.4016500 0.0046197477 0.3307851 -1.106286 -0.0092815012
## 1991 0.6699670 -0.4005269 0.0011230828 0.3300330 -1.108562 -0.0022759858
## 1992 0.6655281 -0.4071745 -0.0066475941 0.3344719 -1.095202 0.0133602126
## 1993 0.6672838 -0.4045399 0.0026345805 0.3327162 -1.100465 -0.0052629920
## 1994 0.6614188 -0.4133681 -0.0088281884 0.3385812 -1.082991 0.0174740095
## 1995 0.6619887 -0.4125069 0.0008612405 0.3380113 -1.084676 -0.0016845770
## 1996 0.6630980 -0.4108325 0.0016743784 0.3369020 -1.087963 -0.0032873821
## 1997 0.6573405 -0.4195532 -0.0087206994 0.3426595 -1.071018 0.0169452641
## 1998 0.6490940 -0.4321777 -0.0126244912 0.3509060 -1.047237 0.0237809256
## 1999 0.6525312 -0.4268964 0.0052813006 0.3474688 -1.057080 -0.0098433014
## 2000 0.6463768 -0.4363727 -0.0094763097 0.3536232 -1.039523 0.0175570075
## 2001 0.6440309 -0.4400086 -0.0036359154 0.3559691 -1.032911 0.0066120009
## 2002 0.6485293 -0.4330481 0.0069604469 0.3514707 -1.045629 -0.0127175212
## 2003 0.6496879 -0.4312632 0.0017849515 0.3503121 -1.048931 -0.0033019561
## 2004 0.6464381 -0.4362779 -0.0050146589 0.3535619 -1.039697 0.0092341271
## 2005 0.6490272 -0.4322807 0.0039971392 0.3509728 -1.047046 -0.0073497741
## 2006 0.6461292 -0.4367558 -0.0044751120 0.3538708 -1.038823 0.0082230897
## 2007 0.6382359 -0.4490473 -0.0122914416 0.3617641 -1.016763 0.0220603277
## 2008 0.6392784 -0.4474152 0.0016320697 0.3607216 -1.019649 -0.0028858614
## 2009 0.6597666 -0.4158692 0.0315460416 0.3402334 -1.078123 -0.0584745185
## 2010 0.6573771 -0.4194974 -0.0036282534 0.3426229 -1.071125 0.0069984646
## 2011 0.6610349 -0.4139486 0.0055488076 0.3389651 -1.081858 -0.0107332682
## 2012 0.6691388 -0.4017638 0.0121847851 0.3308612 -1.106056 -0.0241980207
## 2013 0.6753356 -0.3925456 0.0092182509 0.3246644 -1.124963 -0.0189069383
## 2014 0.6740499 -0.3944511 -0.0019055020 0.3259501 -1.121011 0.0039520475
## 2015 0.6662636 -0.4060699 -0.0116188285 0.3337364 -1.097404 0.0236073077
## 2016 0.6692357 -0.4016190 0.0044508672 0.3307643 -1.106349 -0.0089453016
## 2017 0.6728575 -0.3962217 0.0053973061 0.3271425 -1.117359 -0.0110102869
## 2018 0.6755794 -0.3921846 0.0040371406 0.3244206 -1.125714 -0.0083550674
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1962 526.760 6.266745 0.066193267 9730615761826 29.90630 0.0560757035
## 1963 559.597 6.327217 0.060471845 10251407087275 29.95844 0.0521377939
## 1964 596.822 6.391619 0.064402030 10925381701654 30.02211 0.0636737058
## 1965 625.836 6.439088 0.047469444 11524850595846 30.07553 0.0534169466
## 1966 658.704 6.490274 0.051185912 12218016919738 30.13393 0.0584060337
## 1967 691.120 6.538313 0.048039202 12786124200589 30.17938 0.0454488770
## 1968 722.160 6.582247 0.043933251 13584439386664 30.23995 0.0605644389
## 1969 773.502 6.650928 0.068681535 14359666195280 30.29544 0.0554983430
## 1970 820.753 6.710222 0.059293956 14729173696057 30.32085 0.0254068143
## 1971 864.390 6.762024 0.051801844 15309141395163 30.35947 0.0386199946
## 1972 903.386 6.806150 0.044125870 16154040250188 30.41319 0.0537200619
## 1973 960.702 6.867664 0.061514341 17169194462206 30.47414 0.0609465697
## 1974 1002.021 6.909774 0.042109972 17351693203176 30.48471 0.0105733342
## 1975 992.403 6.900129 -0.009644965 17331016172706 30.48352 -0.0011923540
## 1976 1035.639 6.942774 0.042644632 18202265079837 30.53257 0.0490483026
## 1977 1071.517 6.976831 0.034056774 18914142423797 30.57093 0.0383638774
## 1978 1114.148 7.015845 0.039014586 19708977458483 30.61210 0.0411643219
## 1979 1153.700 7.050729 0.034884182 20550686879973 30.65392 0.0418201247
## 1980 1171.914 7.066394 0.015664141 20853093000096 30.66852 0.0146079174
## 1981 1184.442 7.077027 0.010633468 21279266359765 30.68875 0.0202309057
## 1982 1214.117 7.101772 0.024745286 21258483037737 30.68778 -0.0009771708
## 1983 1229.183 7.114105 0.012332657 21839272808163 30.71473 0.0269538365
## 1984 1247.789 7.129128 0.015023464 22850435735944 30.75999 0.0452603326
## 1985 1268.038 7.145226 0.016097639 23677423119889 30.79554 0.0355517966
## 1986 1297.676 7.168330 0.023104148 24443472912055 30.82738 0.0318412406
## 1987 1330.921 7.193626 0.025296211 25282646274809 30.86114 0.0337550187
## 1988 1394.048 7.239967 0.046340561 26498888346588 30.90812 0.0469845405
## 1989 1454.604 7.282489 0.042521954 27524142851363 30.94608 0.0379607585
## 1990 1497.135 7.311309 0.028819583 28385913549311 30.97691 0.0308294789
## 1991 1512.828 7.321736 0.010427465 28809482279997 30.99173 0.0148115585
## 1992 1537.023 7.337603 0.015866682 29416808509617 31.01259 0.0208616502
## 1993 1527.361 7.331297 -0.006306019 29790222185250 31.02520 0.0126139961
## 1994 1563.381 7.354606 0.023309374 30746279081678 31.05679 0.0315887564
## 1995 1596.317 7.375454 0.020848317 31644914428465 31.08560 0.0288084727
## 1996 1618.872 7.389485 0.014030510 32584849097515 31.11487 0.0292699746
## 1997 1656.694 7.412579 0.023094440 33671723470590 31.14768 0.0328109903
## 1998 1716.147 7.447837 0.035257611 34572329239441 31.17407 0.0263952102
## 1999 1774.863 7.481479 0.033641575 35686532633897 31.20579 0.0317197513
## 2000 1844.503 7.519965 0.038486628 37111521488948 31.24495 0.0391540932
## 2001 1881.093 7.539608 0.019643126 37640836946051 31.25911 0.0141620764
## 2002 1902.453 7.550899 0.011291115 38197590198465 31.27379 0.0146828798
## 2003 1918.113 7.559097 0.008197784 39023669630849 31.29519 0.0213959458
## 2004 1972.391 7.587002 0.027904622 40319561413907 31.32786 0.0326683704
## 2005 2005.196 7.603497 0.016495299 41462526321317 31.35581 0.0279532930
## 2006 2054.310 7.627695 0.024198214 42747835076344 31.38634 0.0305285135
## 2007 2104.122 7.651654 0.023958253 43928788621069 31.41359 0.0272513298
## 2008 2109.486 7.654200 0.002546038 44089819176198 31.41725 0.0036590157
## 2009 2048.874 7.625046 -0.029153942 42633012932012 31.38365 -0.0335999935
## 2010 2088.815 7.644352 0.019306546 43935930326684 31.41375 0.0301035392
## 2011 2134.617 7.666043 0.021690320 44790534435627 31.43302 0.0192643884
## 2012 2141.301 7.669169 0.003126349 45424410535476 31.44707 0.0140528054
## 2013 2153.642 7.674916 0.005746774 46117762905743 31.46222 0.0151485507
## 2014 2174.235 7.684432 0.009516516 47060811410852 31.48246 0.0202424369
## 2015 2198.432 7.695500 0.011067500 48136932796996 31.50507 0.0226090909
## 2016 2222.515 7.706395 0.010895059 48943049356073 31.52168 0.0166076480
## 2017 2272.748 7.728745 0.022350234 50061488298470 31.54427 0.0225946517
## 2018 2311.951 7.745847 0.017102085 51180098215595 31.56637 0.0220987339
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1962 9.383 517.377 6.248772 0.065214853 292.669 5.679042 0.069944179
## 1963 10.695 548.902 6.307920 0.059148103 313.248 5.746995 0.067952931
## 1964 11.999 584.823 6.371309 0.063389318 330.307 5.800023 0.053027316
## 1965 12.843 612.993 6.418354 0.047044279 343.014 5.837771 0.037748738
## 1966 13.941 644.763 6.468883 0.050529291 358.935 5.883141 0.045370051
## 1967 14.682 676.438 6.516841 0.047957988 376.247 5.930246 0.047104529
## 1968 15.530 706.630 6.560507 0.043666396 392.155 5.971657 0.041411327
## 1969 17.709 755.793 6.627768 0.067260338 417.326 6.033868 0.062210521
## 1970 18.552 802.201 6.687359 0.059591671 436.441 6.078653 0.044785509
## 1971 20.404 843.986 6.738136 0.050776707 460.827 6.133023 0.054369501
## 1972 22.998 880.388 6.780363 0.042226813 484.129 6.182351 0.049328699
## 1973 26.468 934.234 6.839727 0.059364223 511.390 6.237133 0.054781108
## 1974 28.687 973.334 6.880727 0.041000349 525.501 6.264352 0.027219585
## 1975 34.150 958.253 6.865112 -0.015615457 535.763 6.283692 0.019339806
## 1976 41.253 994.386 6.902125 0.037013626 564.973 6.336778 0.053086043
## 1977 44.233 1027.284 6.934674 0.032548244 579.420 6.362028 0.025249661
## 1978 52.002 1062.146 6.968047 0.033372964 601.922 6.400128 0.038100266
## 1979 61.689 1092.011 6.995776 0.027729561 622.331 6.433472 0.033344237
## 1980 68.643 1103.271 7.006035 0.010258453 629.743 6.445312 0.011839694
## 1981 77.980 1106.462 7.008923 0.002888134 642.187 6.464880 0.019567739
## 1982 91.225 1122.892 7.023663 0.014739963 663.120 6.496956 0.032076431
## 1983 101.202 1127.981 7.028185 0.004521809 668.618 6.505213 0.008256926
## 1984 112.301 1135.488 7.034818 0.006633206 672.960 6.511686 0.006472997
## 1985 120.742 1147.296 7.045163 0.010345355 685.513 6.530167 0.018481571
## 1986 128.049 1169.627 7.064440 0.019277025 710.596 6.566104 0.035936591
## 1987 136.461 1194.460 7.085449 0.021009306 733.881 6.598347 0.032242836
## 1988 145.332 1248.716 7.129871 0.044421623 758.255 6.631020 0.032672851
## 1989 151.614 1302.990 7.172417 0.042545800 782.383 6.662344 0.031324650
## 1990 159.104 1338.031 7.198954 0.026537507 802.724 6.688011 0.025666553
## 1991 164.001 1348.827 7.206991 0.008036196 807.968 6.694522 0.006511510
## 1992 166.456 1370.567 7.222980 0.015989197 817.054 6.705705 0.011182734
## 1993 172.158 1355.203 7.211707 -0.011273264 816.579 6.705124 -0.000581526
## 1994 183.860 1379.521 7.229492 0.017785079 830.258 6.721736 0.016612834
## 1995 192.663 1403.654 7.246834 0.017342499 844.556 6.738811 0.017074550
## 1996 204.257 1414.615 7.254613 0.007778573 861.111 6.758223 0.019412371
## 1997 210.880 1445.814 7.276428 0.021815075 865.745 6.763590 0.005366992
## 1998 218.646 1497.501 7.311553 0.035125234 900.251 6.802674 0.039083205
## 1999 225.749 1549.114 7.345438 0.033885436 931.435 6.836726 0.034052794
## 2000 229.386 1615.117 7.387163 0.041724245 965.581 6.872730 0.036003585
## 2001 231.762 1649.331 7.408125 0.020962351 989.900 6.897604 0.024873935
## 2002 239.602 1662.851 7.416289 0.008163848 1010.513 6.918213 0.020609474
## 2003 244.915 1673.198 7.422492 0.006203166 1025.524 6.932959 0.014745579
## 2004 259.112 1713.279 7.446164 0.023672313 1045.532 6.952281 0.019322145
## 2005 271.315 1733.881 7.458118 0.011953170 1070.811 6.976172 0.023890459
## 2006 281.581 1772.729 7.480275 0.022157919 1093.762 6.997378 0.021206825
## 2007 292.005 1812.117 7.502251 0.021975608 1122.611 7.023413 0.026034092
## 2008 295.410 1814.076 7.503332 0.001080472 1128.473 7.028621 0.005208169
## 2009 290.999 1757.875 7.471861 -0.031470554 1131.912 7.031664 0.003042847
## 2010 295.417 1793.398 7.491867 0.020006451 1153.233 7.050325 0.018661064
## 2011 312.820 1821.797 7.507579 0.015711232 1160.356 7.056482 0.006157552
## 2012 321.719 1819.582 7.506362 -0.001216572 1155.446 7.052242 -0.004240438
## 2013 330.843 1822.799 7.508129 0.001766427 1161.333 7.057324 0.005082067
## 2014 339.117 1835.118 7.514864 0.006735553 1170.853 7.065488 0.008164060
## 2015 350.594 1847.838 7.521772 0.006907522 1188.170 7.080170 0.014681765
## 2016 359.654 1862.861 7.529869 0.008097171 1209.318 7.097812 0.017642256
## 2017 376.423 1896.325 7.547673 0.017804325 1226.164 7.111646 0.013834033
## 2018 392.991 1918.960 7.559539 0.011865570 1237.185 7.120594 0.008948041
## W W_l W_dl R R_l R_dl
## 1962 383.6081 5.949621 0.06498898354 133.7689 4.896114 0.0658628584
## 1963 412.4128 6.022025 0.07240322844 136.4892 4.916246 0.0201321187
## 1964 438.5686 6.083516 0.06149147464 146.2544 4.985348 0.0691020114
## 1965 454.7192 6.119680 0.03616393578 158.2738 5.064326 0.0789785965
## 1966 471.7561 6.156462 0.03678203803 173.0069 5.153331 0.0890050086
## 1967 489.3316 6.193040 0.03657832365 187.1064 5.231677 0.0783458042
## 1968 517.9641 6.249906 0.05686544099 188.6659 5.239978 0.0083005958
## 1969 544.6607 6.300163 0.05025705702 211.1323 5.352485 0.1125073203
## 1970 575.8028 6.355765 0.05560236931 226.3982 5.422295 0.0698100335
## 1971 606.2162 6.407237 0.05147138996 237.7698 5.471303 0.0490077283
## 1972 628.2214 6.442893 0.03565601423 252.1666 5.530090 0.0587868770
## 1973 662.0213 6.495298 0.05240504187 272.2127 5.606584 0.0764938587
## 1974 694.7264 6.543518 0.04822030055 278.6076 5.629804 0.0232207617
## 1975 717.6970 6.576047 0.03252937341 240.5560 5.482953 -0.1468514029
## 1976 750.4312 6.620648 0.04460048268 243.9548 5.496983 0.0140301097
## 1977 772.3701 6.649464 0.02881586969 254.9139 5.540926 0.0439428607
## 1978 799.3245 6.683767 0.03430316723 262.8215 5.571475 0.0305492220
## 1979 820.3794 6.709767 0.02600002600 271.6316 5.604447 0.0329713214
## 1980 832.5816 6.724531 0.01476429378 270.6894 5.600972 -0.0034746244
## 1981 837.3239 6.730211 0.00567964581 269.1381 5.595225 -0.0057471222
## 1982 847.0957 6.741814 0.01160277832 275.7963 5.619662 0.0244376834
## 1983 839.4438 6.732740 -0.00907413211 288.5372 5.664824 0.0451614344
## 1984 833.0438 6.725086 -0.00765337332 302.4442 5.711897 0.0470729625
## 1985 829.1134 6.720357 -0.00472925931 318.1826 5.762625 0.0507285630
## 1986 819.5467 6.708751 -0.01160552721 350.0803 5.858163 0.0955370587
## 1987 830.2892 6.721774 0.01302264882 364.1708 5.897623 0.0394605297
## 1988 848.0865 6.742983 0.02120858890 400.6295 5.993037 0.0954140099
## 1989 867.9613 6.766147 0.02316453781 435.0287 6.075412 0.0823748572
## 1990 895.4303 6.797304 0.03115725457 442.6007 6.092668 0.0172560057
## 1991 903.6695 6.806464 0.00915927832 445.1575 6.098428 0.0057602097
## 1992 912.1508 6.815805 0.00934160289 458.4162 6.127778 0.0293494096
## 1993 904.3049 6.807167 -0.00863868369 450.8981 6.111241 -0.0165362562
## 1994 912.4411 6.816124 0.00895689048 467.0799 6.146500 0.0352590884
## 1995 929.2030 6.834327 0.01820373952 474.4510 6.162158 0.0156579220
## 1996 938.0284 6.843780 0.00945295120 476.5866 6.166649 0.0044911907
## 1997 950.3921 6.856875 0.01309437612 495.4219 6.205410 0.0387603396
## 1998 972.0190 6.879375 0.02250074279 525.4820 6.264316 0.0589061596
## 1999 1010.8452 6.918542 0.03916673637 538.2688 6.288358 0.0240421344
## 2000 1043.9741 6.950790 0.03224793559 571.1429 6.347639 0.0592812528
## 2001 1062.2201 6.968116 0.01732643586 587.1109 6.375214 0.0275743522
## 2002 1078.4075 6.983241 0.01512429484 584.4435 6.370660 -0.0045536733
## 2003 1087.0565 6.991229 0.00798811765 586.1415 6.373561 0.0029012101
## 2004 1107.5288 7.009887 0.01865765411 605.7502 6.406468 0.0329064401
## 2005 1125.3359 7.025837 0.01595030950 608.5451 6.411071 0.0046033962
## 2006 1145.4119 7.043520 0.01768280658 627.3171 6.441452 0.0303810083
## 2007 1156.5582 7.053204 0.00968416634 655.5588 6.485488 0.0440359357
## 2008 1159.6996 7.055916 0.00271254180 654.3764 6.483683 -0.0018053893
## 2009 1159.7872 7.055992 0.00007548758 598.0878 6.393738 -0.0899450724
## 2010 1178.9388 7.072370 0.01637819768 614.4592 6.420742 0.0270049157
## 2011 1204.2714 7.093630 0.02126003983 617.5256 6.425720 0.0049779641
## 2012 1217.5529 7.104598 0.01096821284 602.0291 6.400306 -0.0254145929
## 2013 1231.0010 7.115583 0.01098467830 591.7980 6.383165 -0.0171405108
## 2014 1236.9612 7.120413 0.00483005083 598.1568 6.393853 0.0106876003
## 2015 1231.1472 7.115702 -0.00471130609 616.6908 6.424368 0.0305148301
## 2016 1246.6930 7.128250 0.01254803815 616.1680 6.423520 -0.0008481307
## 2017 1275.9565 7.151451 0.02320163079 620.3685 6.430314 0.0067940378
## 2018 1296.4098 7.167354 0.01590271062 622.5502 6.433824 0.0035105026
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl
## 1962 116.5876 4.758643 0.0641495331 13.488 2.601800 0.104882839
## 1963 126.4799 4.840083 0.0814404805 15.656 2.750854 0.149053829
## 1964 139.4561 4.937750 0.0976664541 18.011 2.890983 0.140128452
## 1965 147.4164 4.993261 0.0555113790 19.740 2.982647 0.091664352
## 1966 158.6481 5.066689 0.0734273065 21.655 3.075236 0.092589341
## 1967 170.6539 5.139638 0.0729489870 23.785 3.169055 0.093818755
## 1968 180.2649 5.194427 0.0547899068 25.660 3.244933 0.075878229
## 1969 194.2824 5.269313 0.0748853350 29.210 3.374511 0.129577757
## 1970 204.5906 5.321011 0.0516981385 32.273 3.474231 0.099719851
## 1971 218.6660 5.387545 0.0665345423 36.297 3.591735 0.117504126
## 1972 231.7599 5.445702 0.0581564705 40.699 3.706204 0.114468429
## 1973 247.8331 5.512756 0.0670536138 47.128 3.852867 0.146663782
## 1974 253.8604 5.536785 0.0240289739 56.219 4.029255 0.176387474
## 1975 241.3878 5.486405 -0.0503797408 59.983 4.094061 0.064806411
## 1976 246.7529 5.508387 0.0219826622 68.142 4.221594 0.127532574
## 1977 245.1091 5.501703 -0.0066840135 73.946 4.303335 0.081741334
## 1978 251.9713 5.529315 0.0276117746 82.475 4.412495 0.109160120
## 1979 259.4877 5.558709 0.0293941105 93.925 4.542497 0.130001374
## 1980 267.4470 5.588921 0.0302121132 110.359 4.703739 0.161242097
## 1981 264.8787 5.579272 -0.0096494305 121.981 4.803865 0.100126607
## 1982 262.5188 5.570323 -0.0089492868 136.214 4.914227 0.110361884
## 1983 254.5695 5.539574 -0.0307488153 142.727 4.960934 0.046706536
## 1984 252.4391 5.531170 -0.0084038517 150.558 5.014348 0.053414677
## 1985 258.2639 5.553982 0.0228118989 160.486 5.078207 0.063858319
## 1986 269.0698 5.594971 0.0409888951 172.908 5.152760 0.074552950
## 1987 282.9457 5.645255 0.0502841809 187.078 5.231526 0.078765981
## 1988 307.5267 5.728562 0.0833069063 209.277 5.343659 0.112133091
## 1989 330.1768 5.799628 0.0710663558 230.982 5.442340 0.098681052
## 1990 345.3942 5.844686 0.0450581049 246.347 5.506741 0.064401326
## 1991 343.5490 5.839330 -0.0053566228 253.040 5.533548 0.026806468
## 1992 338.4403 5.824348 -0.0149820402 249.731 5.520384 -0.013163240
## 1993 320.0362 5.768434 -0.0559135961 236.491 5.465910 -0.054474186
## 1994 325.0142 5.783869 0.0154347593 240.972 5.484681 0.018770592
## 1995 329.3350 5.797075 0.0132065961 244.558 5.499452 0.014771755
## 1996 331.8105 5.804564 0.0074885530 248.701 5.516251 0.016798872
## 1997 334.4277 5.812421 0.0078566899 252.342 5.530785 0.014533939
## 1998 355.8639 5.874548 0.0621276417 269.042 5.594868 0.064082191
## 1999 383.7673 5.950036 0.0754880249 291.538 5.675170 0.080302856
## 2000 409.2769 6.014392 0.0643555648 318.108 5.762391 0.087220590
## 2001 418.5867 6.036884 0.0224920928 330.919 5.801874 0.039482685
## 2002 414.7467 6.027668 -0.0092160645 332.704 5.807253 0.005379573
## 2003 422.7060 6.046677 0.0190089295 343.008 5.837754 0.030500565
## 2004 437.4167 6.080886 0.0342093857 364.057 5.897310 0.059556678
## 2005 450.0997 6.109469 0.0285828261 384.922 5.953041 0.055730268
## 2006 466.5080 6.145275 0.0358060553 414.923 6.028093 0.075052244
## 2007 492.3268 6.199143 0.0538675545 450.059 6.109379 0.081285724
## 2008 496.5269 6.207638 0.0084949376 470.123 6.152994 0.043615677
## 2009 451.4931 6.112560 -0.0950775709 427.320 6.057533 -0.095461216
## 2010 460.8896 6.133159 0.0205984446 441.067 6.089197 0.031663644
## 2011 470.4118 6.153608 0.0204499464 461.566 6.134625 0.045428264
## 2012 471.5000 6.155919 0.0023106208 469.106 6.150829 0.016203700
## 2013 467.7019 6.147831 -0.0080879749 466.668 6.145618 -0.005210672
## 2014 467.8555 6.148159 0.0003283604 469.073 6.150758 0.005140323
## 2015 472.6470 6.158349 0.0101893221 472.647 6.158349 0.007590403
## 2016 485.2193 6.184601 0.0262521440 487.382 6.189048 0.030699400
## 2017 508.2284 6.230931 0.0463299991 515.926 6.245963 0.056915134
## 2018 522.4005 6.258435 0.0275035822 537.918 6.287706 0.041742788
## Ipr Ipr_l Ipr_dl Ips Ips_l Ips_dl
## 1962 10.8418 2.383409 0.089975691 0.8038108 -0.2183914 -0.01490714811
## 1963 12.5496 2.529689 0.146279759 0.8015841 -0.2211654 -0.00277407016
## 1964 14.2942 2.659854 0.130165068 0.7936372 -0.2311288 -0.00996338424
## 1965 15.5396 2.743392 0.083537744 0.7872138 -0.2392554 -0.00812660765
## 1966 17.2109 2.845543 0.102151299 0.7947772 -0.2296935 0.00956195879
## 1967 18.8568 2.936874 0.091330688 0.7928022 -0.2321815 -0.00248806770
## 1968 20.5037 3.020605 0.083731766 0.7990530 -0.2243280 0.00785353681
## 1969 23.6154 3.161899 0.141293684 0.8084697 -0.2126121 0.01171592672
## 1970 26.0892 3.261521 0.099622394 0.8083909 -0.2127095 -0.00009745695
## 1971 29.6476 3.389381 0.127859742 0.8168058 -0.2023539 0.01035561635
## 1972 33.5881 3.514172 0.124790660 0.8252807 -0.1920317 0.01032223086
## 1973 39.2022 3.668733 0.154561030 0.8318240 -0.1841344 0.00789724800
## 1974 46.8944 3.847898 0.179165398 0.8341379 -0.1813565 0.00277792383
## 1975 48.7219 3.886129 0.038230356 0.8122618 -0.2079326 -0.02657605503
## 1976 55.3398 4.013492 0.127363739 0.8121247 -0.2081014 -0.00016883506
## 1977 60.9947 4.110787 0.097294615 0.8248546 -0.1925481 0.01555328087
## 1978 68.5810 4.228016 0.117228553 0.8315368 -0.1844797 0.00806843326
## 1979 77.9220 4.355708 0.127692798 0.8296194 -0.1867883 -0.00230857643
## 1980 91.7010 4.518533 0.162824958 0.8309336 -0.1852054 0.00158286138
## 1981 100.1110 4.606280 0.087746286 0.8207098 -0.1975857 -0.01238032078
## 1982 110.2560 4.702805 0.096525364 0.8094322 -0.2114222 -0.01383651933
## 1983 115.3640 4.748092 0.045287412 0.8082843 -0.2128414 -0.00141912388
## 1984 121.0590 4.796278 0.048185683 0.8040689 -0.2180704 -0.00522899423
## 1985 127.7510 4.850083 0.053805027 0.7960258 -0.2281237 -0.01005329256
## 1986 138.0460 4.927587 0.077503906 0.7983783 -0.2251727 0.00295095632
## 1987 149.6420 5.008246 0.080658812 0.7998910 -0.2232799 0.00189283081
## 1988 166.7730 5.116634 0.108387832 0.7969008 -0.2270251 -0.00374525960
## 1989 185.3390 5.222187 0.105552974 0.8023959 -0.2201532 0.00687192223
## 1990 197.7310 5.286908 0.064720940 0.8026524 -0.2198336 0.00031961475
## 1991 201.0500 5.303554 0.016646112 0.7945384 -0.2299939 -0.01016035566
## 1992 196.3180 5.279736 -0.023817840 0.7861179 -0.2406485 -0.01065459944
## 1993 184.2510 5.216299 -0.063436835 0.7791036 -0.2496112 -0.00896264868
## 1994 188.2060 5.237537 0.021238149 0.7810285 -0.2471436 0.00246755723
## 1995 193.3830 5.264673 0.027135571 0.7907449 -0.2347798 0.01236381538
## 1996 196.7630 5.282000 0.017327280 0.7911629 -0.2342514 0.00052840827
## 1997 202.6830 5.311643 0.029643223 0.8032076 -0.2191421 0.01510928477
## 1998 218.8270 5.388281 0.076638281 0.8133563 -0.2065860 0.01255609018
## 1999 238.2930 5.473501 0.085219546 0.8173651 -0.2016693 0.00491668938
## 2000 259.8790 5.560216 0.086715129 0.8169521 -0.2021748 -0.00050546112
## 2001 271.6680 5.604581 0.044364594 0.8209501 -0.1972929 0.00488190979
## 2002 272.8330 5.608860 0.004279154 0.8200472 -0.1983933 -0.00110041950
## 2003 279.3600 5.632501 0.023641386 0.8144416 -0.2052525 -0.00685917846
## 2004 296.4470 5.691868 0.059367178 0.8142873 -0.2054420 -0.00018950057
## 2005 314.0380 5.749514 0.057645547 0.8158484 -0.2035267 0.00191527977
## 2006 342.2690 5.835597 0.086082980 0.8248976 -0.1924960 0.01103073542
## 2007 373.4420 5.922763 0.087165727 0.8297623 -0.1866160 0.00588000266
## 2008 391.4820 5.969940 0.047176833 0.8327225 -0.1830548 0.00356115535
## 2009 344.8810 5.843199 -0.126740107 0.8070790 -0.2143337 -0.03127889185
## 2010 358.1310 5.880899 0.037699411 0.8119651 -0.2082980 0.00603576699
## 2011 379.9750 5.940105 0.059206620 0.8232300 -0.1945196 0.01377835554
## 2012 384.5690 5.952123 0.012017766 0.8197913 -0.1987055 -0.00418593447
## 2013 382.3730 5.946397 -0.005726655 0.8193684 -0.1992215 -0.00051598306
## 2014 389.4350 5.964697 0.018300399 0.8302226 -0.1860614 0.01316007620
## 2015 397.7680 5.985869 0.021171950 0.8415752 -0.1724799 0.01358154698
## 2016 412.3070 6.021768 0.035899297 0.8459627 -0.1672800 0.00519989655
## 2017 439.4850 6.085604 0.063835369 0.8518373 -0.1603598 0.00692023486
## 2018 457.5450 6.125875 0.040271654 0.8505850 -0.1618309 -0.00147113416
## I I_l I_dl r r_l r_dl
## 1962 93.71437 4.540252 0.049242385 0.5087944 1.654479 -0.276833200
## 1963 101.38427 4.618918 0.078666410 -0.1762756 1.514090 -0.140388753
## 1964 110.67755 4.706621 0.087703070 1.4001714 1.811845 0.297754693
## 1965 116.04822 4.754006 0.047384771 3.1049106 2.057512 0.245666708
## 1966 126.08989 4.836995 0.082989265 3.5039951 2.107246 0.049734132
## 1967 135.29479 4.907456 0.070460919 3.5603489 2.114073 0.006827702
## 1968 144.04121 4.970099 0.062643444 2.4432411 1.969180 -0.144893194
## 1969 157.07143 5.056701 0.086601262 0.4413724 1.641505 -0.327675615
## 1970 165.38918 5.108301 0.051600682 2.4806901 1.974393 0.332888806
## 1971 178.60766 5.185192 0.076890159 1.7465573 1.866885 -0.107508422
## 1972 191.26698 5.253670 0.068478701 0.5103004 1.654767 -0.212118163
## 1973 206.15351 5.328621 0.074950862 0.3990556 1.633275 -0.021492268
## 1974 211.75459 5.355428 0.026806898 -1.2361569 1.248584 -0.384691007
## 1975 196.07009 5.278472 -0.076955796 -3.7215595 0.000000 -1.248583561
## 1976 200.39412 5.300286 0.021813827 -1.2814609 1.235500 1.235500134
## 1977 202.17937 5.309155 0.008869267 1.0065186 1.745380 0.509879931
## 1978 209.52342 5.344836 0.035680208 0.2021506 1.594062 -0.151317733
## 1979 215.27602 5.371921 0.027085534 -0.3810085 1.468001 -0.126061033
## 1980 222.23070 5.403716 0.031794975 1.2920597 1.794027 0.326025465
## 1981 217.38854 5.381686 -0.022029751 3.7227635 2.133494 0.339467618
## 1982 212.49117 5.358900 -0.022785806 3.1716331 2.066001 -0.067493689
## 1983 205.76454 5.326733 -0.032167939 3.5929260 2.117999 0.051998543
## 1984 202.97842 5.313100 -0.013632846 5.0645333 2.280962 0.162963041
## 1985 205.58473 5.325858 0.012758606 5.3732002 2.312016 0.031054172
## 1986 214.81950 5.369798 0.043939851 3.3171410 2.084267 -0.227749007
## 1987 226.32571 5.421975 0.052177012 6.8752911 2.450734 0.366466120
## 1988 245.06826 5.501537 0.079561647 5.7044332 2.344302 -0.106431575
## 1989 264.93250 5.579475 0.077938278 5.3296603 2.307694 -0.036607986
## 1990 277.23147 5.624853 0.045377720 7.0943295 2.469445 0.161751151
## 1991 272.96288 5.609336 -0.015516978 6.3413944 2.403602 -0.065843111
## 1992 266.05397 5.583699 -0.025636640 6.4951802 2.417407 0.013805239
## 1993 249.34137 5.518823 -0.064876245 5.0741184 2.281941 -0.135466021
## 1994 253.84535 5.536725 0.017902317 6.2373794 2.394155 0.112214203
## 1995 260.41998 5.562296 0.025570411 6.3439254 2.403831 0.009675334
## 1996 262.51615 5.570313 0.008016961 4.8855719 2.262506 -0.141325119
## 1997 268.61485 5.593279 0.022965975 4.6608666 2.238838 -0.023667301
## 1998 289.44414 5.667962 0.074683732 3.6550053 2.125438 -0.113400474
## 1999 313.67802 5.748367 0.080404714 4.3972268 2.210337 0.084898812
## 2000 334.35962 5.812217 0.063850104 3.7780259 2.140017 -0.070319328
## 2001 343.63881 5.839591 0.027374003 2.8739476 2.027557 -0.112460484
## 2002 340.11189 5.829275 -0.010316484 2.7360094 2.009229 -0.018327425
## 2003 344.26937 5.841424 0.012149751 2.2291827 1.938848 -0.070381031
## 2004 356.18287 5.875444 0.034019885 2.4377678 1.968416 0.029567579
## 2005 367.21312 5.905942 0.030498106 1.4456655 1.819249 -0.149167044
## 2006 384.82134 5.952779 0.046836791 1.6099727 1.845542 0.026293281
## 2007 408.51423 6.012527 0.059747557 1.6999022 1.859646 0.014103510
## 2008 413.46912 6.024583 0.012056093 1.8198493 1.878153 0.018506784
## 2009 364.39060 5.898226 -0.126356463 3.5809862 2.116562 0.238409624
## 2010 374.22626 5.924861 0.026634212 2.0286028 1.909567 -0.206995630
## 2011 387.25713 5.959089 0.034228302 2.3497651 1.956048 0.046481268
## 2012 386.53158 5.957214 -0.001875314 1.3623470 1.805647 -0.150400811
## 2013 383.22014 5.948610 -0.008603958 1.4109211 1.813599 0.007952328
## 2014 388.42420 5.962098 0.013488437 1.0867852 1.759296 -0.054303709
## 2015 397.76800 5.985869 0.023770869 -0.2948920 1.487647 -0.271648581
## 2016 410.47744 6.017321 0.031452041 -0.0522861 1.541003 0.053356427
## 2017 432.92790 6.070571 0.053250234 0.3515071 1.623945 0.082942016
## 2018 444.34605 6.096604 0.026032448 -0.0097590 1.550070 -0.073875380
## P P_l P_dl Pm Pm_l Pm_dl
## 1962 10.80301 2.379825 0.0478019957 20.32485 3.011844 0.019854525
## 1963 11.39999 2.433613 0.0537873397 20.63138 3.026813 0.014968830
## 1964 11.85530 2.472775 0.0391621206 20.95310 3.042287 0.015473614
## 1965 12.21118 2.502352 0.0295770898 21.17362 3.052756 0.010469303
## 1966 12.57408 2.531637 0.0292856700 21.59787 3.072595 0.019838770
## 1967 12.95650 2.561598 0.0299603438 21.47701 3.066983 -0.005611800
## 1968 13.52650 2.604650 0.0430525381 21.35225 3.061157 -0.005825804
## 1969 14.52691 2.676003 0.0713526021 22.39273 3.108737 0.047579289
## 1970 15.31496 2.728830 0.0528271391 24.52738 3.199790 0.091053329
## 1971 16.21860 2.786159 0.0573287408 25.65439 3.244715 0.044924663
## 1972 17.32227 2.851993 0.0658343050 25.46718 3.237391 -0.007323865
## 1973 18.68373 2.927653 0.0756600143 27.07023 3.298434 0.061043768
## 1974 20.89447 3.039485 0.1118313556 38.51329 3.651004 0.352569076
## 1975 23.76817 3.168347 0.1288627623 39.14342 3.667232 0.016228838
## 1976 26.32306 3.270445 0.1020980721 43.28516 3.767810 0.100577484
## 1977 28.63295 3.354558 0.0841127927 48.18005 3.874945 0.107135163
## 1978 31.28983 3.443293 0.0887348965 49.32235 3.898377 0.023432393
## 1979 34.51590 3.541420 0.0981270436 54.80758 4.003828 0.105451067
## 1980 38.54975 3.651950 0.1105295751 65.54641 4.182758 0.178930047
## 1981 43.05698 3.762524 0.1105746452 78.10974 4.358115 0.175356294
## 1982 48.26462 3.876699 0.1141744466 88.18878 4.479480 0.121365007
## 1983 52.92232 3.968825 0.0921264286 95.76292 4.561876 0.082395796
## 1984 56.66262 4.037115 0.0682895651 105.10528 4.654963 0.093086913
## 1985 59.75286 4.090217 0.0531023633 107.47028 4.677214 0.022251875
## 1986 62.77347 4.139533 0.0493154708 93.74817 4.540612 -0.136602213
## 1987 64.31510 4.163794 0.0242618996 92.34369 4.525517 -0.015094766
## 1988 66.36894 4.195229 0.0314347240 93.50891 4.538057 0.012539278
## 1989 68.54933 4.227554 0.0323243650 99.09849 4.596114 0.058057534
## 1990 70.37079 4.253778 0.0262247329 97.07793 4.575514 -0.020600146
## 1991 72.16320 4.278930 0.0251518717 97.20525 4.576825 0.001310629
## 1992 73.58269 4.298410 0.0194795937 94.43931 4.547957 -0.028867285
## 1993 74.77730 4.314514 0.0161046522 91.25024 4.513606 -0.034351763
## 1994 75.46894 4.323721 0.0092067803 91.36429 4.514855 0.001249077
## 1995 76.31776 4.334906 0.0111844497 91.46790 4.515988 0.001133368
## 1996 77.35421 4.348395 0.0134893894 92.86884 4.531188 0.015200124
## 1997 78.03354 4.357139 0.0087436793 93.95291 4.542794 0.011605493
## 1998 78.77506 4.366596 0.0094577597 91.19406 4.512990 -0.029804000
## 1999 78.93561 4.368633 0.0020360379 89.51388 4.494394 -0.018596067
## 2000 80.16171 4.384046 0.0154135031 94.28264 4.546297 0.051903431
## 2001 81.77163 4.403930 0.0198843293 93.78966 4.541055 -0.005242495
## 2002 83.46220 4.424394 0.0204634445 90.86776 4.509405 -0.031649301
## 2003 85.01407 4.442817 0.0184229360 89.39604 4.493076 -0.016328858
## 2004 86.39357 4.458913 0.0160965047 90.70523 4.507615 0.014538580
## 2005 88.06644 4.478092 0.0191783306 93.59163 4.538941 0.031325928
## 2006 89.96456 4.499416 0.0213242837 96.95752 4.574273 0.035332047
## 2007 92.26463 4.524661 0.0252450206 97.66903 4.581584 0.007311508
## 2008 94.44860 4.548056 0.0233949270 101.41440 4.619215 0.037630655
## 2009 94.51153 4.548722 0.0006660569 95.17891 4.555758 -0.063456738
## 2010 95.52252 4.559362 0.0106401652 98.68283 4.591911 0.036152531
## 2011 96.42803 4.568797 0.0094349520 104.03145 4.644693 0.052782306
## 2012 97.54836 4.580348 0.0115512754 105.80899 4.661635 0.016942234
## 2013 98.30738 4.588099 0.0077508885 104.37198 4.647961 -0.013674183
## 2014 98.87456 4.593852 0.0057528671 102.40069 4.628893 -0.019067819
## 2015 100.00000 4.605170 0.0113181928 100.00000 4.605170 -0.023723284
## 2016 100.52256 4.610382 0.0052119870 97.76103 4.582526 -0.022644124
## 2017 100.98183 4.614941 0.0045584634 99.82372 4.603406 0.020879815
## 2018 101.77942 4.622808 0.0078673324 101.86320 4.623631 0.020224860
## Px Px_l Px_dl X X_l X_dl
## 1962 22.04604 3.093133 0.012707935 34.0061 3.526540 0.011594298
## 1963 22.37445 3.107920 0.014786382 36.8590 3.607100 0.080559902
## 1964 23.21272 3.144700 0.036780845 39.9135 3.686715 0.079614790
## 1965 23.44744 3.154761 0.010060809 44.2266 3.789326 0.102611805
## 1966 23.81141 3.170165 0.015403722 47.2841 3.856174 0.066847669
## 1967 23.76952 3.168404 -0.001760857 50.8172 3.928235 0.072060793
## 1968 23.58744 3.160714 -0.007689788 56.1401 4.027850 0.099615472
## 1969 24.77951 3.210017 0.049302790 64.8318 4.171796 0.143945872
## 1970 26.68402 3.284065 0.074047654 75.2810 4.321228 0.149431555
## 1971 27.99002 3.331848 0.047783400 82.5508 4.413414 0.092186082
## 1972 28.39119 3.346079 0.014230647 91.6235 4.517688 0.104273928
## 1973 30.53328 3.418817 0.072738366 103.0220 4.634943 0.117254769
## 1974 37.59537 3.626881 0.208063791 114.8891 4.743967 0.109024758
## 1975 39.94266 3.687445 0.060563862 111.2169 4.711482 -0.032484967
## 1976 43.67545 3.776786 0.089341397 120.6856 4.793189 0.081706468
## 1977 47.66984 3.864299 0.087512737 130.2249 4.869263 0.076074139
## 1978 50.85672 3.929012 0.064713326 138.7604 4.932749 0.063485749
## 1979 55.70500 4.020070 0.091057554 148.0891 4.997814 0.065065415
## 1980 62.27914 4.131626 0.111556640 152.2067 5.025239 0.027425346
## 1981 70.20529 4.251424 0.119797222 159.5934 5.072629 0.047389865
## 1982 79.46560 4.375324 0.123900460 157.7966 5.061307 -0.011322469
## 1983 88.30528 4.480800 0.105475720 165.2800 5.107641 0.046334143
## 1984 95.49673 4.559092 0.078292084 176.4710 5.173157 0.065515552
## 1985 98.07071 4.585689 0.026596787 180.2016 5.194076 0.020919667
## 1986 93.04253 4.533057 -0.052632009 178.4592 5.184360 -0.009716220
## 1987 91.44304 4.515716 -0.017340528 183.4475 5.211929 0.027568519
## 1988 94.70539 4.550771 0.035054663 198.9707 5.293158 0.081229055
## 1989 98.87051 4.593811 0.043040082 218.4251 5.386443 0.093285586
## 1990 97.14629 4.576218 -0.017592946 227.4806 5.427065 0.040621796
## 1991 96.34089 4.567893 -0.008325164 241.7603 5.487947 0.060881779
## 1992 94.18309 4.545241 -0.022652254 256.1447 5.545743 0.057795780
## 1993 92.34724 4.525556 -0.019684733 257.1555 5.549681 0.003938441
## 1994 91.88400 4.520527 -0.005028981 278.1366 5.628112 0.078431400
## 1995 91.03107 4.511201 -0.009326010 302.7637 5.712953 0.084840273
## 1996 91.45705 4.515869 0.004668608 315.6859 5.754748 0.041795099
## 1997 92.46434 4.526823 0.010953518 356.8489 5.877312 0.122564711
## 1998 90.96221 4.510444 -0.016378822 388.2964 5.961769 0.084456523
## 1999 89.51017 4.494352 -0.016091932 408.1458 6.011624 0.049855498
## 2000 91.76611 4.519243 0.024890849 460.7376 6.132829 0.121204220
## 2001 91.55466 4.516936 -0.002306978 474.8923 6.163088 0.030259358
## 2002 90.24891 4.502572 -0.014364562 484.3781 6.182866 0.019777759
## 2003 88.75741 4.485907 -0.016664627 479.7335 6.173231 -0.009635059
## 2004 89.23630 4.491288 0.005380935 505.4378 6.225425 0.052194243
## 2005 90.83708 4.509068 0.017779657 525.5321 6.264411 0.038986289
## 2006 92.68109 4.529164 0.020096964 557.0521 6.322659 0.058247499
## 2007 94.43443 4.547906 0.018741192 572.6005 6.350188 0.027529494
## 2008 97.41292 4.578959 0.031053217 575.1239 6.354585 0.004397230
## 2009 93.84802 4.541677 -0.037282283 512.4466 6.239197 -0.115388985
## 2010 95.96040 4.563936 0.022258983 557.0048 6.322574 0.083377347
## 2011 98.74489 4.592540 0.028604049 592.4519 6.384270 0.061695831
## 2012 100.11551 4.606325 0.013784957 609.2902 6.412295 0.028024985
## 2013 99.89935 4.604163 -0.002161408 622.3334 6.433476 0.021181289
## 2014 99.23218 4.597462 -0.006700790 642.6987 6.465676 0.032200068
## 2015 100.00000 4.605170 0.007707783 672.5580 6.511088 0.045412323
## 2016 98.72422 4.592330 -0.012839841 684.5017 6.528691 0.017602775
## 2017 99.49847 4.600142 0.007811885 710.9014 6.566534 0.037842614
## 2018 100.25046 4.607672 0.007529445 735.5567 6.600628 0.034093885
## M M_l M_dl rulc rulc_l rulc_dl
## 1962 33.4861 3.511130 0.069056653 0.7282407 -0.3171236 -0.0012042838
## 1963 37.8210 3.632865 0.121734077 0.7369817 -0.3051922 0.0119313835
## 1964 43.5974 3.774998 0.142133012 0.7348398 -0.3081028 -0.0029105550
## 1965 44.7019 3.800016 0.025018491 0.7265788 -0.3194083 -0.0113055087
## 1966 49.8151 3.908318 0.108302145 0.7161883 -0.3338121 -0.0144038742
## 1967 54.6910 4.001699 0.093381011 0.7080270 -0.3452730 -0.0114608782
## 1968 61.2535 4.115021 0.113321829 0.7172428 -0.3323408 0.0129321900
## 1969 73.7427 4.300582 0.185561017 0.7041490 -0.3507653 -0.0184244776
## 1970 79.1157 4.370911 0.070329331 0.7015544 -0.3544569 -0.0036915866
## 1971 84.8510 4.440897 0.069985439 0.7013226 -0.3547874 -0.0003304543
## 1972 97.3763 4.578583 0.137686077 0.6954075 -0.3632572 -0.0084698560
## 1973 111.9348 4.717917 0.139333704 0.6891016 -0.3723665 -0.0091092993
## 1974 118.1047 4.771572 0.053654960 0.6933252 -0.3662562 0.0061103283
## 1975 107.6145 4.678555 -0.093016122 0.7231911 -0.3240818 0.0421743381
## 1976 127.6280 4.849120 0.170564386 0.7246069 -0.3221260 0.0019558510
## 1977 129.9210 4.866927 0.017806791 0.7208192 -0.3273669 -0.0052409042
## 1978 135.6768 4.910276 0.043349013 0.7174311 -0.3320783 -0.0047114186
## 1979 147.6201 4.994642 0.084366495 0.7110856 -0.3409625 -0.0088841557
## 1980 155.2167 5.044822 0.050180123 0.7104460 -0.3418623 -0.0008998469
## 1981 153.0488 5.030757 -0.014065380 0.7069353 -0.3468161 -0.0049538222
## 1982 158.5009 5.065760 0.035003447 0.6977052 -0.3599586 -0.0131425077
## 1983 154.2236 5.038403 -0.027356774 0.6829283 -0.3813654 -0.0214067895
## 1984 159.4696 5.071853 0.033449811 0.6676159 -0.4040423 -0.0226768374
## 1985 167.0350 5.118203 0.046350063 0.6538553 -0.4248692 -0.0208268982
## 1986 178.1677 5.182725 0.064521870 0.6315496 -0.4595788 -0.0347096755
## 1987 191.8366 5.256644 0.073918726 0.6238456 -0.4718524 -0.0122735626
## 1988 208.0347 5.337705 0.081060925 0.6083625 -0.4969844 -0.0251319724
## 1989 224.8198 5.415299 0.077594300 0.5966994 -0.5163418 -0.0193574158
## 1990 236.1556 5.464491 0.049191717 0.5980959 -0.5140041 0.0023376715
## 1991 243.1360 5.493621 0.029130048 0.5973379 -0.5152723 -0.0012681869
## 1992 247.4319 5.511135 0.017514435 0.5934529 -0.5217974 -0.0065250789
## 1993 239.2191 5.477380 -0.033755524 0.5920702 -0.5241301 -0.0023326646
## 1994 260.4201 5.562296 0.084916228 0.5836332 -0.5384825 -0.0143524837
## 1995 280.0108 5.634828 0.072532078 0.5820918 -0.5411271 -0.0026445776
## 1996 286.8594 5.658992 0.024164026 0.5794333 -0.5457047 -0.0045775584
## 1997 309.7381 5.735727 0.076734901 0.5736678 -0.5557047 -0.0100000638
## 1998 346.5983 5.848166 0.112439371 0.5663961 -0.5684616 -0.0127568686
## 1999 370.6889 5.915363 0.067196694 0.5695342 -0.5629365 0.0055251613
## 2000 427.6026 6.058194 0.142831093 0.5659921 -0.5691751 -0.0062386921
## 2001 437.7871 6.081733 0.023538460 0.5646824 -0.5714918 -0.0023166905
## 2002 446.3046 6.101002 0.019268959 0.5668511 -0.5676587 0.0038331796
## 2003 450.2929 6.109898 0.008896581 0.5667322 -0.5678683 -0.0002096665
## 2004 478.2282 6.170088 0.060189765 0.5615158 -0.5771153 -0.0092469680
## 2005 508.4536 6.231374 0.061285938 0.5612099 -0.5776603 -0.0005449897
## 2006 536.9300 6.285868 0.054493770 0.5575653 -0.5841757 -0.0065154070
## 2007 567.8341 6.341829 0.055961566 0.5496631 -0.5984498 -0.0142740865
## 2008 575.1875 6.354696 0.012866776 0.5497546 -0.5982833 0.0001665039
## 2009 521.3813 6.256482 -0.098214439 0.5660608 -0.5690538 0.0292294295
## 2010 567.7452 6.341673 0.085191091 0.5644056 -0.5719822 -0.0029283479
## 2011 600.8866 6.398406 0.056733505 0.5641628 -0.5724125 -0.0004302801
## 2012 602.0897 6.400406 0.002000206 0.5686043 -0.5645706 0.0078418641
## 2013 616.6511 6.424303 0.023896948 0.5715904 -0.5593327 0.0052379040
## 2014 646.8589 6.472128 0.047824801 0.5689179 -0.5640192 -0.0046864652
## 2015 685.0110 6.529435 0.057306709 0.5600115 -0.5797980 -0.0157788065
## 2016 705.0734 6.558302 0.028867014 0.5609379 -0.5781450 0.0016529796
## 2017 732.9160 6.597031 0.038729187 0.5614157 -0.5772936 0.0008513963
## 2018 741.7792 6.609052 0.012020527 0.5607428 -0.5784930 -0.0011993742
## ulc ulc_l ulc_dl Tau Tau_l Tau_dl
## 1962 7.867196 2.062702 0.046597712 50.41424 3.920274 0.05245795002
## 1963 8.401585 2.128420 0.065718723 52.51239 3.961049 0.04077542152
## 1964 8.711744 2.164672 0.036251566 54.70632 4.001979 0.04093010785
## 1965 8.872384 2.182944 0.018271581 56.27531 4.030256 0.02827667643
## 1966 9.005408 2.197825 0.014881796 57.90148 4.058743 0.02848701143
## 1967 9.173554 2.216325 0.018499466 59.52902 4.086464 0.02772091908
## 1968 9.701781 2.272310 0.055984728 61.12720 4.112957 0.02649301616
## 1969 10.229111 2.325238 0.052928124 63.62467 4.153001 0.04004439923
## 1970 10.744277 2.374373 0.049135552 65.66552 4.184574 0.03157266152
## 1971 11.374471 2.431371 0.056998286 67.60771 4.213722 0.02914810798
## 1972 12.046039 2.488736 0.057364449 69.03373 4.234595 0.02087317119
## 1973 12.874990 2.555287 0.066550715 71.37000 4.267878 0.03328243691
## 1974 14.486661 2.673228 0.117941684 72.60446 4.285026 0.01714869074
## 1975 17.188928 2.844265 0.171037100 71.07684 4.263762 -0.02126482156
## 1976 19.073870 2.948319 0.104053923 72.73957 4.286885 0.02312397384
## 1977 20.639181 3.027191 0.078871888 73.91671 4.302939 0.01605341705
## 1978 22.448296 3.111215 0.084023478 75.64620 4.326067 0.02312830508
## 1979 24.543759 3.200458 0.089242888 77.08768 4.344943 0.01887623522
## 1980 27.387517 3.310087 0.109629728 77.12600 4.345440 0.00049697798
## 1981 30.438497 3.415708 0.105620823 77.14912 4.345740 0.00029970485
## 1982 33.674474 3.516740 0.101031939 78.19200 4.359167 0.01342720711
## 1983 36.142149 3.587460 0.070719639 78.58804 4.364220 0.00505216670
## 1984 37.828866 3.633072 0.045612728 79.44850 4.375109 0.01088954112
## 1985 39.069727 3.665348 0.032275465 80.30401 4.385820 0.01071049058
## 1986 39.644559 3.679954 0.014605795 81.29658 4.398104 0.01228445977
## 1987 40.122692 3.691942 0.011988337 82.23197 4.409544 0.01144012954
## 1988 40.376374 3.698245 0.006302752 84.70366 4.439159 0.02961465008
## 1989 40.903342 3.711212 0.012966949 86.44556 4.459515 0.02035606237
## 1990 42.088484 3.739774 0.028562404 87.46803 4.471273 0.01175856432
## 1991 43.105813 3.763658 0.023883685 87.51750 4.471839 0.00056532905
## 1992 43.667860 3.776612 0.012954515 88.61148 4.484261 0.01242272200
## 1993 44.273414 3.790384 0.013771988 88.33525 4.481139 -0.00312223937
## 1994 44.046181 3.785239 -0.005145703 89.75887 4.497127 0.01598759549
## 1995 44.423940 3.793779 0.008539872 90.74707 4.508076 0.01094936271
## 1996 44.821608 3.802690 0.008911831 91.47033 4.516015 0.00793852717
## 1997 44.765331 3.801434 -0.001256384 92.77788 4.530208 0.01419356873
## 1998 44.617888 3.798135 -0.003299109 94.64383 4.550121 0.01991241409
## 1999 44.956532 3.805696 0.007561199 95.80914 4.562358 0.01223744765
## 2000 45.370897 3.814871 0.009174811 97.06872 4.575419 0.01306110458
## 2001 46.174999 3.832439 0.017567639 97.05534 4.575281 -0.00013794065
## 2002 47.310636 3.856735 0.024296624 96.95155 4.574211 -0.00106995699
## 2003 48.180212 3.874948 0.018213269 96.99897 4.574700 0.00048903815
## 2004 48.511357 3.881798 0.006849537 98.86326 4.593738 0.01903734136
## 2005 49.423760 3.900431 0.018633341 99.29734 4.598119 0.00438105951
## 2006 50.161117 3.915240 0.014808877 100.00793 4.605249 0.00713072374
## 2007 50.714461 3.926211 0.010970934 100.57364 4.610890 0.00564074937
## 2008 51.923554 3.949773 0.023561431 99.71326 4.602299 -0.00859158712
## 2009 53.499270 3.979668 0.029895486 96.98646 4.574571 -0.02772730377
## 2010 53.913441 3.987380 0.007711817 98.33813 4.588412 0.01384047148
## 2011 54.401107 3.996384 0.009004672 99.60987 4.601261 0.01284942323
## 2012 55.466411 4.015778 0.019393139 99.30139 4.598160 -0.00310166802
## 2013 56.191552 4.028766 0.012988792 99.29181 4.598063 -0.00009644842
## 2014 56.251507 4.029833 0.001066402 99.56101 4.600771 0.00270747943
## 2015 56.001149 4.025372 -0.004460614 100.00000 4.605170 0.00439957395
## 2016 56.386918 4.032237 0.006864967 100.32305 4.608396 0.00322532604
## 2017 56.692790 4.037647 0.005409860 101.46238 4.619688 0.01129259115
## 2018 57.072078 4.044315 0.006667958 102.01578 4.625128 0.00543944911
## dPxdPm dPdPm Trade
## 1962 -0.0071465898 0.027947471 0.1281270
## 1963 -0.0001824482 0.038818510 0.1334532
## 1964 0.0213072313 0.023688506 0.1399260
## 1965 -0.0004084935 0.019107787 0.1420955
## 1966 -0.0044350481 0.009446900 0.1474095
## 1967 0.0038509431 0.035572144 0.1526626
## 1968 -0.0018639840 0.048878343 0.1625590
## 1969 0.0017235010 0.023773313 0.1791521
## 1970 -0.0170056751 -0.038226190 0.1881159
## 1971 0.0028587375 0.012404078 0.1936647
## 1972 0.0215545125 0.073158170 0.2092127
## 1973 0.0116945979 0.014616247 0.2237497
## 1974 -0.1445052852 -0.240737721 0.2325239
## 1975 0.0443350241 0.112633924 0.2205066
## 1976 -0.0112360860 0.001520589 0.2397685
## 1977 -0.0196224262 -0.023022371 0.2427828
## 1978 0.0412809329 0.065302504 0.2463202
## 1979 -0.0143935127 -0.007324023 0.2563138
## 1980 -0.0673734066 -0.068400472 0.2623259
## 1981 -0.0555590721 -0.064781649 0.2639574
## 1982 0.0025354532 -0.007190560 0.2605165
## 1983 0.0230799243 0.009730633 0.2599317
## 1984 -0.0147948292 -0.024797348 0.2692287
## 1985 0.0043449113 0.030850488 0.2738377
## 1986 0.0839702036 0.185917684 0.2748197
## 1987 -0.0022457619 0.039356666 0.2819732
## 1988 0.0225153858 0.018895446 0.2919594
## 1989 -0.0150174521 -0.025733169 0.3047186
## 1990 0.0030071999 0.046824879 0.3096823
## 1991 -0.0096357931 0.023841242 0.3205231
## 1992 0.0062150312 0.048346879 0.3276311
## 1993 0.0146670302 0.050456416 0.3249884
## 1994 -0.0062780577 0.007957703 0.3444821
## 1995 -0.0104593784 0.010051081 0.3650744
## 1996 -0.0105315156 -0.001710734 0.3722007
## 1997 -0.0006519752 -0.002861813 0.4023598
## 1998 0.0134251784 0.039261760 0.4282236
## 1999 0.0025041356 0.020632105 0.4388140
## 2000 -0.0270125819 -0.036489927 0.4816149
## 2001 0.0029355169 0.025126824 0.4851857
## 2002 0.0172847385 0.052112745 0.4892014
## 2003 -0.0003357694 0.034751794 0.4848653
## 2004 -0.0091576452 0.001557925 0.4987175
## 2005 -0.0135462714 -0.012147598 0.5156532
## 2006 -0.0152350832 -0.014007763 0.5325302
## 2007 0.0114296842 0.017933513 0.5420002
## 2008 -0.0065774384 -0.014235728 0.5453041
## 2009 0.0261744549 0.064122795 0.5045834
## 2010 -0.0138935479 -0.025512366 0.5384632
## 2011 -0.0241782572 -0.043347354 0.5590410
## 2012 -0.0031572773 -0.005390959 0.5657214
## 2013 0.0115127752 0.021425072 0.5752973
## 2014 0.0123670295 0.024820687 0.5931087
## 2015 0.0314310672 0.035041477 0.6175169
## 2016 0.0098042828 0.027856111 0.6252264
## 2017 -0.0130679304 -0.016321352 0.6352739
## 2018 -0.0126954154 -0.012357528 0.6389997
adf.FRA.WS <- adf.test((FRA$WS), alternative = c("stationary"), k = 2)
adf.FRA.PS <- adf.test((FRA$PS), alternative = c("stationary"), k = 2)
adf.FRA.Y <- adf.test((FRA$Y), alternative = c("stationary"), k = 2)
adf.FRA.Yrw <- adf.test((FRA$Yrw), alternative = c("stationary"), k = 2)
adf.FRA.r <- adf.test((FRA$r), alternative = c("stationary"), k = 2)
adf.FRA.R <- adf.test((FRA$R), alternative = c("stationary"), k = 2)
adf.FRA.Tau <- adf.test((FRA$Tau), alternative = c("stationary"), k = 2)
adf.FRA.rulc <- adf.test((FRA$rulc), alternative = c("stationary"), k = 2)
adf.FRA.ulc <- adf.test((FRA$ulc), alternative = c("stationary"), k = 2)
adf.FRA.P <- adf.test((FRA$P), alternative = c("stationary"), k = 2)
adf.FRA.Pm <- adf.test((FRA$Pm), alternative = c("stationary"), k = 2)
adf.FRA.Px <- adf.test((FRA$Px), alternative = c("stationary"), k = 2)
adf.FRA.X <- adf.test((FRA$X), alternative = c("stationary"), k = 2)
adf.FRA.M <- adf.test((FRA$M), alternative = c("stationary"), k = 2)
adf.FRA.I <- adf.test((FRA$I), alternative = c("stationary"), k = 2)
adf.FRA.C <- adf.test((FRA$C), alternative = c("stationary"), k = 2)
adf.FRA.Ipr <- adf.test((FRA$Ipr), alternative = c("stationary"), k = 2)
adf.FRA.Ips <- adf.test((FRA$Ips), alternative = c("stationary"), k = 2)
adf.FRA.It <- adf.test((FRA$It), alternative = c("stationary"), k = 2)
adf.FRA.Itcurr <- adf.test((FRA$Itcurr), alternative = c("stationary"), k = 2)
adf.FRA.Yf <- adf.test((FRA$Yf), alternative = c("stationary"), k = 2)
adf.FRA.W <- adf.test((FRA$W), alternative = c("stationary"), k = 2)
adf.FRA.WS.pval <- adf.FRA.WS$p.value
adf.FRA.PS.pval <- adf.FRA.PS$p.value
adf.FRA.Y.pval <- adf.FRA.Y$p.value
adf.FRA.Yrw.pval <- adf.FRA.Yrw$p.value
adf.FRA.r.pval <- adf.FRA.r$p.value
adf.FRA.R.pval <- adf.FRA.R$p.value
adf.FRA.Tau.pval <- adf.FRA.Tau$p.value
adf.FRA.rulc.pval <- adf.FRA.rulc$p.value
adf.FRA.ulc.pval <- adf.FRA.ulc$p.value
adf.FRA.P.pval <- adf.FRA.P$p.value
adf.FRA.Pm.pval <- adf.FRA.Pm$p.value
adf.FRA.Px.pval <- adf.FRA.Px$p.value
adf.FRA.X.pval <- adf.FRA.X$p.value
adf.FRA.M.pval <- adf.FRA.M$p.value
adf.FRA.I.pval <- adf.FRA.I$p.value
adf.FRA.C.pval <- adf.FRA.C$p.value
adf.FRA.Ipr.pval <- adf.FRA.Ipr$p.value
adf.FRA.Ips.pval <- adf.FRA.Ips$p.value
adf.FRA.It.pval <- adf.FRA.It$p.value
adf.FRA.Itcurr.pval <- adf.FRA.Itcurr$p.value
adf.FRA.Yf.pval <- adf.FRA.Yf$p.value
adf.FRA.W.pval <- adf.FRA.W$p.value
adf.FRA_non <- rbind(adf.FRA.WS.pval,adf.FRA.PS.pval,adf.FRA.Y.pval,adf.FRA.Yrw.pval,adf.FRA.r.pval,adf.FRA.R.pval,adf.FRA.Tau.pval,adf.FRA.rulc.pval,adf.FRA.ulc.pval,adf.FRA.P.pval,adf.FRA.Pm.pval,adf.FRA.Px.pval,adf.FRA.X.pval,adf.FRA.M.pval,adf.FRA.I.pval,adf.FRA.C.pval,adf.FRA.Ipr.pval,adf.FRA.Ips.pval,adf.FRA.It.pval,adf.FRA.Itcurr.pval,adf.FRA.Yf.pval,adf.FRA.W.pval)
colnames(adf.FRA_non) <- c("FRA")
rownames(adf.FRA_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.FRA_non
## FRA
## WS 0.8456230
## PS 0.8456230
## Y 0.5217722
## Yrw 0.6588661
## r 0.9049776
## R 0.9227521
## Tau 0.8070351
## rulc 0.8819428
## ulc 0.7478044
## P 0.5043065
## Pm 0.8379722
## Px 0.8731298
## X 0.8494307
## M 0.9545177
## I 0.3194831
## C 0.3982410
## Ipr 0.4606598
## Ips 0.7276340
## It 0.1972176
## Itcurr 0.3163161
## Yf 0.5958260
## W 0.4058653
adf.FRA.WS_dl <- adf.test((FRA$WS_dl), alternative = c("stationary"), k = 2)
adf.FRA.PS_dl <- adf.test((FRA$PS_dl), alternative = c("stationary"), k = 2)
adf.FRA.Y_dl <- adf.test((FRA$Y_dl), alternative = c("stationary"), k = 2)
adf.FRA.Yrw_dl <- adf.test((FRA$Yrw_dl), alternative = c("stationary"), k = 2)
adf.FRA.r_dl <- adf.test((FRA$r_dl), alternative = c("stationary"), k = 2)
adf.FRA.R_dl <- adf.test((FRA$R_dl), alternative = c("stationary"), k = 2)
adf.FRA.Tau_dl <- adf.test((FRA$Tau_dl), alternative = c("stationary"), k = 2)
adf.FRA.rulc_dl <- adf.test((FRA$rulc_dl), alternative = c("stationary"), k = 2)
adf.FRA.ulc_dl <- adf.test((FRA$ulc_dl), alternative = c("stationary"), k = 2)
adf.FRA.P_dl <- adf.test((FRA$P_dl), alternative = c("stationary"), k = 2)
adf.FRA.Pm_dl <- adf.test((FRA$Pm_dl), alternative = c("stationary"), k = 2)
adf.FRA.Px_dl <- adf.test((FRA$Px_dl), alternative = c("stationary"), k = 2)
adf.FRA.X_dl <- adf.test((FRA$X_dl), alternative = c("stationary"), k = 2)
adf.FRA.M_dl <- adf.test((FRA$M_dl), alternative = c("stationary"), k = 2)
adf.FRA.I_dl <- adf.test((FRA$I_dl), alternative = c("stationary"), k = 2)
adf.FRA.C_dl <- adf.test((FRA$C_dl), alternative = c("stationary"), k = 2)
adf.FRA.Ipr_dl <- adf.test((FRA$Ipr_dl), alternative = c("stationary"), k = 2)
adf.FRA.Ips_dl <- adf.test((FRA$Ips_dl), alternative = c("stationary"), k = 2)
adf.FRA.It_dl <- adf.test((FRA$It_dl), alternative = c("stationary"), k = 2)
adf.FRA.Itcurr_dl <- adf.test((FRA$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.FRA.Yf_dl <- adf.test((FRA$Yf_dl), alternative = c("stationary"), k = 2)
adf.FRA.W_dl <- adf.test((FRA$W_dl), alternative = c("stationary"), k = 2)
adf.FRA.WS_dl.pval <- adf.FRA.WS_dl$p.value
adf.FRA.PS_dl.pval <- adf.FRA.PS_dl$p.value
adf.FRA.Y_dl.pval <- adf.FRA.Y_dl$p.value
adf.FRA.Yrw_dl.pval <- adf.FRA.Yrw_dl$p.value
adf.FRA.r_dl.pval <- adf.FRA.r_dl$p.value
adf.FRA.R_dl.pval <- adf.FRA.R_dl$p.value
adf.FRA.Tau_dl.pval <- adf.FRA.Tau_dl$p.value
adf.FRA.rulc_dl.pval <- adf.FRA.rulc_dl$p.value
adf.FRA.ulc_dl.pval <- adf.FRA.ulc_dl$p.value
adf.FRA.P_dl.pval <- adf.FRA.P_dl$p.value
adf.FRA.Pm_dl.pval <- adf.FRA.Pm_dl$p.value
adf.FRA.Px_dl.pval <- adf.FRA.Px_dl$p.value
adf.FRA.X_dl.pval <- adf.FRA.X_dl$p.value
adf.FRA.M_dl.pval <- adf.FRA.M_dl$p.value
adf.FRA.I_dl.pval <- adf.FRA.I_dl$p.value
adf.FRA.C_dl.pval <- adf.FRA.C_dl$p.value
adf.FRA.Ipr_dl.pval <- adf.FRA.Ipr_dl$p.value
adf.FRA.Ips_dl.pval <- adf.FRA.Ips_dl$p.value
adf.FRA.It_dl.pval <- adf.FRA.It_dl$p.value
adf.FRA.Itcurr_dl.pval <- adf.FRA.Itcurr_dl$p.value
adf.FRA.Yf_dl.pval <- adf.FRA.Yf_dl$p.value
adf.FRA.W_dl.pval <- adf.FRA.W_dl$p.value
adf.FRA_dl <- rbind(adf.FRA.WS_dl.pval,adf.FRA.PS_dl.pval,adf.FRA.Y_dl.pval,adf.FRA.Yrw_dl.pval,adf.FRA.r_dl.pval,adf.FRA.R_dl.pval,adf.FRA.Tau_dl.pval,adf.FRA.rulc_dl.pval,adf.FRA.ulc_dl.pval,adf.FRA.P_dl.pval,adf.FRA.Pm_dl.pval,adf.FRA.Px_dl.pval,adf.FRA.X_dl.pval,adf.FRA.M_dl.pval,adf.FRA.I_dl.pval,adf.FRA.C_dl.pval,adf.FRA.Ipr_dl.pval,adf.FRA.Ips_dl.pval,adf.FRA.It_dl.pval,adf.FRA.Itcurr_dl.pval,adf.FRA.Yf_dl.pval,adf.FRA.W_dl.pval)
colnames(adf.FRA_dl) <- c("FRA")
rownames(adf.FRA_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.FRA_dl
## FRA
## dlog(WS) 0.11183116
## dlog(PS) 0.09075478
## dlog(Y) 0.04775760
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.04573899
## dlog(Tau) 0.01174742
## dlog(rulc) 0.15734144
## dlog(ulc) 0.46202034
## dlog(P) 0.47660890
## dlog(Pm) 0.14124860
## dlog(Px) 0.38916518
## dlog(X) 0.02450894
## dlog(M) 0.02291392
## dlog(I) 0.02690750
## dlog(C) 0.07503781
## dlog(Ipr) 0.02382367
## dlog(Ips) 0.01278992
## dlog(It) 0.02525444
## dlog(Itcurr) 0.02435901
## dlog(Yf) 0.10526324
## dlog(W) 0.24240799
adf.FRA <- NULL
adf.FRA <- rbind(adf.FRA_non,adf.FRA_dl)
#Consumption (C)
FRA_consumption <- dynlm(FRA$C_dl~FRA$R_dl+FRA$W_dl)
FRA_CR <- summary(FRA_consumption)$coefficients["FRA$R_dl","Estimate"]
FRA_CW <- summary(FRA_consumption)$coefficients["FRA$W_dl","Estimate"]
FRA_Ceffekt <- (FRA_CR*mean(FRA$C/FRA$R))-(FRA_CW*mean(FRA$C/FRA$W))
summary(FRA_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$C_dl ~ FRA$R_dl + FRA$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0167229 -0.0048346 -0.0005375 0.0053283 0.0210302
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.007698 0.001706 4.513 0.000034998835260218 ***
## FRA$R_dl 0.153696 0.026839 5.727 0.000000466047413250 ***
## FRA$W_dl 0.644128 0.057365 11.229 0.000000000000000966 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.008257 on 54 degrees of freedom
## Multiple R-squared: 0.7942, Adjusted R-squared: 0.7865
## F-statistic: 104.2 on 2 and 54 DF, p-value: < 0.00000000000000022
#Investments (I)
FRA_investment <- dynlm(FRA$I_dl~FRA$PS_dl+FRA$Y_dl)
FRA_iPS <- summary(FRA_investment)$coefficients["FRA$PS_dl","Estimate"]
FRA_Ieffekt <- FRA_iPS*mean(FRA$I/FRA$R)
summary(FRA_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$I_dl ~ FRA$PS_dl + FRA$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.048572 -0.015294 0.004213 0.016517 0.045180
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.016425 0.005398 -3.043 0.00362 **
## FRA$PS_dl 0.249098 0.113410 2.196 0.03237 *
## FRA$Y_dl 1.608205 0.167952 9.575 0.00000000000031 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02356 on 54 degrees of freedom
## Multiple R-squared: 0.7067, Adjusted R-squared: 0.6958
## F-statistic: 65.05 on 2 and 54 DF, p-value: 0.000000000000004148
#Price deflator (P)
FRA_deflator <- dynlm(FRA$P_dl~L(FRA$ulc_dl)+FRA$Pm_dl)
FRA_ePULC <- summary(FRA_deflator)$coefficients["L(FRA$ulc_dl)","Estimate"]
summary(FRA_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$P_dl ~ L(FRA$ulc_dl) + FRA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.029749 -0.007095 -0.000980 0.006515 0.035541
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009286 0.002067 4.493 0.0000375 ***
## L(FRA$ulc_dl) 0.824050 0.050758 16.235 < 0.0000000000000002 ***
## FRA$Pm_dl 0.055250 0.027662 1.997 0.0508 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01114 on 54 degrees of freedom
## Multiple R-squared: 0.904, Adjusted R-squared: 0.9005
## F-statistic: 254.3 on 2 and 54 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
FRA_exportdeflator <- dynlm(FRA$Px_dl~FRA$ulc_dl+FRA$Pm_dl)
FRA_ePX <- summary(FRA_exportdeflator)$coefficients["FRA$ulc_dl","Estimate"]
summary(FRA_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$Px_dl ~ FRA$ulc_dl + FRA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.023585 -0.007575 -0.001495 0.004926 0.038006
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0008234 0.0023863 -0.345 0.731
## FRA$ulc_dl 0.3533285 0.0586064 6.029 0.000000153 ***
## FRA$Pm_dl 0.5255792 0.0319396 16.455 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01286 on 54 degrees of freedom
## Multiple R-squared: 0.9295, Adjusted R-squared: 0.9269
## F-statistic: 356 on 2 and 54 DF, p-value: < 0.00000000000000022
#Exports (X)
FRA_exports <- dynlm(FRA$X_dl~L(FRA$dPxdPm)+FRA$Yrw_dl)
FRA_eXP <- summary(FRA_exports)$coefficients["L(FRA$dPxdPm)","Estimate"]
FRA_Xeffekt <- -(FRA_eXP*FRA_ePX*(1/(1-FRA_ePULC))*mean(FRA$Yf/FRA$Y)*(mean(FRA$X/FRA$Y)/mean(FRA$rulc)))
summary(FRA_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$X_dl ~ L(FRA$dPxdPm) + FRA$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.092028 -0.014037 -0.004624 0.015499 0.095187
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0008087 0.0076706 -0.105 0.916427
## L(FRA$dPxdPm) -0.5620236 0.1340063 -4.194 0.000103 ***
## FRA$Yrw_dl 1.7906980 0.2187614 8.186 0.0000000000495 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02942 on 54 degrees of freedom
## Multiple R-squared: 0.5982, Adjusted R-squared: 0.5833
## F-statistic: 40.19 on 2 and 54 DF, p-value: 0.00000000002036
#Imports (M)
FRA_imports <- dynlm(FRA$M_dl~FRA$dPdPm+L(FRA$Y_dl)+L(FRA$M_l))
FRA_eMP <- summary(FRA_imports)$coefficients["FRA$dPdPm","Estimate"]
FRA_eMP <- 0
FRA_Meffekt <- -(FRA_eMP*FRA_ePULC*(1/(1-FRA_ePULC))*mean(FRA$Yf/FRA$Y)*(mean(FRA$M/FRA$Y)/mean(FRA$rulc)))
summary(FRA_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$M_dl ~ FRA$dPdPm + L(FRA$Y_dl) + L(FRA$M_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.055711 -0.016588 -0.000593 0.018988 0.083588
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.158034 0.040313 -3.920 0.000256 ***
## FRA$dPdPm 0.085727 0.076751 1.117 0.269051
## L(FRA$Y_dl) 2.919235 0.276881 10.543 0.0000000000000128 ***
## L(FRA$M_l) 0.024827 0.006376 3.894 0.000278 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02948 on 53 degrees of freedom
## Multiple R-squared: 0.721, Adjusted R-squared: 0.7053
## F-statistic: 45.67 on 3 and 53 DF, p-value: 0.0000000000000102
names(FRA_consumption$coefficients) <- sub("FRA$","",names(FRA_consumption$coefficients),fixed=TRUE)
names(FRA_investment$coefficients) <- sub("FRA$","",names(FRA_investment$coefficients),fixed=TRUE)
names(FRA_deflator$coefficients) <- sub("FRA$","",names(FRA_deflator$coefficients),fixed=TRUE)
names(FRA_exportdeflator$coefficients) <- sub("FRA$","",names(FRA_exportdeflator$coefficients),fixed=TRUE)
names(FRA_exports$coefficients) <- sub("FRA$","",names(FRA_exports$coefficients),fixed=TRUE)
names(FRA_imports$coefficients) <- sub("FRA$","",names(FRA_imports$coefficients),fixed=TRUE)
FRA_Xeffekt
## [1] 0.2903985
FRA_Meffekt
## [1] 0
#Nettoeksport (NX)
FRA_NXeffekt <- FRA_Xeffekt - FRA_Meffekt
FRA_NXeffekt
## [1] 0.2903985
#Nettoeffekten
FRA_Neteffekt = FRA_Ceffekt + FRA_Ieffekt + FRA_NXeffekt
FRA_Neteffekt
## [1] 0.2040077
FRA_Lukket <- FRA_Ceffekt + FRA_Ieffekt
FRA_Lukket_Konklusion <- ifelse(FRA_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
FRA_Lukket_Konklusion
## [1] "Wage-led domestic"
FRA_Def <- ifelse(FRA_Neteffekt > 0, "Profit-led", "Wage-led")
FRA_Def
## [1] "Profit-led"
summary(ur.df(y=FRA_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0149161 -0.0047556 -0.0005951 0.0032783 0.0198758
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.87682 0.59933 -1.463 0.154
## z.diff.lag1 0.06199 0.56930 0.109 0.914
## z.diff.lag2 -0.04484 0.54607 -0.082 0.935
## z.diff.lag3 0.04472 0.52278 0.086 0.932
## z.diff.lag4 0.11966 0.50989 0.235 0.816
## z.diff.lag5 0.10449 0.48534 0.215 0.831
## z.diff.lag6 0.25848 0.46960 0.550 0.586
## z.diff.lag7 0.36842 0.44867 0.821 0.418
## z.diff.lag8 0.18423 0.42451 0.434 0.667
## z.diff.lag9 0.20191 0.39689 0.509 0.615
## z.diff.lag10 0.05840 0.34226 0.171 0.866
## z.diff.lag11 0.07255 0.26014 0.279 0.782
## z.diff.lag12 -0.04702 0.18747 -0.251 0.804
##
## Residual standard error: 0.008949 on 31 degrees of freedom
## Multiple R-squared: 0.5104, Adjusted R-squared: 0.3051
## F-statistic: 2.486 on 13 and 31 DF, p-value: 0.01866
##
##
## Value of test-statistic is: -1.463
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FRA_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.050585 -0.008658 0.003295 0.014467 0.030789
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.15175 0.29674 -0.511 0.613
## z.diff.lag1 -0.19962 0.33122 -0.603 0.551
## z.diff.lag2 -0.28913 0.32817 -0.881 0.385
## z.diff.lag3 -0.41759 0.31918 -1.308 0.200
## z.diff.lag4 -0.38131 0.32246 -1.182 0.246
## z.diff.lag5 -0.29482 0.31744 -0.929 0.360
## z.diff.lag6 -0.35999 0.30978 -1.162 0.254
## z.diff.lag7 -0.22395 0.28135 -0.796 0.432
## z.diff.lag8 -0.26333 0.27014 -0.975 0.337
## z.diff.lag9 0.13549 0.24931 0.543 0.591
## z.diff.lag10 -0.16167 0.24067 -0.672 0.507
## z.diff.lag11 -0.08677 0.21649 -0.401 0.691
## z.diff.lag12 0.20757 0.19868 1.045 0.304
##
## Residual standard error: 0.02075 on 31 degrees of freedom
## Multiple R-squared: 0.4328, Adjusted R-squared: 0.195
## F-statistic: 1.82 on 13 and 31 DF, p-value: 0.08467
##
##
## Value of test-statistic is: -0.5114
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FRA_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.051169 -0.011549 0.000483 0.012791 0.044565
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.05663 0.46241 -2.285 0.0293 *
## z.diff.lag1 0.16793 0.39941 0.420 0.6771
## z.diff.lag2 0.20270 0.35405 0.573 0.5711
## z.diff.lag3 0.42360 0.31876 1.329 0.1936
## z.diff.lag4 0.40160 0.30655 1.310 0.1998
## z.diff.lag5 0.39509 0.27833 1.420 0.1657
## z.diff.lag6 0.45411 0.25327 1.793 0.0827 .
## z.diff.lag7 0.26110 0.24855 1.050 0.3016
## z.diff.lag8 0.24217 0.22873 1.059 0.2979
## z.diff.lag9 0.31426 0.21882 1.436 0.1610
## z.diff.lag10 0.21426 0.20253 1.058 0.2982
## z.diff.lag11 0.05997 0.18287 0.328 0.7452
## z.diff.lag12 -0.18676 0.13628 -1.370 0.1804
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02254 on 31 degrees of freedom
## Multiple R-squared: 0.566, Adjusted R-squared: 0.3841
## F-statistic: 3.11 on 13 and 31 DF, p-value: 0.004716
##
##
## Value of test-statistic is: -2.2851
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=FRA_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.054164 -0.015556 0.001177 0.018374 0.066201
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.92150 1.15426 -1.665 0.106
## z.diff.lag1 0.74665 1.09069 0.685 0.499
## z.diff.lag2 0.55807 1.01588 0.549 0.587
## z.diff.lag3 0.41037 0.93615 0.438 0.664
## z.diff.lag4 0.46371 0.85599 0.542 0.592
## z.diff.lag5 0.37078 0.78922 0.470 0.642
## z.diff.lag6 0.19738 0.71273 0.277 0.784
## z.diff.lag7 0.11998 0.63525 0.189 0.851
## z.diff.lag8 0.04148 0.55777 0.074 0.941
## z.diff.lag9 -0.19477 0.46967 -0.415 0.681
## z.diff.lag10 -0.21023 0.37136 -0.566 0.575
## z.diff.lag11 -0.22933 0.26099 -0.879 0.386
## z.diff.lag12 -0.19949 0.15844 -1.259 0.217
##
## Residual standard error: 0.02823 on 31 degrees of freedom
## Multiple R-squared: 0.6351, Adjusted R-squared: 0.482
## F-statistic: 4.15 on 13 and 31 DF, p-value: 0.0005642
##
##
## Value of test-statistic is: -1.6647
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
plot(FRA_consumption)
plot(FRA_investment)
plot(FRA_deflator)
plot(FRA_exportdeflator)
plot(FRA_exports)
plot(FRA_imports)
bptest(FRA_consumption)
##
## studentized Breusch-Pagan test
##
## data: FRA_consumption
## BP = 0.66963, df = 2, p-value = 0.7155
bptest(FRA_investment)
##
## studentized Breusch-Pagan test
##
## data: FRA_investment
## BP = 2.8063, df = 2, p-value = 0.2458
bptest(FRA_deflator)
##
## studentized Breusch-Pagan test
##
## data: FRA_deflator
## BP = 11.487, df = 2, p-value = 0.003204
bptest(FRA_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: FRA_exportdeflator
## BP = 4.3765, df = 2, p-value = 0.1121
bptest(FRA_exports)
##
## studentized Breusch-Pagan test
##
## data: FRA_exports
## BP = 1.0107, df = 2, p-value = 0.6033
bptest(FRA_imports)
##
## studentized Breusch-Pagan test
##
## data: FRA_imports
## BP = 7.3279, df = 3, p-value = 0.06215
resettest(FRA_consumption)
##
## RESET test
##
## data: FRA_consumption
## RESET = 1.6506, df1 = 2, df2 = 52, p-value = 0.2018
resettest(FRA_investment)
##
## RESET test
##
## data: FRA_investment
## RESET = 5.3472, df1 = 2, df2 = 52, p-value = 0.007729
resettest(FRA_deflator)
##
## RESET test
##
## data: FRA_deflator
## RESET = 7.0402, df1 = 2, df2 = 52, p-value = 0.001969
resettest(FRA_exportdeflator)
##
## RESET test
##
## data: FRA_exportdeflator
## RESET = 4.2624, df1 = 2, df2 = 52, p-value = 0.01931
resettest(FRA_exports)
##
## RESET test
##
## data: FRA_exports
## RESET = 2.6933, df1 = 2, df2 = 52, p-value = 0.0771
resettest(FRA_imports)
##
## RESET test
##
## data: FRA_imports
## RESET = 1.1169, df1 = 2, df2 = 51, p-value = 0.3352
FRA_regtab <- matrix(c(FRA_Ceffekt, FRA_Ieffekt, FRA_Lukket, FRA_Xeffekt, FRA_Meffekt, FRA_NXeffekt, FRA_Neteffekt,FRA_Lukket_Konklusion, FRA_Def),ncol=9,byrow=TRUE)
colnames(FRA_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(FRA_regtab) <- c("FRA")
FRA_regtab <- as.table(FRA_regtab)
FRA_regtab
## consumption investment Lukket neteffekt
## FRA -0.253128693895561 0.166737862622821 -0.0863908312727399
## exports imports netexports neteffect
## FRA 0.290398542502207 0 0.290398542502207 0.204007711229467
## Lukket konklusion Konklusion
## FRA Wage-led domestic Profit-led
FRA_smoke <- matrix(c(mean(FRA$C/FRA$R), mean(FRA$C/FRA$W), mean(FRA$I/FRA$R), FRA_CR, FRA_CW, FRA_iPS, FRA_ePULC, (1/(1-FRA_ePULC)), FRA_eXP, FRA_ePX, FRA_eMP, mean(FRA$Yf/FRA$Y), mean(FRA$X/FRA$Y), mean(FRA$rulc), (mean(FRA$X/FRA$Y)/mean(FRA$rulc))),ncol=15,byrow=TRUE)
colnames(FRA_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(FRA_smoke) <- c("FRA")
FRA_smoke <- as.table(FRA_smoke)
FRA_smoke
## C/R C/W I/R CR CW iPS
## FRA 1.9681887 0.8626101 0.6693664 0.1536958 0.6441277 0.2490981
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## FRA 0.8240505 5.6834474 -0.5620236 0.3533285 0.0000000 0.9070664
## X/Y RULC (X/Y)/rulc
## FRA 0.1789426 0.6308169 0.2836680
summary(FRA_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$C_dl ~ FRA$R_dl + FRA$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0167229 -0.0048346 -0.0005375 0.0053283 0.0210302
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.007698 0.001706 4.513 0.000034998835260218 ***
## R_dl 0.153696 0.026839 5.727 0.000000466047413250 ***
## W_dl 0.644128 0.057365 11.229 0.000000000000000966 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.008257 on 54 degrees of freedom
## Multiple R-squared: 0.7942, Adjusted R-squared: 0.7865
## F-statistic: 104.2 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(FRA_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$I_dl ~ FRA$PS_dl + FRA$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.048572 -0.015294 0.004213 0.016517 0.045180
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.016425 0.005398 -3.043 0.00362 **
## PS_dl 0.249098 0.113410 2.196 0.03237 *
## Y_dl 1.608205 0.167952 9.575 0.00000000000031 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02356 on 54 degrees of freedom
## Multiple R-squared: 0.7067, Adjusted R-squared: 0.6958
## F-statistic: 65.05 on 2 and 54 DF, p-value: 0.000000000000004148
summary(FRA_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$P_dl ~ L(FRA$ulc_dl) + FRA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.029749 -0.007095 -0.000980 0.006515 0.035541
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009286 0.002067 4.493 0.0000375 ***
## L(ulc_dl) 0.824050 0.050758 16.235 < 0.0000000000000002 ***
## Pm_dl 0.055250 0.027662 1.997 0.0508 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01114 on 54 degrees of freedom
## Multiple R-squared: 0.904, Adjusted R-squared: 0.9005
## F-statistic: 254.3 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(FRA_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$Px_dl ~ FRA$ulc_dl + FRA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.023585 -0.007575 -0.001495 0.004926 0.038006
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0008234 0.0023863 -0.345 0.731
## ulc_dl 0.3533285 0.0586064 6.029 0.000000153 ***
## Pm_dl 0.5255792 0.0319396 16.455 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01286 on 54 degrees of freedom
## Multiple R-squared: 0.9295, Adjusted R-squared: 0.9269
## F-statistic: 356 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(FRA_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$X_dl ~ L(FRA$dPxdPm) + FRA$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.092028 -0.014037 -0.004624 0.015499 0.095187
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0008087 0.0076706 -0.105 0.916427
## L(dPxdPm) -0.5620236 0.1340063 -4.194 0.000103 ***
## Yrw_dl 1.7906980 0.2187614 8.186 0.0000000000495 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02942 on 54 degrees of freedom
## Multiple R-squared: 0.5982, Adjusted R-squared: 0.5833
## F-statistic: 40.19 on 2 and 54 DF, p-value: 0.00000000002036
summary(FRA_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = FRA$M_dl ~ FRA$dPdPm + L(FRA$Y_dl) + L(FRA$M_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.055711 -0.016588 -0.000593 0.018988 0.083588
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.158034 0.040313 -3.920 0.000256 ***
## dPdPm 0.085727 0.076751 1.117 0.269051
## L(Y_dl) 2.919235 0.276881 10.543 0.0000000000000128 ***
## L(M_l) 0.024827 0.006376 3.894 0.000278 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02948 on 53 degrees of freedom
## Multiple R-squared: 0.721, Adjusted R-squared: 0.7053
## F-statistic: 45.67 on 3 and 53 DF, p-value: 0.0000000000000102
GRC_df[!complete.cases(GRC_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.8258995 -0.1912822 NA 0.1741005 -1.7481225 NA
## 1961 0.7584656 -0.2764578 -0.085175576 0.2415344 -1.4207436 0.327378940
## 1962 0.7666088 -0.2657787 0.010679083 0.2333912 -1.4550391 -0.034295559
## 1963 0.7207767 -0.3274259 -0.061647201 0.2792233 -1.2757435 0.179295648
## 1964 0.7116265 -0.3402021 -0.012776184 0.2883735 -1.2434988 0.032244692
## 1965 0.6858694 -0.3770680 -0.036865944 0.3141306 -1.1579465 0.085552266
## 1966 0.6885167 -0.3732157 0.003852306 0.3114833 -1.1664096 -0.008463018
## 1967 0.6916006 -0.3687467 0.004469036 0.3083994 -1.1763596 -0.009950003
## 1968 0.6950275 -0.3638038 0.004942874 0.3049725 -1.1875338 -0.011174274
## 1969 0.6616953 -0.4129502 -0.049146375 0.3383047 -1.0838082 0.103725656
## 1970 0.6329591 -0.4573495 -0.044399303 0.3670409 -1.0022820 0.081526184
## 1971 0.6127919 -0.4897298 -0.032380338 0.3872081 -0.9487931 0.053488880
## 1972 0.5962559 -0.5170853 -0.027355527 0.4037441 -0.9069740 0.041819088
## 1973 0.5333840 -0.6285137 -0.111428328 0.4666160 -0.7622486 0.144725395
## 1989 0.5939432 -0.5209717 0.027930317 0.4060568 -0.9012621 -0.039498251
## 1990 0.5995268 -0.5116146 0.009357068 0.4004732 -0.9151084 -0.013846324
## 1991 0.5577193 -0.5838995 -0.072284896 0.4422807 -0.8158105 0.099297913
## 1992 0.5498868 -0.5980428 -0.014143345 0.4501132 -0.7982562 0.017554352
## 2019 0.5872286 -0.5323410 0.013838442 0.4127714 -0.8848614 -0.019362969
## 2020 0.5822815 -0.5408013 -0.008460229 0.4177185 -0.8729475 0.011913909
## 2021 0.5964757 -0.5167168 0.024084515 0.4035243 -0.9075186 -0.034571081
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 37.7776 3.631716 NA 8971158919800 29.82504 NA
## 1961 42.7657 3.755736 0.124020045044 9393148424028 29.87100 0.04596567
## 1962 42.9217 3.759378 0.003641146128 9947056571939 29.92830 0.05729615
## 1963 48.0057 3.871320 0.111942228305 10492391850587 29.98167 0.05337372
## 1964 52.5229 3.961249 0.089929511113 11179202280571 30.04508 0.06340470
## 1965 58.1786 4.063518 0.102268324555 11795160435162 30.09871 0.05363420
## 1966 61.9570 4.126441 0.062923006516 12511248271054 30.15765 0.05893879
## 1967 65.4696 4.181586 0.055145316724 13093603981589 30.20314 0.04549576
## 1968 70.1859 4.251147 0.069561523391 13915276771456 30.26401 0.06086342
## 1969 78.3019 4.360572 0.109424432190 14719468826646 30.32019 0.05618374
## 1970 85.2947 4.446112 0.085540450574 15103576994695 30.34595 0.02576058
## 1971 91.9842 4.521617 0.075504504248 15702890250297 30.38487 0.03891318
## 1972 101.3291 4.618374 0.096756812380 16580237041591 30.43923 0.05436666
## 1973 109.5280 4.696180 0.077806588782 17629335440452 30.50059 0.06135285
## 1989 143.1678 4.964017 0.037286284049 28201807247366 30.97041 0.03816788
## 1990 143.1683 4.964021 0.000003492399 29094396446621 31.00157 0.03115953
## 1991 147.6089 4.994566 0.030545347146 29550088727047 31.01711 0.01554115
## 1992 148.6380 5.001514 0.006947611195 30170956363599 31.03790 0.02079301
## 2019 186.4812 5.228330 0.018535581354 NA NA NA
## 2020 168.3137 5.125830 -0.102500929572 NA NA NA
## 2021 181.5911 5.201757 0.075927956014 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 0.03463 37.74297 3.630799 NA 22.9067 3.131429
## 1961 0.04046 42.72524 3.754790 0.123990613 24.4743 3.197624
## 1962 0.04447 42.87723 3.758341 0.003551069 25.4708 3.237533
## 1963 0.05151 47.95419 3.870246 0.111905264 26.9121 3.292576
## 1964 0.05937 52.46353 3.960118 0.089872081 29.6330 3.388889
## 1965 0.06823 58.11037 4.062344 0.102225872 31.7233 3.457051
## 1966 0.08156 61.87544 4.125123 0.062779199 33.9742 3.525601
## 1967 0.09062 65.37898 4.180201 0.055077468 36.3390 3.592892
## 1968 0.10101 70.08489 4.249707 0.069506422 39.1646 3.667773
## 1969 0.11433 78.18757 4.359111 0.109403462 41.6560 3.729445
## 1970 0.12441 85.17029 4.444653 0.085541981 45.4225 3.816008
## 1971 0.13423 91.84997 4.520156 0.075503821 47.9860 3.870909
## 1972 0.15055 101.17855 4.616887 0.096730293 50.8676 3.929226
## 1973 0.18580 109.34220 4.694482 0.077595636 53.9679 3.988389
## 1989 4.04525 139.12255 4.935355 0.036303149 91.3001 4.514152
## 1990 5.54078 137.62752 4.924551 -0.010804294 93.6791 4.539875
## 1991 7.19341 140.41549 4.944606 0.020054908 96.2635 4.567089
## 1992 8.75051 139.88749 4.940838 -0.003767356 98.4971 4.590027
## 2019 31.02565 155.45555 5.046360 0.021101255 126.4712 4.840015
## 2020 27.75933 140.55437 4.945594 -0.100765450 115.0888 4.745704
## 2021 30.29724 151.29386 5.019224 0.073629649 123.7780 4.818490
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA 31.17190 3.439517 NA 6.57107 1.882677
## 1961 0.06619414 32.40563 3.478332 0.038815037 10.31961 2.334046
## 1962 0.03990911 32.87006 3.492562 0.014230153 10.00717 2.303302
## 1963 0.05504330 34.56426 3.542820 0.050258063 13.38993 2.594503
## 1964 0.09631261 37.33444 3.619916 0.077095897 15.12909 2.716619
## 1965 0.06816282 39.85613 3.685276 0.065359928 18.25424 2.904398
## 1966 0.06854999 42.60227 3.751908 0.066631505 19.27317 2.958714
## 1967 0.06729013 45.21614 3.811454 0.059546504 20.16284 3.003841
## 1968 0.07488173 48.71093 3.885903 0.074449295 21.37396 3.062173
## 1969 0.06167214 51.73634 3.946161 0.060257087 26.45123 3.275303
## 1970 0.08656216 53.90931 3.987303 0.041142677 31.26098 3.442371
## 1971 0.05490172 56.28492 4.030427 0.043123483 35.56505 3.571363
## 1972 0.05831688 60.32831 4.099801 0.069374766 40.85024 3.709913
## 1973 0.05916325 58.32138 4.065969 -0.033832692 51.02082 3.932234
## 1989 0.05975226 82.63089 4.414384 0.064233466 56.49166 4.034093
## 1990 0.02572323 82.51139 4.412936 -0.001447226 55.11613 4.009442
## 1991 0.02721411 78.31243 4.360706 -0.052229989 62.10306 4.128795
## 1992 0.02293788 76.92228 4.342796 -0.017910701 62.96521 4.142582
## 2019 0.00795271 91.28795 4.514019 0.034939697 64.16760 4.161498
## 2020 -0.09431061 81.84221 4.404793 -0.109225678 58.71216 4.072647
## 2021 0.07278563 90.24311 4.502507 0.097714165 61.05075 4.111705
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA 11.24260 2.419710 NA 0.08580 -2.4557363
## 1961 0.451369553 12.72191 2.543326 0.12361557 0.09699 -2.3331474
## 1962 -0.030744490 13.36583 2.592701 0.04937575 0.11163 -2.1925654
## 1963 0.291200912 12.50161 2.525857 -0.06684401 0.11003 -2.2070022
## 1964 0.122116774 14.91688 2.702493 0.17663602 0.13582 -1.9964248
## 1965 0.187778138 17.24137 2.847312 0.14481827 0.16265 -1.8161546
## 1966 0.054316181 18.18065 2.900358 0.05304611 0.18926 -1.6646335
## 1967 0.045127465 17.93774 2.886907 -0.01345097 0.19548 -1.6322972
## 1968 0.058332147 22.08062 3.094700 0.20779343 0.24224 -1.4178263
## 1969 0.213129118 25.72042 3.247285 0.15258493 0.29251 -1.2292564
## 1970 0.167068164 25.09243 3.222566 -0.02471902 0.31950 -1.1409980
## 1971 0.128992701 27.95984 3.330769 0.10820299 0.37067 -0.9924431
## 1972 0.138549380 33.49593 3.511424 0.18065474 0.49325 -0.7067391
## 1973 0.222321031 37.26791 3.618133 0.10670870 0.65091 -0.4293839
## 1989 -0.003195102 25.75257 3.248534 0.03674848 9.12942 2.2115022
## 1990 -0.024650618 26.17798 3.264919 0.01638417 11.29099 2.4240051
## 1991 0.119352821 28.12667 3.336718 0.07179964 13.61478 2.6111560
## 1992 0.013786995 26.45735 3.275534 -0.06118423 14.85870 2.6985856
## 2019 0.001738286 21.51162 3.068593 0.04572793 21.40543 3.0636446
## 2020 -0.088851540 15.05813 2.711918 -0.35667521 14.86393 2.6989375
## 2021 0.039058568 20.02732 2.997097 0.28517930 19.92718 2.9920846
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA 0.07306 -2.6164743 NA 0.8515152 -0.1607380
## 1961 0.12258887 0.08142 -2.5081343 0.10833992 0.8394680 -0.1749869
## 1962 0.14058195 0.09387 -2.3658444 0.14228990 0.8409030 -0.1732790
## 1963 -0.01443678 0.09414 -2.3629722 0.00287219 0.8555848 -0.1559700
## 1964 0.21057742 0.11853 -2.1325892 0.23038306 0.8726992 -0.1361644
## 1965 0.18027017 0.14468 -1.9332309 0.19935831 0.8895174 -0.1170762
## 1966 0.15152108 0.16625 -1.7942626 0.13896827 0.8784212 -0.1296291
## 1967 0.03233634 0.17195 -1.7605515 0.03371106 0.8796296 -0.1282543
## 1968 0.21447090 0.21242 -1.5491898 0.21136171 0.8768989 -0.1313635
## 1969 0.18856988 0.25741 -1.3570851 0.19210470 0.8800041 -0.1278287
## 1970 0.08825842 0.27789 -1.2805299 0.07655521 0.8697653 -0.1395319
## 1971 0.14855491 0.32266 -1.1311561 0.14937379 0.8704778 -0.1387130
## 1972 0.28570397 0.42829 -0.8479547 0.28320140 0.8683021 -0.1412156
## 1973 0.27735524 0.57210 -0.5584415 0.28951327 0.8789234 -0.1290576
## 1989 0.21867844 7.72114 2.0439620 0.22519068 0.8457427 -0.1675401
## 1990 0.21250290 9.66272 2.2682752 0.22431316 0.8557903 -0.1557299
## 1991 0.18715090 11.45749 2.4386437 0.17036848 0.8415479 -0.1725123
## 1992 0.08742958 12.17937 2.4997435 0.06109987 0.8196794 -0.1988420
## 2019 0.04544759 17.26343 2.8485904 0.14821087 0.8064977 -0.2150542
## 2020 -0.36470716 11.39994 2.4336081 -0.41498230 0.7669533 -0.2653294
## 2021 0.29314716 13.31039 2.5885449 0.15493684 0.6679515 -0.4035397
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA 9.573244 2.258972 NA NA NA
## 1961 -0.0142489522 10.679636 2.368339 0.10936662 NA NA
## 1962 0.0017079527 11.239366 2.419422 0.05108370 NA NA
## 1963 0.0173089648 10.696188 2.369887 -0.04953505 NA NA
## 1964 0.0198056333 13.017949 2.566329 0.19644165 NA NA
## 1965 0.0190881408 15.336498 2.730235 0.16390641 NA NA
## 1966 -0.0125528057 15.970269 2.770729 0.04049331 NA NA
## 1967 0.0013747160 15.778568 2.758653 -0.01207625 NA NA
## 1968 -0.0031091878 19.362472 2.963337 0.20468424 NA NA
## 1969 0.0035348137 22.634075 3.119457 0.15611974 NA NA
## 1970 -0.0117032122 21.824524 3.083034 -0.03642223 NA NA
## 1971 0.0008188802 24.338420 3.192056 0.10902187 NA NA
## 1972 -0.0025025670 29.084586 3.370208 0.17815218 NA NA
## 1973 0.0121580261 32.755636 3.489075 0.11886672 -9.584004 0.332772
## 1989 0.0065122379 21.780047 3.080994 0.04326071 NA NA
## 1990 0.0118102638 22.402862 3.109189 0.02819444 NA NA
## 1991 -0.0167824223 23.669941 3.164206 0.05501721 NA NA
## 1992 -0.0263297127 21.686544 3.076692 -0.08751395 8.125238 2.949901
## 2019 0.1027632804 17.349072 2.853539 0.14849121 2.980136 2.636122
## 2020 -0.0502751436 11.548882 2.446589 -0.40695035 NA NA
## 2021 -0.1382103153 13.377279 2.593558 0.14696898 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 1.012457 0.01238035 NA 2.311284 0.8378030
## 1961 NA 1.023250 0.02298393 0.010603588 2.273639 0.8213814
## 1962 NA 1.070703 0.06831582 0.045331882 2.258225 0.8145791
## 1963 NA 1.082600 0.07936519 0.011049370 2.271150 0.8202863
## 1964 NA 1.119466 0.11285188 0.033486689 2.349271 0.8541052
## 1965 NA 1.165120 0.15282426 0.039972382 2.367350 0.8617712
## 1966 NA 1.221242 0.19986862 0.047044362 2.400460 0.8756605
## 1967 NA 1.247739 0.22133279 0.021464174 2.387062 0.8700633
## 1968 NA 1.266172 0.23599778 0.014664988 2.398108 0.8746800
## 1969 NA 1.306451 0.26731430 0.031316520 2.406840 0.8783147
## 1970 NA 1.356089 0.30460497 0.037290669 2.501459 0.9168742
## 1971 NA 1.396026 0.33362956 0.029024588 2.550568 0.9363161
## 1972 NA 1.466922 0.38316619 0.049536634 2.754847 1.0133621
## 1973 NA 1.772974 0.57265836 0.189492171 3.344974 1.2074590
## 1989 NA 26.354390 3.27163485 0.135384941 40.999469 3.7135591
## 1990 NA 31.807972 3.45971696 0.188082107 46.604902 3.8417057
## 1991 NA 38.101424 3.64025164 0.180534687 52.328995 3.9575506
## 1992 NA 43.741219 3.77829087 0.138039231 58.746179 4.0732261
## 2019 -0.04484164 100.522975 4.61038631 -0.003795656 108.975553 4.6911236
## 2020 NA 100.377316 4.60893624 -0.001450066 102.641519 4.6312425
## 2021 NA 100.964301 4.61476700 0.005830757 108.605736 4.6877242
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 2.116386 0.7497101 NA 1.79171 0.5831705
## 1961 -0.016421586 2.081988 0.7333233 -0.016386852 2.01202 0.6991392
## 1962 -0.006802305 2.063129 0.7242239 -0.009099395 1.86764 0.6246756
## 1963 0.005707205 2.213461 0.7945572 0.070333359 2.11725 0.7501181
## 1964 0.033818884 2.256266 0.8137114 0.019154149 2.00368 0.6949855
## 1965 0.007665991 2.233251 0.8034585 -0.010252907 2.32411 0.8433372
## 1966 0.013889283 2.316733 0.8401579 0.036699413 3.06899 1.1213485
## 1967 -0.005597190 2.302066 0.8338069 -0.006350937 3.20330 1.1641815
## 1968 0.004616689 2.258454 0.8146804 -0.019126562 3.13694 1.1432478
## 1969 0.003634716 2.299732 0.8327927 0.018112306 3.44110 1.2357912
## 1970 0.038559558 2.346008 0.8527152 0.019922479 3.89804 1.3604739
## 1971 0.019441838 2.278050 0.8233199 -0.029395215 4.61589 1.5295047
## 1972 0.077046008 2.381784 0.8678499 0.044529925 5.69482 1.7395570
## 1973 0.194096953 3.066194 1.1204372 0.252587280 7.36978 1.9973879
## 1989 0.137148193 34.572752 3.5430659 0.130563826 17.40189 2.8565788
## 1990 0.128146609 40.062321 3.6904363 0.147370395 16.79893 2.8213152
## 1991 0.115844889 45.656128 3.8211378 0.130701564 17.49173 2.8617282
## 1992 0.115675504 50.265501 3.9173190 0.096181157 19.24444 2.9572222
## 2019 0.012134819 104.386346 4.6480989 -0.003281541 66.78110 4.2014201
## 2020 -0.059881050 99.109180 4.5962221 -0.051876807 52.50733 3.9609528
## 2021 0.056481701 104.201450 4.6463260 0.050103976 61.91993 4.1258421
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA 2.42945 0.8876649 NA 0.8251424 -0.1921993
## 1961 0.11596872 2.74007 1.0079835 0.12031857 0.7577481 -0.2774043
## 1962 -0.07446359 3.02961 1.1084339 0.10045043 0.7658145 -0.2668153
## 1963 0.12544248 3.52810 1.2607595 0.15232558 0.7200033 -0.3284995
## 1964 -0.05513259 4.20719 1.4367950 0.17603548 0.7108221 -0.3413331
## 1965 0.14835168 4.91293 1.5918705 0.15507554 0.6850651 -0.3782415
## 1966 0.27801135 4.97778 1.6049840 0.01311350 0.6876103 -0.3745330
## 1967 0.04283301 5.24456 1.6571913 0.05220734 0.6906433 -0.3701318
## 1968 -0.02093373 5.83404 1.7637097 0.10651838 0.6940273 -0.3652440
## 1969 0.09254339 6.65432 1.8952663 0.13155654 0.6607291 -0.4144114
## 1970 0.12468267 7.08156 1.9574942 0.06222795 0.6320359 -0.4588091
## 1971 0.16903084 7.63981 2.0333727 0.07587851 0.6118977 -0.4911902
## 1972 0.21005229 8.73159 2.1669475 0.13357475 0.5953700 -0.5185722
## 1973 0.25783087 11.66919 2.4569520 0.29000455 0.5324792 -0.6302115
## 1989 0.01919536 22.85911 3.1293497 0.09960016 0.5771611 -0.5496338
## 1990 -0.03526363 24.77048 3.2096526 0.08030290 0.5763244 -0.5510845
## 1991 0.04041300 26.21691 3.2664046 0.05675200 0.5305400 -0.6338599
## 1992 0.09549399 26.49909 3.2771104 0.01070577 0.5175143 -0.6587182
## 2019 0.04689165 63.98514 4.1586509 0.02452613 0.4895290 -0.7143116
## 2020 -0.24046733 52.46781 3.9601998 -0.19845103 0.4862481 -0.7210364
## 2021 0.16488932 60.75773 4.1068943 0.14669448 0.4969578 -0.6992502
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA 0.8354215 -0.17981895 NA 54.41788 3.996693
## 1961 -0.085205008 0.7753658 -0.25442037 -0.074601420 59.47608 4.085574
## 1962 0.010589007 0.8199602 -0.19849948 0.055920888 58.12187 4.062542
## 1963 -0.061684165 0.7794753 -0.24913427 -0.050634795 63.79320 4.155647
## 1964 -0.012833614 0.7957413 -0.22848120 0.020653076 68.12339 4.221321
## 1965 -0.036908396 0.7981831 -0.22541721 0.003063986 73.17084 4.292797
## 1966 0.003708499 0.8397388 -0.17466435 0.050752860 75.69349 4.326692
## 1967 0.004401188 0.8617423 -0.14879899 0.025865361 78.12527 4.358314
## 1968 0.004887772 0.8787576 -0.12924623 0.019552760 81.28847 4.398004
## 1969 -0.049167345 0.8632102 -0.14709706 -0.017850826 87.26390 4.468937
## 1970 -0.044397773 0.8570970 -0.15420416 -0.007107105 91.85148 4.520173
## 1971 -0.032381022 0.8542251 -0.15756059 -0.003356434 95.42641 4.558355
## 1972 -0.027382046 0.8733612 -0.13540601 0.022154588 100.63290 4.611479
## 1973 -0.111639280 0.9440717 -0.05755312 0.077852891 103.77427 4.642218
## 1989 0.026947182 15.2107288 2.72200102 0.162332123 97.20474 4.576819
## 1990 -0.001450718 18.3317111 2.90863241 0.186631389 95.51671 4.559301
## 1991 -0.082775336 20.2143300 3.00639176 0.097759351 98.37152 4.588751
## 1992 -0.024858313 22.6367044 3.11957268 0.113180919 97.41580 4.578988
## 2019 0.016404115 49.2089085 3.89607467 0.012608459 103.96187 4.644024
## 2020 -0.006724749 48.8082746 3.88789986 -0.008174814 96.56033 4.570168
## 2021 0.021786209 50.1749965 3.91551683 0.027616966 102.64140 4.631241
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA 0.1117371
## 1961 0.088881512 0.00003473472 0.0270251741 0.1111192
## 1962 -0.023032240 -0.00229708990 0.0521341868 0.1140973
## 1963 0.093104639 0.06462615430 0.0053421656 0.1175975
## 1964 0.065674041 -0.01466473472 -0.0003321945 0.1182507
## 1965 0.071476383 -0.01791889765 0.0323063913 0.1243935
## 1966 0.033895097 0.02281013029 0.0331550788 0.1298767
## 1967 0.031621460 -0.00075374711 0.0270613634 0.1290348
## 1968 0.039690549 -0.02374325047 0.0100482988 0.1278174
## 1969 0.070932693 0.01447759002 0.0276818041 0.1289294
## 1970 0.051236125 -0.01863707888 -0.0012688892 0.1287255
## 1971 0.038182416 -0.04883705260 0.0095827502 0.1332370
## 1972 0.053123828 -0.03251608257 -0.0275093732 0.1423718
## 1973 0.030738822 0.05849032706 -0.0046047823 0.1738274
## 1989 0.025337375 -0.00658436662 -0.0017632523 0.2812155
## 1990 -0.017518238 0.01922378619 0.0599354981 0.2903535
## 1991 0.029450113 0.01485667508 0.0646897984 0.2961111
## 1992 -0.009762898 -0.01949434758 0.0223637268 0.3077512
## 2019 0.012344556 -0.01541635941 -0.0159304750 0.7012302
## 2020 -0.073856232 0.00800424359 0.0584309845 0.6236874
## 2021 0.061073424 -0.00637772471 -0.0506509431 0.6755709
## 2022 NA NA NA NA
GRC <- GRC_df[34:59,]
GRC[!complete.cases(GRC),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
GRC %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1993 0.5348550 -0.6257595 -0.027716700 0.4651450 -0.7654062 0.032850014
## 1994 0.5320748 -0.6309713 -0.005211753 0.4679252 -0.7594467 0.005959443
## 1995 0.5426254 -0.6113361 0.019635139 0.4573746 -0.7822524 -0.022805712
## 1996 0.5357822 -0.6240275 -0.012691327 0.4642178 -0.7674015 0.014850916
## 1997 0.5461601 -0.6048432 0.019184319 0.4538399 -0.7900107 -0.022609227
## 1998 0.5512656 -0.5955386 0.009304602 0.4487344 -0.8013241 -0.011313356
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1993 146.2611 4.985393 -0.01612044 30536072225426 31.04993 0.01202893
## 1994 149.1861 5.005195 0.01980114 31507570486056 31.08125 0.03131917
## 1995 152.3187 5.025975 0.02078052 32424915529848 31.10995 0.02869928
## 1996 156.6783 5.054195 0.02821962 33383961784841 31.13910 0.02914847
## 1997 163.7041 5.098061 0.04386587 34495978457855 31.17186 0.03276715
## 1998 170.0802 5.136270 0.03820956 35430882928826 31.19860 0.02674109
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1993 9.45710 136.8040 4.918549 -0.02228921 97.7737 4.582656 -0.007371481
## 1994 10.40783 138.7783 4.932877 0.01432824 99.7456 4.602623 0.019967320
## 1995 11.57661 140.7421 4.946929 0.01405159 102.6809 4.631626 0.029003177
## 1996 13.09752 143.5808 4.966898 0.01996874 105.4275 4.658024 0.026397392
## 1997 14.74300 148.9611 5.003685 0.03678739 110.1314 4.701674 0.043650685
## 1998 15.64921 154.4310 5.039747 0.03606213 115.1599 4.746322 0.044647399
## W W_l W_dl R R_l R_dl
## 1993 73.17031 4.292790 -0.050005913 63.63369 4.153143 0.010560802
## 1994 73.84041 4.301906 0.009116482 64.93786 4.173431 0.020287678
## 1995 76.37023 4.335593 0.033686726 64.37186 4.164677 -0.008754125
## 1996 76.92803 4.342870 0.007277410 66.65275 4.199496 0.034819653
## 1997 81.35661 4.398842 0.055971713 67.60449 4.213674 0.014178168
## 1998 85.13249 4.444209 0.045366734 69.29850 4.238423 0.024748775
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1993 25.22320 3.227764 -0.04776980 15.91480 2.767249 0.06866394 13.07775
## 1994 24.86944 3.213640 -0.01412447 16.61007 2.810009 0.04275964 13.54977
## 1995 25.64084 3.244186 0.03054665 18.57277 2.921697 0.11168739 14.93977
## 1996 27.96186 3.330841 0.08665505 21.42318 3.064474 0.14277698 17.18018
## 1997 28.94129 3.365269 0.03442786 23.16473 3.142631 0.07815735 18.65873
## 1998 35.47900 3.568941 0.20367168 29.70693 3.391380 0.24874949 23.33193
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1993 2.570912 0.07116878 0.8217351 -0.1963372 0.002504834 20.72679
## 1994 2.606370 0.03545726 0.8157563 -0.2036396 -0.007302384 20.28740
## 1995 2.704027 0.09765721 0.8043911 -0.2176697 -0.014030180 20.62526
## 1996 2.843756 0.13972961 0.8019435 -0.2207171 -0.003047375 22.42383
## 1997 2.926314 0.08255774 0.8054801 -0.2163167 0.004400389 23.31163
## 1998 3.149823 0.22350868 0.7854036 -0.2415575 -0.025240813 27.86533
## I_l I_dl r r_l r_dl P P_l
## 1993 3.031427 -0.04526496 7.727385 2.928856 -0.021045508 50.05208 3.913064
## 1994 3.010000 -0.02142685 8.560679 2.972439 0.043582685 55.64894 4.019063
## 1995 3.026517 0.01651647 6.528963 2.862646 -0.109792383 61.09794 4.112478
## 1996 3.110124 0.08360767 6.312307 2.850194 -0.012452018 65.76319 4.186060
## 1997 3.148953 0.03882825 3.159565 2.648894 -0.201299874 70.07290 4.249536
## 1998 3.327383 0.17843086 3.212481 2.652630 0.003735729 73.64912 4.299312
## P_dl Pm Pm_l Pm_dl Px Px_l Px_dl
## 1993 0.13477325 63.08266 4.144446 0.07121976 54.86261 4.004832 0.08751312
## 1994 0.10599886 66.61732 4.198965 0.05451877 59.58042 4.087327 0.08249490
## 1995 0.09341509 71.58917 4.270944 0.07197912 64.75163 4.170559 0.08323186
## 1996 0.07358222 73.77121 4.300969 0.03002482 68.21688 4.222692 0.05213315
## 1997 0.06347586 75.22642 4.320502 0.01953389 70.05080 4.249221 0.02652861
## 1998 0.04977604 78.32444 4.360860 0.04035727 73.52482 4.297623 0.04840243
## X X_l X_dl M M_l M_dl rulc
## 1993 18.74472 2.930912 -0.02631008 26.66578 3.283381 0.006270703 0.5002718
## 1994 20.12944 3.002183 0.07127131 27.06515 3.298247 0.014865827 0.4949551
## 1995 20.73259 3.031707 0.02952344 29.48664 3.383937 0.085690357 0.5013844
## 1996 21.57941 3.071740 0.04003276 32.41652 3.478668 0.094730890 0.4909935
## 1997 26.56488 3.279590 0.20785042 35.15176 3.559675 0.081006519 0.4969735
## 1998 27.76412 3.323745 0.04415450 41.53596 3.726560 0.166884870 0.5005432
## rulc_l rulc_dl ulc ulc_l ulc_dl Tau
## 1993 -0.6926037 -0.033885474 25.03965 3.220460 0.10088778 94.69031
## 1994 -0.7032883 -0.010684657 27.54372 3.315775 0.09531420 95.01212
## 1995 -0.6903821 0.012906209 30.63355 3.422096 0.10632130 95.93676
## 1996 -0.7113243 -0.020942212 32.28930 3.474736 0.05264001 98.26400
## 1997 -0.6992185 0.012105842 34.82438 3.550318 0.07558170 102.14309
## 1998 -0.6920613 0.007157174 36.86457 3.607251 0.05693321 102.53281
## Tau_l Tau_dl dPxdPm dPdPm Trade
## 1993 4.550612 -0.028376805 0.016293361 0.063553489 0.3104756
## 1994 4.554005 0.003392865 0.027976139 0.051480096 0.3163471
## 1995 4.563689 0.009684750 0.011252743 0.021435974 0.3296984
## 1996 4.587658 0.023968432 0.022108330 0.043557405 0.3446293
## 1997 4.626375 0.038716934 0.006994725 0.043941972 0.3770012
## 1998 4.630183 0.003808190 0.008045162 0.009418767 0.4074553
GRC %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1993 0.5348550 -0.6257595 -0.0277167004 0.4651450 -0.7654062 0.032850014
## 1994 0.5320748 -0.6309713 -0.0052117531 0.4679252 -0.7594467 0.005959443
## 1995 0.5426254 -0.6113361 0.0196351389 0.4573746 -0.7822524 -0.022805712
## 1996 0.5357822 -0.6240275 -0.0126913273 0.4642178 -0.7674015 0.014850916
## 1997 0.5461601 -0.6048432 0.0191843190 0.4538399 -0.7900107 -0.022609227
## 1998 0.5512656 -0.5955386 0.0093046024 0.4487344 -0.8013241 -0.011313356
## 1999 0.5557685 -0.5874034 0.0081351348 0.4442315 -0.8114095 -0.010085378
## 2000 0.5572067 -0.5848190 0.0025843950 0.4427933 -0.8146522 -0.003242715
## 2001 0.5492647 -0.5991748 -0.0143557517 0.4507353 -0.7968751 0.017777130
## 2002 0.5782915 -0.5476771 0.0514976304 0.4217085 -0.8634411 -0.066565989
## 2003 0.5722705 -0.5581434 -0.0104662792 0.4277295 -0.8492644 0.014176664
## 2004 0.5623422 -0.5756448 -0.0175013631 0.4376578 -0.8263179 0.022946527
## 2005 0.6003706 -0.5102082 0.0654365592 0.3996294 -0.9172175 -0.090899678
## 2006 0.5806186 -0.5436612 -0.0334529747 0.4193814 -0.8689745 0.048243045
## 2007 0.5773164 -0.5493648 -0.0057036432 0.4226836 -0.8611313 0.007843176
## 2008 0.5834231 -0.5388426 0.0105222033 0.4165769 -0.8756842 -0.014552858
## 2009 0.6023736 -0.5068774 0.0319652755 0.3976264 -0.9222425 -0.046558322
## 2010 0.6114138 -0.4919813 0.0148960812 0.3885862 -0.9452403 -0.022997774
## 2011 0.5995533 -0.5115704 -0.0195891422 0.4004467 -0.9151746 0.030065710
## 2012 0.5889037 -0.5294925 -0.0179221037 0.4110963 -0.8889279 0.026246673
## 2013 0.5632138 -0.5740959 -0.0446034011 0.4367862 -0.8283115 0.060616394
## 2014 0.5734392 -0.5561033 0.0179925828 0.4265608 -0.8520004 -0.023688886
## 2015 0.5725622 -0.5576338 -0.0015304853 0.4274378 -0.8499466 0.002053796
## 2016 0.5794691 -0.5456429 0.0119909543 0.4205309 -0.8662374 -0.016290810
## 2017 0.5786864 -0.5469946 -0.0013517271 0.4213136 -0.8643778 0.001859620
## 2018 0.5791583 -0.5461795 0.0008151232 0.4208417 -0.8654985 -0.001120679
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1993 146.2611 4.985393 -0.016120439 30536072225426 31.04993 0.012028929
## 1994 149.1861 5.005195 0.019801139 31507570486056 31.08125 0.031319169
## 1995 152.3187 5.025975 0.020780516 32424915529848 31.10995 0.028699275
## 1996 156.6783 5.054195 0.028219622 33383961784841 31.13910 0.029148473
## 1997 163.7041 5.098061 0.043865871 34495978457855 31.17186 0.032767152
## 1998 170.0802 5.136270 0.038209561 35430882928826 31.19860 0.026741088
## 1999 175.3061 5.166534 0.030263498 36583849556824 31.23063 0.032023035
## 2000 182.1776 5.204982 0.038448447 38054868881274 31.27005 0.039422162
## 2001 189.7045 5.245468 0.040485563 38624053015307 31.28490 0.014846181
## 2002 197.1464 5.283947 0.038479002 39209855400970 31.29995 0.015052911
## 2003 208.5701 5.340275 0.056328596 40068254507320 31.32161 0.021656234
## 2004 219.1258 5.389646 0.049370798 41394830659252 31.35418 0.032571647
## 2005 220.4387 5.395620 0.005973658 42579084558063 31.38238 0.028207150
## 2006 232.8988 5.450604 0.054984373 43910381774738 31.41317 0.030787619
## 2007 240.5234 5.482817 0.032213358 45129047405703 31.44055 0.027375327
## 2008 239.7172 5.479460 -0.003357487 45300994809136 31.44435 0.003802887
## 2009 229.4076 5.435500 -0.043959561 43809935204043 31.41088 -0.033468370
## 2010 216.8383 5.379152 -0.056348420 45107471170271 31.44007 0.029187268
## 2011 197.0355 5.283384 -0.095767999 45944157329716 31.45845 0.018378797
## 2012 182.6510 5.207577 -0.075806687 46539901050039 31.47133 0.012883344
## 2013 176.7305 5.174626 -0.032951255 47215897847875 31.48575 0.014420623
## 2014 178.0379 5.181996 0.007370476 48178510155295 31.50593 0.020182420
## 2015 177.2584 5.177609 -0.004387894 49305643534299 31.52906 0.023125474
## 2016 176.9199 5.175697 -0.001911467 50148196177132 31.54600 0.016943997
## 2017 179.5827 5.190636 0.014938738 51301075631435 31.56873 0.022729174
## 2018 183.0565 5.209795 0.019159022 52450626335735 31.59089 0.022160557
## Tax Yf Yf_l Yf_dl C C_l
## 1993 9.45710 136.8040 4.918549 -0.0222892121 97.7737 4.582656
## 1994 10.40783 138.7783 4.932877 0.0143282351 99.7456 4.602623
## 1995 11.57661 140.7421 4.946929 0.0140515869 102.6809 4.631626
## 1996 13.09752 143.5808 4.966898 0.0199687371 105.4275 4.658024
## 1997 14.74300 148.9611 5.003685 0.0367873944 110.1314 4.701674
## 1998 15.64921 154.4310 5.039747 0.0360621319 115.1599 4.746322
## 1999 17.53407 157.7720 5.061151 0.0214038131 119.1874 4.780697
## 2000 18.67565 163.5020 5.096825 0.0356737739 122.1950 4.805618
## 2001 19.58491 170.1196 5.136502 0.0396767434 126.6229 4.841213
## 2002 21.19789 175.9485 5.170191 0.0336897351 133.0621 4.890816
## 2003 21.88773 186.6824 5.229409 0.0592172211 139.0939 4.935149
## 2004 22.70678 196.4190 5.280250 0.0508416179 144.1109 4.970583
## 2005 23.89766 196.5410 5.280871 0.0006210301 148.7582 5.002322
## 2006 26.96144 205.9374 5.327572 0.0467007804 152.8965 5.029761
## 2007 29.54815 210.9753 5.351741 0.0241687831 159.1289 5.069715
## 2008 30.72001 208.9972 5.342321 -0.0094200211 164.8319 5.104926
## 2009 28.08030 201.3273 5.304932 -0.0373888650 162.0791 5.088084
## 2010 28.73365 188.1046 5.236998 -0.0679334850 151.5134 5.020674
## 2011 28.15097 168.8845 5.129215 -0.1077832299 136.7443 4.918113
## 2012 26.02395 156.6270 5.053868 -0.0753477252 125.7735 4.834483
## 2013 25.59297 151.1375 5.018190 -0.0356772847 122.5424 4.808457
## 2014 27.78918 150.2487 5.012292 -0.0058981628 123.3057 4.814667
## 2015 28.87190 148.3865 4.999820 -0.0124716980 123.0786 4.812823
## 2016 30.61824 146.3017 4.985671 -0.0141497017 123.0519 4.812606
## 2017 31.01459 148.5681 5.001044 0.0153728518 124.1044 4.821123
## 2018 30.84689 152.2096 5.025259 0.0242150777 125.4694 4.832062
## C_dl W W_l W_dl R R_l
## 1993 -0.0073714814 73.17031 4.292790 -0.050005913 63.63369 4.153143
## 1994 0.0199673198 73.84041 4.301906 0.009116482 64.93786 4.173431
## 1995 0.0290031765 76.37023 4.335593 0.033686726 64.37186 4.164677
## 1996 0.0263973918 76.92803 4.342870 0.007277410 66.65275 4.199496
## 1997 0.0436506855 81.35661 4.398842 0.055971713 67.60449 4.213674
## 1998 0.0446473990 85.13249 4.444209 0.045366734 69.29850 4.238423
## 1999 0.0343754470 87.68473 4.473748 0.029538948 70.08730 4.249742
## 2000 0.0249210850 91.10438 4.512006 0.038258169 72.39757 4.282173
## 2001 0.0355952487 93.44069 4.537327 0.025320992 76.67890 4.339627
## 2002 0.0496025585 101.74953 4.622514 0.085187366 74.19898 4.306750
## 2003 0.0443333081 106.83282 4.671265 0.048750942 79.84955 4.380144
## 2004 0.0354338974 110.45470 4.704605 0.033340255 85.96432 4.453932
## 2005 0.0317390269 117.99745 4.770663 0.066057589 78.54359 4.363654
## 2006 0.0274390529 119.57106 4.783911 0.013247806 86.36630 4.458598
## 2007 0.0399533437 121.79947 4.802376 0.018465140 89.17578 4.490610
## 2008 0.0352116011 121.93379 4.803478 0.001102182 87.06340 4.466637
## 2009 -0.0168416790 121.27426 4.798055 -0.005423589 80.05304 4.382689
## 2010 -0.0674104178 115.00978 4.745017 -0.053037404 73.09487 4.291758
## 2011 -0.1025613114 101.25527 4.617645 -0.127372372 67.62926 4.214041
## 2012 -0.0836300883 92.23826 4.524375 -0.093269829 64.38879 4.164940
## 2013 -0.0260255777 85.12275 4.444094 -0.080280686 66.01478 4.189879
## 2014 0.0062095453 86.15851 4.456189 0.012094420 64.09021 4.160292
## 2015 -0.0018434621 84.96051 4.442187 -0.014002183 63.42599 4.149874
## 2016 -0.0002169581 84.77730 4.440028 -0.002158747 61.52436 4.119433
## 2017 0.0085169293 85.97434 4.454049 0.014021125 62.59377 4.136666
## 2018 0.0109387573 88.15345 4.479079 0.025030201 64.05616 4.159760
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1993 0.010560802 25.22320 3.227764 -0.047769797 15.91480 2.767249
## 1994 0.020287678 24.86944 3.213640 -0.014124465 16.61007 2.810009
## 1995 -0.008754125 25.64084 3.244186 0.030546652 18.57277 2.921697
## 1996 0.034819653 27.96186 3.330841 0.086655046 21.42318 3.064474
## 1997 0.014178168 28.94129 3.365269 0.034427856 23.16473 3.142631
## 1998 0.024748775 35.47900 3.568941 0.203671677 29.70693 3.391380
## 1999 0.011318435 38.10385 3.640315 0.071374355 32.78042 3.489831
## 2000 0.032431059 39.19523 3.668555 0.028239729 34.80505 3.549762
## 2001 0.057453874 41.29903 3.720839 0.052283957 37.64788 3.628277
## 2002 -0.032876254 41.16127 3.717498 -0.003341247 38.58082 3.652755
## 2003 0.073393885 47.37802 3.858158 0.140660642 45.30723 3.813467
## 2004 0.073788145 48.78147 3.887351 0.029192120 47.25702 3.855601
## 2005 -0.090278648 42.98612 3.760877 -0.126473255 41.50008 3.725695
## 2006 0.094943825 51.32090 3.938098 0.177220804 51.60242 3.943569
## 2007 0.032011959 59.47432 4.085545 0.147446546 60.52817 4.103109
## 2008 -0.023972879 55.19607 4.010892 -0.074652868 57.62694 4.053990
## 2009 -0.083947187 47.50651 3.860867 -0.150025001 49.38687 3.899685
## 2010 -0.090931259 38.31587 3.645864 -0.215002584 39.69799 3.681301
## 2011 -0.077717520 30.46244 3.416494 -0.229369721 31.60696 3.453377
## 2012 -0.049101053 23.31661 3.149166 -0.267328467 24.13999 3.183870
## 2013 0.024939109 21.35146 3.061120 -0.088045861 21.96287 3.089353
## 2014 -0.029587049 20.35301 3.013229 -0.047891309 20.62438 3.026474
## 2015 -0.010417902 20.49034 3.019954 0.006724743 20.49034 3.019954
## 2016 -0.030440511 21.46346 3.066352 0.046398399 21.28437 3.057973
## 2017 0.017232471 23.41179 3.153240 0.086887787 23.24298 3.146003
## 2018 0.023094398 20.55009 3.022865 -0.130374421 20.45438 3.018197
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1993 0.068663942 13.07775 2.570912 0.07116878 0.8217351 -0.1963372
## 1994 0.042759644 13.54977 2.606370 0.03545726 0.8157563 -0.2036396
## 1995 0.111687392 14.93977 2.704027 0.09765721 0.8043911 -0.2176697
## 1996 0.142776984 17.18018 2.843756 0.13972961 0.8019435 -0.2207171
## 1997 0.078157350 18.65873 2.926314 0.08255774 0.8054801 -0.2163167
## 1998 0.248749489 23.33193 3.149823 0.22350868 0.7854036 -0.2415575
## 1999 0.098451034 25.51042 3.239087 0.08926419 0.7782213 -0.2507444
## 2000 0.059931105 27.66805 3.320278 0.08119132 0.7949435 -0.2294842
## 2001 0.078514153 28.60288 3.353507 0.03322909 0.7597474 -0.2747692
## 2002 0.024478617 30.56982 3.420013 0.06650584 0.7923580 -0.2327420
## 2003 0.160711361 34.67123 3.545910 0.12589699 0.7652472 -0.2675564
## 2004 0.042134592 36.23202 3.589943 0.04403302 0.7667013 -0.2656580
## 2005 -0.129905859 32.68908 3.487041 -0.10290218 0.7876872 -0.2386543
## 2006 0.217873216 39.12042 3.666645 0.17960350 0.7581121 -0.2769240
## 2007 0.159540306 49.24217 3.896750 0.23010579 0.8135414 -0.2063585
## 2008 -0.049118710 44.11694 3.786844 -0.10990653 0.7655610 -0.2671463
## 2009 -0.154305567 35.82787 3.578726 -0.20811775 0.7254533 -0.3209585
## 2010 -0.218384043 31.36799 3.445788 -0.13293814 0.7901657 -0.2355126
## 2011 -0.227923207 26.51796 3.277822 -0.16796571 0.8389912 -0.1755551
## 2012 -0.269507548 19.31499 2.960881 -0.31694076 0.8001242 -0.2229883
## 2013 -0.094516501 15.74187 2.756324 -0.20455744 0.7167492 -0.3330293
## 2014 -0.062879429 14.05438 2.642934 -0.11338995 0.6814450 -0.3835398
## 2015 -0.006520316 13.67834 2.615814 -0.02712053 0.6675507 -0.4041400
## 2016 0.038019445 15.17637 2.719740 0.10392605 0.7130289 -0.3382334
## 2017 0.088030150 15.38898 2.733652 0.01391206 0.6620915 -0.4123515
## 2018 -0.127806110 14.88538 2.700380 -0.03327215 0.7277356 -0.3178175
## Ips_dl I I_l I_dl r r_l
## 1993 0.002504834 20.72679 3.031427 -0.045264962 7.7273847 2.928856
## 1994 -0.007302384 20.28740 3.010000 -0.021426849 8.5606786 2.972439
## 1995 -0.014030180 20.62526 3.026517 0.016516472 6.5289630 2.862646
## 1996 -0.003047375 22.42383 3.110124 0.083607671 6.3123073 2.850194
## 1997 0.004400389 23.31163 3.148953 0.038828246 3.1595652 2.648894
## 1998 -0.025240813 27.86533 3.327383 0.178430864 3.2124812 2.652630
## 1999 -0.009186847 29.65323 3.389571 0.062187508 2.5836636 2.607308
## 2000 0.021260216 31.15800 3.439071 0.049499945 4.4366636 2.735373
## 2001 -0.045285059 31.37683 3.446070 0.006998898 1.7639542 2.544965
## 2002 0.042027218 32.61446 3.484756 0.038685971 1.7138432 2.541025
## 2003 -0.034814372 36.25590 3.590602 0.105846270 0.7891711 2.465384
## 2004 0.001898430 37.40082 3.621693 0.031090549 1.1617545 2.496554
## 2005 0.027003678 33.85961 3.522223 -0.099469576 1.3201073 2.509513
## 2006 -0.038269712 38.90700 3.661174 0.138951092 0.5555391 2.445331
## 2007 0.070565483 48.38482 3.879186 0.218012029 1.0416828 2.486615
## 2008 -0.060787825 42.25596 3.743745 -0.135440692 0.4364527 2.434953
## 2009 -0.053812186 34.46376 3.539908 -0.203837187 2.5350826 2.603720
## 2010 0.085445907 30.27589 3.410352 -0.129556677 8.3603283 2.962132
## 2011 0.059957500 25.55772 3.240939 -0.169412221 14.8332210 3.250842
## 2012 -0.047433213 18.65618 2.926178 -0.314761680 22.9554222 3.524425
## 2013 -0.110040936 15.30364 2.728091 -0.198086796 12.7010620 3.164626
## 2014 -0.050510521 13.86946 2.629689 -0.098401830 8.9256238 2.990944
## 2015 -0.020600216 13.67834 2.615814 -0.013875473 10.0510591 3.045945
## 2016 0.065906608 15.30407 2.728119 0.112305007 8.6251962 2.975735
## 2017 -0.074118095 15.50075 2.740888 0.012769693 5.3488155 2.792860
## 2018 0.094533965 14.95503 2.705048 -0.035840456 3.6203258 2.680964
## r_dl P P_l P_dl Pm Pm_l
## 1993 -0.021045508 50.05208 3.913064 0.134773252 63.08266 4.144446
## 1994 0.043582685 55.64894 4.019063 0.105998861 66.61732 4.198965
## 1995 -0.109792383 61.09794 4.112478 0.093415095 71.58917 4.270944
## 1996 -0.012452018 65.76319 4.186060 0.073582225 73.77121 4.300969
## 1997 -0.201299874 70.07290 4.249536 0.063475862 75.22642 4.320502
## 1998 0.003735729 73.64912 4.299312 0.049776037 78.32444 4.360860
## 1999 -0.045321720 76.31723 4.334899 0.035586589 79.11897 4.370953
## 2000 0.128064894 77.53272 4.350700 0.015801249 85.75620 4.451508
## 2001 -0.190407872 80.22679 4.384858 0.034157462 87.94559 4.476718
## 2002 -0.003940252 82.91340 4.417797 0.032939142 88.67735 4.485004
## 2003 -0.075640817 85.77687 4.451749 0.033952769 88.60856 4.484228
## 2004 0.031169846 88.40393 4.481916 0.030167014 90.47432 4.505066
## 2005 0.012958926 90.38446 4.504072 0.022155916 93.52641 4.538244
## 2006 -0.064181647 93.54344 4.538426 0.034353546 96.62165 4.570803
## 2007 0.041283383 96.74511 4.572080 0.033653939 98.73834 4.592473
## 2008 -0.051661531 100.94829 4.614608 0.042528555 104.13542 4.645692
## 2009 0.168766629 103.54243 4.639981 0.025373079 102.62612 4.631092
## 2010 0.358412179 104.23966 4.646693 0.006711183 108.03535 4.682459
## 2011 0.288709467 105.07186 4.654645 0.007951869 114.90555 4.744110
## 2012 0.273583388 104.68268 4.650934 -0.003710838 119.72498 4.785197
## 2013 -0.359798604 102.22023 4.627130 -0.023804037 116.00342 4.753620
## 2014 -0.173682708 100.34746 4.608639 -0.018490884 111.71512 4.715952
## 2015 0.055001192 100.00000 4.605170 -0.003468576 100.00000 4.605170
## 2016 -0.070209742 99.75586 4.602726 -0.002444373 97.02760 4.574995
## 2017 -0.182875217 100.35354 4.608699 0.005973501 102.24864 4.627407
## 2018 -0.111895986 100.90525 4.614182 0.005482649 107.66115 4.678989
## Pm_dl Px Px_l Px_dl X X_l
## 1993 0.0712197630 54.86261 4.004832 0.08751312 18.74472 2.930912
## 1994 0.0545187651 59.58042 4.087327 0.08249490 20.12944 3.002183
## 1995 0.0719791206 64.75163 4.170559 0.08323186 20.73259 3.031707
## 1996 0.0300248200 68.21688 4.222692 0.05213315 21.57941 3.071740
## 1997 0.0195338900 70.05080 4.249221 0.02652861 26.56488 3.279590
## 1998 0.0403572694 73.52482 4.297623 0.04840243 27.76412 3.323745
## 1999 0.0100929219 74.56353 4.311652 0.01402843 34.55102 3.542437
## 2000 0.0805557025 79.35840 4.373974 0.06232282 42.21553 3.742788
## 2001 0.0252099643 82.05848 4.407432 0.03345787 42.26627 3.743989
## 2002 0.0082861196 83.93227 4.430010 0.02257793 39.17043 3.667922
## 2003 -0.0007760426 85.32597 4.446479 0.01646876 38.88285 3.660553
## 2004 0.0208376751 87.02493 4.466195 0.01971574 46.09586 3.830723
## 2005 0.0331777375 89.14198 4.490230 0.02403579 47.63522 3.863572
## 2006 0.0325589788 92.04225 4.522248 0.03201730 50.11832 3.914387
## 2007 0.0216704793 94.52272 4.548840 0.02659245 55.44006 4.015302
## 2008 0.0532189303 98.54853 4.590549 0.04170896 57.36539 4.049441
## 2009 -0.0145997684 96.46457 4.569176 -0.02137335 46.74170 3.844637
## 2010 0.0513660877 101.92605 4.624248 0.05507171 49.01390 3.892104
## 2011 0.0616519277 107.82924 4.680549 0.05630138 49.02722 3.892376
## 2012 0.0410867912 110.56895 4.705639 0.02509043 49.60246 3.904040
## 2013 -0.0315775644 108.90297 4.690457 -0.01518200 50.35195 3.919037
## 2014 -0.0376676152 106.60377 4.669119 -0.02133848 54.25374 3.993672
## 2015 -0.1107818851 100.00000 4.605170 -0.06394865 55.93081 4.024115
## 2016 -0.0301747459 96.62299 4.570817 -0.03435351 54.91332 4.005756
## 2017 0.0524120071 101.41387 4.619210 0.04839320 58.62561 4.071172
## 2018 0.0515813050 104.72946 4.651380 0.03217055 63.72191 4.154528
## X_dl M M_l M_dl rulc rulc_l
## 1993 -0.0263100751 26.66578 3.283381 0.006270703 0.5002718 -0.6926037
## 1994 0.0712713073 27.06515 3.298247 0.014865827 0.4949551 -0.7032883
## 1995 0.0295234383 29.48664 3.383937 0.085690357 0.5013844 -0.6903821
## 1996 0.0400327610 32.41652 3.478668 0.094730890 0.4909935 -0.7113243
## 1997 0.2078504233 35.15176 3.559675 0.081006519 0.4969735 -0.6992185
## 1998 0.0441544969 41.53596 3.726560 0.166884870 0.5005432 -0.6920613
## 1999 0.2186925326 47.55297 3.861844 0.135284690 0.5001807 -0.6927859
## 2000 0.2003510906 57.14921 4.045666 0.183821319 0.5000855 -0.6929761
## 2001 0.0012012056 57.71581 4.055531 0.009865573 0.4925592 -0.7081407
## 2002 -0.0760672430 55.73490 4.020607 -0.034924618 0.5161116 -0.6614323
## 2003 -0.0073688460 59.85562 4.091935 0.071328807 0.5122154 -0.6690100
## 2004 0.1701698618 62.49981 4.135164 0.043228188 0.5040698 -0.6850405
## 2005 0.0328492624 63.03362 4.143668 0.008504718 0.5352847 -0.6249566
## 2006 0.0508142063 71.42326 4.268624 0.124955352 0.5134035 -0.6666932
## 2007 0.1009158272 82.49345 4.412719 0.144095310 0.5063934 -0.6804414
## 2008 0.0341387227 83.58295 4.425840 0.013120656 0.5086568 -0.6759817
## 2009 -0.2048044599 66.57055 4.198262 -0.227577264 0.5286410 -0.6374458
## 2010 0.0474672315 64.28677 4.163354 -0.034908432 0.5303942 -0.6341347
## 2011 0.0002717227 58.21249 4.064100 -0.099253919 0.5138936 -0.6657391
## 2012 0.0116647752 52.91550 3.968696 -0.095403635 0.5049973 -0.6832023
## 2013 0.0149969180 51.64958 3.944482 -0.024214238 0.4816528 -0.7305317
## 2014 0.0746345828 55.61496 4.018452 0.073970166 0.4839335 -0.7258077
## 2015 0.0304434610 55.83973 4.022486 0.004033393 0.4793031 -0.7354220
## 2016 -0.0183594491 55.98130 4.025018 0.002532083 0.4791846 -0.7356693
## 2017 0.0654156898 59.94436 4.093417 0.068399092 0.4787451 -0.7365869
## 2018 0.0833568277 62.43492 4.134125 0.040707936 0.4815642 -0.7307157
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1993 -0.0338854736 25.03965 3.220460 0.100887779 94.69031 4.550612
## 1994 -0.0106846572 27.54372 3.315775 0.095314204 95.01212 4.554005
## 1995 0.0129062093 30.63355 3.422096 0.106321304 95.93676 4.563689
## 1996 -0.0209422124 32.28930 3.474736 0.052640012 98.26400 4.587658
## 1997 0.0121058421 34.82438 3.550318 0.075581704 102.14309 4.626375
## 1998 0.0071571737 36.86457 3.607251 0.056933210 102.53281 4.630183
## 1999 -0.0007245504 38.17241 3.642113 0.034862039 104.42403 4.648460
## 2000 -0.0001902777 38.77299 3.657724 0.015610971 107.09979 4.673761
## 2001 -0.0151645711 39.51644 3.676717 0.018992891 110.03047 4.700757
## 2002 0.0467083639 42.79256 3.756364 0.079647506 111.70367 4.715850
## 2003 -0.0075776539 43.93624 3.782739 0.026375115 115.75496 4.751476
## 2004 -0.0160305435 44.56175 3.796876 0.014136470 118.50869 4.774986
## 2005 0.0600839317 48.38141 3.879116 0.082239848 117.64222 4.767648
## 2006 -0.0417365670 48.02553 3.871733 -0.007383021 121.57822 4.800558
## 2007 -0.0137482177 48.99109 3.891638 0.019905722 122.72586 4.809953
## 2008 0.0044596691 51.34803 3.938627 0.046988224 120.07276 4.788098
## 2009 0.0385359718 54.73677 4.002536 0.063909051 114.53722 4.740900
## 2010 0.0033110157 55.28811 4.012558 0.010022199 109.68695 4.697630
## 2011 -0.0316043732 53.99575 3.988905 -0.023652504 103.88876 4.643321
## 2012 -0.0174631416 52.86447 3.967731 -0.021173979 100.46714 4.609831
## 2013 -0.0473294310 49.23467 3.896598 -0.071133468 99.33277 4.598476
## 2014 0.0047239444 48.56150 3.882831 -0.013766940 100.21938 4.607362
## 2015 -0.0096142893 47.93031 3.869748 -0.013082865 100.00000 4.605170
## 2016 -0.0002472803 47.80148 3.867056 -0.002691653 100.07955 4.605965
## 2017 -0.0009176136 48.04377 3.872112 0.005055888 101.12633 4.616371
## 2018 0.0058711787 48.59236 3.883466 0.011353828 102.68639 4.631680
## Tau_dl dPxdPm dPdPm Trade
## 1993 -0.0283768045 0.016293361 0.063553489 0.3104756
## 1994 0.0033928654 0.027976139 0.051480096 0.3163471
## 1995 0.0096847500 0.011252743 0.021435974 0.3296984
## 1996 0.0239684316 0.022108330 0.043557405 0.3446293
## 1997 0.0387169337 0.006994725 0.043941972 0.3770012
## 1998 0.0038081903 0.008045162 0.009418767 0.4074553
## 1999 0.0182769836 0.003935512 0.025493668 0.4683465
## 2000 0.0253012256 -0.018232883 -0.064754454 0.5454279
## 2001 0.0269963313 0.008247909 0.008947497 0.5270412
## 2002 0.0150922433 0.014291812 0.024653023 0.4813952
## 2003 0.0356259594 0.017244807 0.034728812 0.4734066
## 2004 0.0235107461 -0.001121939 0.009329339 0.4955860
## 2005 -0.0073382826 -0.009141949 -0.011021821 0.5020391
## 2006 0.0329097759 -0.000541675 0.001794568 0.5218643
## 2007 0.0093952617 0.004921975 0.011983460 0.5734723
## 2008 -0.0218551989 -0.011509966 -0.010690375 0.5879776
## 2009 -0.0471980729 -0.006773581 0.039972848 0.4939342
## 2010 -0.0432693762 0.003705626 -0.044654905 0.5225123
## 2011 -0.0543097401 -0.005350545 -0.053700059 0.5442659
## 2012 -0.0334899937 -0.015996357 -0.044797629 0.5612778
## 2013 -0.0113551130 0.016395562 0.007773528 0.5771586
## 2014 0.0088860441 0.016329133 0.019176731 0.6171085
## 2015 -0.0021914271 0.046833233 0.107313310 0.6305514
## 2016 0.0007951758 -0.004178768 0.027730373 0.6268069
## 2017 0.0104051676 -0.004018812 -0.046438506 0.6602527
## 2018 0.0153091017 -0.019410753 -0.046098656 0.6891688
adf.GRC.WS <- adf.test((GRC$WS), alternative = c("stationary"), k = 2)
adf.GRC.PS <- adf.test((GRC$PS), alternative = c("stationary"), k = 2)
adf.GRC.Y <- adf.test((GRC$Y), alternative = c("stationary"), k = 2)
adf.GRC.Yrw <- adf.test((GRC$Yrw), alternative = c("stationary"), k = 2)
adf.GRC.r <- adf.test((GRC$r), alternative = c("stationary"), k = 2)
adf.GRC.R <- adf.test((GRC$R), alternative = c("stationary"), k = 2)
adf.GRC.Tau <- adf.test((GRC$Tau), alternative = c("stationary"), k = 2)
adf.GRC.rulc <- adf.test((GRC$rulc), alternative = c("stationary"), k = 2)
adf.GRC.ulc <- adf.test((GRC$ulc), alternative = c("stationary"), k = 2)
adf.GRC.P <- adf.test((GRC$P), alternative = c("stationary"), k = 2)
adf.GRC.Pm <- adf.test((GRC$Pm), alternative = c("stationary"), k = 2)
adf.GRC.Px <- adf.test((GRC$Px), alternative = c("stationary"), k = 2)
adf.GRC.X <- adf.test((GRC$X), alternative = c("stationary"), k = 2)
adf.GRC.M <- adf.test((GRC$M), alternative = c("stationary"), k = 2)
adf.GRC.I <- adf.test((GRC$I), alternative = c("stationary"), k = 2)
adf.GRC.C <- adf.test((GRC$C), alternative = c("stationary"), k = 2)
adf.GRC.Ipr <- adf.test((GRC$Ipr), alternative = c("stationary"), k = 2)
adf.GRC.Ips <- adf.test((GRC$Ips), alternative = c("stationary"), k = 2)
adf.GRC.It <- adf.test((GRC$It), alternative = c("stationary"), k = 2)
adf.GRC.Itcurr <- adf.test((GRC$Itcurr), alternative = c("stationary"), k = 2)
adf.GRC.Yf <- adf.test((GRC$Yf), alternative = c("stationary"), k = 2)
adf.GRC.W <- adf.test((GRC$W), alternative = c("stationary"), k = 2)
adf.GRC.WS.pval <- adf.GRC.WS$p.value
adf.GRC.PS.pval <- adf.GRC.PS$p.value
adf.GRC.Y.pval <- adf.GRC.Y$p.value
adf.GRC.Yrw.pval <- adf.GRC.Yrw$p.value
adf.GRC.r.pval <- adf.GRC.r$p.value
adf.GRC.R.pval <- adf.GRC.R$p.value
adf.GRC.Tau.pval <- adf.GRC.Tau$p.value
adf.GRC.rulc.pval <- adf.GRC.rulc$p.value
adf.GRC.ulc.pval <- adf.GRC.ulc$p.value
adf.GRC.P.pval <- adf.GRC.P$p.value
adf.GRC.Pm.pval <- adf.GRC.Pm$p.value
adf.GRC.Px.pval <- adf.GRC.Px$p.value
adf.GRC.X.pval <- adf.GRC.X$p.value
adf.GRC.M.pval <- adf.GRC.M$p.value
adf.GRC.I.pval <- adf.GRC.I$p.value
adf.GRC.C.pval <- adf.GRC.C$p.value
adf.GRC.Ipr.pval <- adf.GRC.Ipr$p.value
adf.GRC.Ips.pval <- adf.GRC.Ips$p.value
adf.GRC.It.pval <- adf.GRC.It$p.value
adf.GRC.Itcurr.pval <- adf.GRC.Itcurr$p.value
adf.GRC.Yf.pval <- adf.GRC.Yf$p.value
adf.GRC.W.pval <- adf.GRC.W$p.value
adf.GRC_non <- rbind(adf.GRC.WS.pval,adf.GRC.PS.pval,adf.GRC.Y.pval,adf.GRC.Yrw.pval,adf.GRC.r.pval,adf.GRC.R.pval,adf.GRC.Tau.pval,adf.GRC.rulc.pval,adf.GRC.ulc.pval,adf.GRC.P.pval,adf.GRC.Pm.pval,adf.GRC.Px.pval,adf.GRC.X.pval,adf.GRC.M.pval,adf.GRC.I.pval,adf.GRC.C.pval,adf.GRC.Ipr.pval,adf.GRC.Ips.pval,adf.GRC.It.pval,adf.GRC.Itcurr.pval,adf.GRC.Yf.pval,adf.GRC.W.pval)
colnames(adf.GRC_non) <- c("GRC")
rownames(adf.GRC_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.GRC_non
## GRC
## WS 0.8300833
## PS 0.8300833
## Y 0.5026104
## Yrw 0.5680479
## r 0.5192945
## R 0.7376246
## Tau 0.4320494
## rulc 0.8729598
## ulc 0.9330244
## P 0.9519248
## Pm 0.4261103
## Px 0.7976946
## X 0.6062361
## M 0.6830860
## I 0.7878450
## C 0.9210318
## Ipr 0.8367126
## Ips 0.3255945
## It 0.7484944
## Itcurr 0.7988064
## Yf 0.4734609
## W 0.4525984
adf.GRC.WS_dl <- adf.test((GRC$WS_dl), alternative = c("stationary"), k = 2)
adf.GRC.PS_dl <- adf.test((GRC$PS_dl), alternative = c("stationary"), k = 2)
adf.GRC.Y_dl <- adf.test((GRC$Y_dl), alternative = c("stationary"), k = 2)
adf.GRC.Yrw_dl <- adf.test((GRC$Yrw_dl), alternative = c("stationary"), k = 2)
adf.GRC.r_dl <- adf.test((GRC$r_dl), alternative = c("stationary"), k = 2)
adf.GRC.R_dl <- adf.test((GRC$R_dl), alternative = c("stationary"), k = 2)
adf.GRC.Tau_dl <- adf.test((GRC$Tau_dl), alternative = c("stationary"), k = 2)
adf.GRC.rulc_dl <- adf.test((GRC$rulc_dl), alternative = c("stationary"), k = 2)
adf.GRC.ulc_dl <- adf.test((GRC$ulc_dl), alternative = c("stationary"), k = 2)
adf.GRC.P_dl <- adf.test((GRC$P_dl), alternative = c("stationary"), k = 2)
adf.GRC.Pm_dl <- adf.test((GRC$Pm_dl), alternative = c("stationary"), k = 2)
adf.GRC.Px_dl <- adf.test((GRC$Px_dl), alternative = c("stationary"), k = 2)
adf.GRC.X_dl <- adf.test((GRC$X_dl), alternative = c("stationary"), k = 2)
adf.GRC.M_dl <- adf.test((GRC$M_dl), alternative = c("stationary"), k = 2)
adf.GRC.I_dl <- adf.test((GRC$I_dl), alternative = c("stationary"), k = 2)
adf.GRC.C_dl <- adf.test((GRC$C_dl), alternative = c("stationary"), k = 2)
adf.GRC.Ipr_dl <- adf.test((GRC$Ipr_dl), alternative = c("stationary"), k = 2)
adf.GRC.Ips_dl <- adf.test((GRC$Ips_dl), alternative = c("stationary"), k = 2)
adf.GRC.It_dl <- adf.test((GRC$It_dl), alternative = c("stationary"), k = 2)
adf.GRC.Itcurr_dl <- adf.test((GRC$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.GRC.Yf_dl <- adf.test((GRC$Yf_dl), alternative = c("stationary"), k = 2)
adf.GRC.W_dl <- adf.test((GRC$W_dl), alternative = c("stationary"), k = 2)
adf.GRC.WS_dl.pval <- adf.GRC.WS_dl$p.value
adf.GRC.PS_dl.pval <- adf.GRC.PS_dl$p.value
adf.GRC.Y_dl.pval <- adf.GRC.Y_dl$p.value
adf.GRC.Yrw_dl.pval <- adf.GRC.Yrw_dl$p.value
adf.GRC.r_dl.pval <- adf.GRC.r_dl$p.value
adf.GRC.R_dl.pval <- adf.GRC.R_dl$p.value
adf.GRC.Tau_dl.pval <- adf.GRC.Tau_dl$p.value
adf.GRC.rulc_dl.pval <- adf.GRC.rulc_dl$p.value
adf.GRC.ulc_dl.pval <- adf.GRC.ulc_dl$p.value
adf.GRC.P_dl.pval <- adf.GRC.P_dl$p.value
adf.GRC.Pm_dl.pval <- adf.GRC.Pm_dl$p.value
adf.GRC.Px_dl.pval <- adf.GRC.Px_dl$p.value
adf.GRC.X_dl.pval <- adf.GRC.X_dl$p.value
adf.GRC.M_dl.pval <- adf.GRC.M_dl$p.value
adf.GRC.I_dl.pval <- adf.GRC.I_dl$p.value
adf.GRC.C_dl.pval <- adf.GRC.C_dl$p.value
adf.GRC.Ipr_dl.pval <- adf.GRC.Ipr_dl$p.value
adf.GRC.Ips_dl.pval <- adf.GRC.Ips_dl$p.value
adf.GRC.It_dl.pval <- adf.GRC.It_dl$p.value
adf.GRC.Itcurr_dl.pval <- adf.GRC.Itcurr_dl$p.value
adf.GRC.Yf_dl.pval <- adf.GRC.Yf_dl$p.value
adf.GRC.W_dl.pval <- adf.GRC.W_dl$p.value
adf.GRC_dl <- rbind(adf.GRC.WS_dl.pval,adf.GRC.PS_dl.pval,adf.GRC.Y_dl.pval,adf.GRC.Yrw_dl.pval,adf.GRC.r_dl.pval,adf.GRC.R_dl.pval,adf.GRC.Tau_dl.pval,adf.GRC.rulc_dl.pval,adf.GRC.ulc_dl.pval,adf.GRC.P_dl.pval,adf.GRC.Pm_dl.pval,adf.GRC.Px_dl.pval,adf.GRC.X_dl.pval,adf.GRC.M_dl.pval,adf.GRC.I_dl.pval,adf.GRC.C_dl.pval,adf.GRC.Ipr_dl.pval,adf.GRC.Ips_dl.pval,adf.GRC.It_dl.pval,adf.GRC.Itcurr_dl.pval,adf.GRC.Yf_dl.pval,adf.GRC.W_dl.pval)
colnames(adf.GRC_dl) <- c("GRC")
rownames(adf.GRC_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.GRC_dl
## GRC
## dlog(WS) 0.12516419
## dlog(PS) 0.11146830
## dlog(Y) 0.60069733
## dlog(Yrw) 0.29602560
## dlog(r) 0.32519406
## dlog(R) 0.60892769
## dlog(Tau) 0.67561756
## dlog(rulc) 0.21957081
## dlog(ulc) 0.45064239
## dlog(P) 0.33812130
## dlog(Pm) 0.02902880
## dlog(Px) 0.05446993
## dlog(X) 0.24254964
## dlog(M) 0.48681335
## dlog(I) 0.64869193
## dlog(C) 0.58848458
## dlog(Ipr) 0.71865586
## dlog(Ips) 0.04156621
## dlog(It) 0.46532393
## dlog(Itcurr) 0.50903601
## dlog(Yf) 0.68728993
## dlog(W) 0.68722124
adf.GRC <- NULL
adf.GRC <- rbind(adf.GRC_non,adf.GRC_dl)
#Consumption (C)
GRC_consumption <- dynlm(GRC$C_dl~GRC$R_dl+GRC$W_dl)
GRC_CR <- summary(GRC_consumption)$coefficients["GRC$R_dl","Estimate"]
GRC_CW <- summary(GRC_consumption)$coefficients["GRC$W_dl","Estimate"]
GRC_Ceffekt <- (GRC_CR*mean(GRC$C/GRC$R))-(GRC_CW*mean(GRC$C/GRC$W))
summary(GRC_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$C_dl ~ GRC$R_dl + GRC$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.017425 -0.009142 0.000227 0.003950 0.034325
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.005736 0.002462 2.330 0.028965 *
## GRC$R_dl 0.232264 0.052212 4.448 0.000184 ***
## GRC$W_dl 0.652396 0.053320 12.236 0.000000000015 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01248 on 23 degrees of freedom
## Multiple R-squared: 0.911, Adjusted R-squared: 0.9032
## F-statistic: 117.7 on 2 and 23 DF, p-value: 0.00000000000083
#Investments (I)
GRC_investment <- dynlm(GRC$I_dl~GRC$PS_dl+GRC$Y_dl+L(GRC$r_dl))
GRC_iPS <- summary(GRC_investment)$coefficients["GRC$PS_dl","Estimate"]
GRC_iPS <- 0
GRC_Ieffekt <- GRC_iPS*mean(GRC$I/GRC$R)
summary(GRC_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$I_dl ~ GRC$PS_dl + GRC$Y_dl + L(GRC$r_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.117425 -0.044790 -0.008026 0.025028 0.174340
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.03504 0.01478 -2.371 0.0269 *
## GRC$PS_dl 0.49425 0.45597 1.084 0.2901
## GRC$Y_dl 2.99206 0.44149 6.777 0.000000825 ***
## L(GRC$r_dl) 0.18840 0.11081 1.700 0.1032
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07366 on 22 degrees of freedom
## Multiple R-squared: 0.7032, Adjusted R-squared: 0.6628
## F-statistic: 17.38 on 3 and 22 DF, p-value: 0.000005186
#Price deflator (P)
GRC_deflator <- dynlm(GRC$P_dl~L(GRC$ulc_dl)+GRC$Pm_dl)
GRC_ePULC <- summary(GRC_deflator)$coefficients["L(GRC$ulc_dl)","Estimate"]
summary(GRC_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$P_dl ~ L(GRC$ulc_dl) + GRC$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.045581 -0.014707 0.002155 0.008334 0.048849
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009467 0.005119 1.849 0.0773 .
## L(GRC$ulc_dl) 0.642770 0.102583 6.266 0.00000215 ***
## GRC$Pm_dl 0.163014 0.107683 1.514 0.1437
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02089 on 23 degrees of freedom
## Multiple R-squared: 0.7162, Adjusted R-squared: 0.6915
## F-statistic: 29.02 on 2 and 23 DF, p-value: 0.0000005127
#Export price deflator (Px)
GRC_exportdeflator <- dynlm(GRC$Px_dl~GRC$ulc_dl+GRC$Pm_dl)
GRC_ePX <- summary(GRC_exportdeflator)$coefficients["GRC$ulc_dl","Estimate"]
summary(GRC_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$Px_dl ~ GRC$ulc_dl + GRC$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.025676 -0.006722 0.001624 0.007593 0.021782
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.006676 0.002992 2.231 0.0357 *
## GRC$ulc_dl 0.135263 0.059957 2.256 0.0339 *
## GRC$Pm_dl 0.754672 0.062938 11.991 0.0000000000224 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01221 on 23 degrees of freedom
## Multiple R-squared: 0.8975, Adjusted R-squared: 0.8886
## F-statistic: 100.7 on 2 and 23 DF, p-value: 0.000000000004184
#Exports (X)
GRC_exports <- dynlm(GRC$X_dl~L(GRC$dPxdPm)+GRC$Yrw_dl)
GRC_eXP <- summary(GRC_exports)$coefficients["L(GRC$dPxdPm)","Estimate"]
GRC_Xeffekt <- -(GRC_eXP*GRC_ePX*(1/(1-GRC_ePULC))*mean(GRC$Yf/GRC$Y)*(mean(GRC$X/GRC$Y)/mean(GRC$rulc)))
summary(GRC_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$X_dl ~ L(GRC$dPxdPm) + GRC$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.077127 -0.041926 -0.003058 0.027479 0.113792
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06170 0.01886 -3.272 0.00335 **
## L(GRC$dPxdPm) -1.24989 0.68665 -1.820 0.08176 .
## GRC$Yrw_dl 5.35627 0.75311 7.112 0.000000303 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05172 on 23 degrees of freedom
## Multiple R-squared: 0.6903, Adjusted R-squared: 0.6634
## F-statistic: 25.64 on 2 and 23 DF, p-value: 0.000001397
#Imports (M)
GRC_imports <- dynlm(GRC$M_dl~GRC$dPdPm+L(GRC$Y_dl))
GRC_eMP <- summary(GRC_imports)$coefficients["GRC$dPdPm","Estimate"]
GRC_Meffekt <- -(GRC_eMP*GRC_ePULC*(1/(1-GRC_ePULC))*mean(GRC$Yf/GRC$Y)*(mean(GRC$M/GRC$Y)/mean(GRC$rulc)))
summary(GRC_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$M_dl ~ GRC$dPdPm + L(GRC$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.149547 -0.027721 0.002387 0.045704 0.079430
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.02317 0.01205 1.923 0.0669 .
## GRC$dPdPm -0.53624 0.30317 -1.769 0.0902 .
## L(GRC$Y_dl) 1.81456 0.30726 5.906 0.00000509 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05938 on 23 degrees of freedom
## Multiple R-squared: 0.6027, Adjusted R-squared: 0.5681
## F-statistic: 17.44 on 2 and 23 DF, p-value: 0.00002457
names(GRC_consumption$coefficients) <- sub("GRC$","",names(GRC_consumption$coefficients),fixed=TRUE)
names(GRC_investment$coefficients) <- sub("GRC$","",names(GRC_investment$coefficients),fixed=TRUE)
names(GRC_deflator$coefficients) <- sub("GRC$","",names(GRC_deflator$coefficients),fixed=TRUE)
names(GRC_exportdeflator$coefficients) <- sub("GRC$","",names(GRC_exportdeflator$coefficients),fixed=TRUE)
names(GRC_exports$coefficients) <- sub("GRC$","",names(GRC_exports$coefficients),fixed=TRUE)
names(GRC_imports$coefficients) <- sub("GRC$","",names(GRC_imports$coefficients),fixed=TRUE)
GRC_Xeffekt
## [1] 0.1871525
GRC_Meffekt
## [1] 0.4782916
#Nettoeksport (NX)
GRC_NXeffekt <- GRC_Xeffekt - GRC_Meffekt
GRC_NXeffekt
## [1] -0.2911391
#Nettoeffekten
GRC_Neteffekt = GRC_Ceffekt + GRC_Ieffekt + GRC_NXeffekt
GRC_Neteffekt
## [1] -0.7577486
GRC_Lukket <- GRC_Ceffekt + GRC_Ieffekt
GRC_Lukket_Konklusion <- ifelse(GRC_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
GRC_Lukket_Konklusion
## [1] "Wage-led domestic"
GRC_Def <- ifelse(GRC_Neteffekt > 0, "Profit-led", "Wage-led")
GRC_Def
## [1] "Wage-led"
summary(ur.df(y=GRC_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -15.247 NA NA NA
## z.diff.lag1 13.869 NA NA NA
## z.diff.lag2 12.486 NA NA NA
## z.diff.lag3 11.554 NA NA NA
## z.diff.lag4 10.298 NA NA NA
## z.diff.lag5 8.692 NA NA NA
## z.diff.lag6 7.286 NA NA NA
## z.diff.lag7 6.277 NA NA NA
## z.diff.lag8 5.035 NA NA NA
## z.diff.lag9 3.415 NA NA NA
## z.diff.lag10 2.694 NA NA NA
## z.diff.lag11 2.155 NA NA NA
## z.diff.lag12 2.248 NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared: 1, Adjusted R-squared: NaN
## F-statistic: NaN on 13 and 0 DF, p-value: NA
##
##
## Value of test-statistic is: NaN
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=GRC_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.4458 NA NA NA
## z.diff.lag1 0.8001 NA NA NA
## z.diff.lag2 0.6166 NA NA NA
## z.diff.lag3 1.4336 NA NA NA
## z.diff.lag4 2.4021 NA NA NA
## z.diff.lag5 1.8640 NA NA NA
## z.diff.lag6 2.0036 NA NA NA
## z.diff.lag7 0.6792 NA NA NA
## z.diff.lag8 0.6108 NA NA NA
## z.diff.lag9 1.7746 NA NA NA
## z.diff.lag10 1.3375 NA NA NA
## z.diff.lag11 2.0205 NA NA NA
## z.diff.lag12 0.9176 NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared: 1, Adjusted R-squared: NaN
## F-statistic: NaN on 13 and 0 DF, p-value: NA
##
##
## Value of test-statistic is: NaN
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=GRC_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -7.393 NA NA NA
## z.diff.lag1 3.996 NA NA NA
## z.diff.lag2 5.398 NA NA NA
## z.diff.lag3 2.612 NA NA NA
## z.diff.lag4 3.757 NA NA NA
## z.diff.lag5 2.309 NA NA NA
## z.diff.lag6 3.518 NA NA NA
## z.diff.lag7 1.412 NA NA NA
## z.diff.lag8 2.159 NA NA NA
## z.diff.lag9 1.121 NA NA NA
## z.diff.lag10 1.440 NA NA NA
## z.diff.lag11 1.395 NA NA NA
## z.diff.lag12 1.390 NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared: 1, Adjusted R-squared: NaN
## F-statistic: NaN on 13 and 0 DF, p-value: NA
##
##
## Value of test-statistic is: NaN
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=GRC_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -2.0977 NA NA NA
## z.diff.lag1 1.3874 NA NA NA
## z.diff.lag2 0.8286 NA NA NA
## z.diff.lag3 1.4864 NA NA NA
## z.diff.lag4 0.8737 NA NA NA
## z.diff.lag5 0.2366 NA NA NA
## z.diff.lag6 0.9881 NA NA NA
## z.diff.lag7 0.7764 NA NA NA
## z.diff.lag8 0.8521 NA NA NA
## z.diff.lag9 0.9980 NA NA NA
## z.diff.lag10 0.4520 NA NA NA
## z.diff.lag11 -0.4299 NA NA NA
## z.diff.lag12 1.4847 NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared: 1, Adjusted R-squared: NaN
## F-statistic: NaN on 13 and 0 DF, p-value: NA
##
##
## Value of test-statistic is: NaN
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(GRC_consumption)
plot(GRC_investment)
plot(GRC_deflator)
plot(GRC_exportdeflator)
plot(GRC_exports)
plot(GRC_imports)
bptest(GRC_consumption)
##
## studentized Breusch-Pagan test
##
## data: GRC_consumption
## BP = 1.3068, df = 2, p-value = 0.5203
bptest(GRC_investment)
##
## studentized Breusch-Pagan test
##
## data: GRC_investment
## BP = 1.0315, df = 3, p-value = 0.7936
bptest(GRC_deflator)
##
## studentized Breusch-Pagan test
##
## data: GRC_deflator
## BP = 5.6126, df = 2, p-value = 0.06043
bptest(GRC_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: GRC_exportdeflator
## BP = 4.689, df = 2, p-value = 0.0959
bptest(GRC_exports)
##
## studentized Breusch-Pagan test
##
## data: GRC_exports
## BP = 1.4761, df = 2, p-value = 0.478
bptest(GRC_imports)
##
## studentized Breusch-Pagan test
##
## data: GRC_imports
## BP = 1.245, df = 2, p-value = 0.5366
resettest(GRC_consumption)
##
## RESET test
##
## data: GRC_consumption
## RESET = 3.4339, df1 = 2, df2 = 21, p-value = 0.05125
resettest(GRC_investment)
##
## RESET test
##
## data: GRC_investment
## RESET = 1.312, df1 = 2, df2 = 20, p-value = 0.2915
resettest(GRC_deflator)
##
## RESET test
##
## data: GRC_deflator
## RESET = 2.4455, df1 = 2, df2 = 21, p-value = 0.111
resettest(GRC_exportdeflator)
##
## RESET test
##
## data: GRC_exportdeflator
## RESET = 2.1547, df1 = 2, df2 = 21, p-value = 0.1409
resettest(GRC_exports)
##
## RESET test
##
## data: GRC_exports
## RESET = 1.2562, df1 = 2, df2 = 21, p-value = 0.3053
resettest(GRC_imports)
##
## RESET test
##
## data: GRC_imports
## RESET = 0.24177, df1 = 2, df2 = 21, p-value = 0.7874
GRC_regtab <- matrix(c(GRC_Ceffekt, GRC_Ieffekt, GRC_Lukket, GRC_Xeffekt, GRC_Meffekt, GRC_NXeffekt, GRC_Neteffekt,GRC_Lukket_Konklusion, GRC_Def),ncol=9,byrow=TRUE)
colnames(GRC_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(GRC_regtab) <- c("GRC")
GRC_regtab <- as.table(GRC_regtab)
GRC_regtab
## consumption investment Lukket neteffekt exports
## GRC -0.466609515873891 0 -0.466609515873891 0.187152498813869
## imports netexports neteffect
## GRC 0.478291615604291 -0.291139116790422 -0.757748632664313
## Lukket konklusion Konklusion
## GRC Wage-led domestic Wage-led
GRC_smoke <- matrix(c(mean(GRC$C/GRC$R), mean(GRC$C/GRC$W), mean(GRC$I/GRC$R), GRC_CR, GRC_CW, GRC_iPS, GRC_ePULC, (1/(1-GRC_ePULC)), GRC_eXP, GRC_ePX, GRC_eMP, mean(GRC$Yf/GRC$Y), mean(GRC$X/GRC$Y), mean(GRC$rulc), (mean(GRC$X/GRC$Y)/mean(GRC$rulc))),ncol=15,byrow=TRUE)
colnames(GRC_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(GRC_smoke) <- c("GRC")
GRC_smoke <- as.table(GRC_smoke)
GRC_smoke
## C/R C/W I/R CR CW iPS
## GRC 1.8026390 1.3569940 0.3634173 0.2322642 0.6523965 0.0000000
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## GRC 0.6427698 2.7993153 -1.2498936 0.1352632 -0.5362425 0.8810981
## X/Y RULC (X/Y)/rulc
## GRC 0.2250355 0.5013997 0.4488145
summary(GRC_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$C_dl ~ GRC$R_dl + GRC$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.017425 -0.009142 0.000227 0.003950 0.034325
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.005736 0.002462 2.330 0.028965 *
## R_dl 0.232264 0.052212 4.448 0.000184 ***
## W_dl 0.652396 0.053320 12.236 0.000000000015 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01248 on 23 degrees of freedom
## Multiple R-squared: 0.911, Adjusted R-squared: 0.9032
## F-statistic: 117.7 on 2 and 23 DF, p-value: 0.00000000000083
summary(GRC_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$I_dl ~ GRC$PS_dl + GRC$Y_dl + L(GRC$r_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.117425 -0.044790 -0.008026 0.025028 0.174340
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.03504 0.01478 -2.371 0.0269 *
## PS_dl 0.49425 0.45597 1.084 0.2901
## Y_dl 2.99206 0.44149 6.777 0.000000825 ***
## L(r_dl) 0.18840 0.11081 1.700 0.1032
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07366 on 22 degrees of freedom
## Multiple R-squared: 0.7032, Adjusted R-squared: 0.6628
## F-statistic: 17.38 on 3 and 22 DF, p-value: 0.000005186
summary(GRC_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$P_dl ~ L(GRC$ulc_dl) + GRC$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.045581 -0.014707 0.002155 0.008334 0.048849
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009467 0.005119 1.849 0.0773 .
## L(ulc_dl) 0.642770 0.102583 6.266 0.00000215 ***
## Pm_dl 0.163014 0.107683 1.514 0.1437
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02089 on 23 degrees of freedom
## Multiple R-squared: 0.7162, Adjusted R-squared: 0.6915
## F-statistic: 29.02 on 2 and 23 DF, p-value: 0.0000005127
summary(GRC_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$Px_dl ~ GRC$ulc_dl + GRC$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.025676 -0.006722 0.001624 0.007593 0.021782
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.006676 0.002992 2.231 0.0357 *
## ulc_dl 0.135263 0.059957 2.256 0.0339 *
## Pm_dl 0.754672 0.062938 11.991 0.0000000000224 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01221 on 23 degrees of freedom
## Multiple R-squared: 0.8975, Adjusted R-squared: 0.8886
## F-statistic: 100.7 on 2 and 23 DF, p-value: 0.000000000004184
summary(GRC_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$X_dl ~ L(GRC$dPxdPm) + GRC$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.077127 -0.041926 -0.003058 0.027479 0.113792
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06170 0.01886 -3.272 0.00335 **
## L(dPxdPm) -1.24989 0.68665 -1.820 0.08176 .
## Yrw_dl 5.35627 0.75311 7.112 0.000000303 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05172 on 23 degrees of freedom
## Multiple R-squared: 0.6903, Adjusted R-squared: 0.6634
## F-statistic: 25.64 on 2 and 23 DF, p-value: 0.000001397
summary(GRC_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = GRC$M_dl ~ GRC$dPdPm + L(GRC$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.149547 -0.027721 0.002387 0.045704 0.079430
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.02317 0.01205 1.923 0.0669 .
## dPdPm -0.53624 0.30317 -1.769 0.0902 .
## L(Y_dl) 1.81456 0.30726 5.906 0.00000509 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05938 on 23 degrees of freedom
## Multiple R-squared: 0.6027, Adjusted R-squared: 0.5681
## F-statistic: 17.44 on 2 and 23 DF, p-value: 0.00002457
IRL_df[!complete.cases(IRL_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.7392622 -0.3021027 NA 0.2607378 -1.3442398 NA
## 1961 0.7353662 -0.3073866 -0.0052839293 0.2646338 -1.3294085 0.0148313247
## 1962 0.7393980 -0.3019190 0.0054676550 0.2606020 -1.3447609 -0.0153524205
## 1963 0.7320694 -0.3118800 -0.0099610441 0.2679306 -1.3170272 0.0277337070
## 1964 0.7392474 -0.3021226 0.0097574023 0.2607526 -1.3441833 -0.0271561461
## 1965 0.7311781 -0.3130982 -0.0109755737 0.2688219 -1.3137063 0.0304770205
## 1966 0.7600229 -0.2744067 0.0386914743 0.2399771 -1.4272118 -0.1135055264
## 1967 0.7432481 -0.2967254 -0.0223186840 0.2567519 -1.3596450 0.0675668244
## 1968 0.7310220 -0.3133117 -0.0165863575 0.2689780 -1.3131256 0.0465193604
## 1969 0.7289322 -0.3161745 -0.0028627986 0.2710678 -1.3053864 0.0077392934
## 1970 0.7493624 -0.2885326 0.0276419702 0.2506376 -1.3837472 -0.0783608550
## 1971 0.7503720 -0.2871862 0.0013463439 0.2496280 -1.3877834 -0.0040361773
## 2019 0.3652108 -1.0072806 -0.0003232241 0.6347892 -0.4544623 0.0001860066
## 2020 0.3677919 -1.0002379 0.0070426876 0.6322081 -0.4585367 -0.0040744328
## 2021 0.3557429 -1.0335469 -0.0333090032 0.6442571 -0.4396575 0.0188792577
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 21.4973 3.067927 NA 8430966115371 29.76293 NA
## 1961 22.5756 3.116870 0.048942331 8827469369768 29.80889 0.04595701
## 1962 23.3017 3.148526 0.031656642 9340423710895 29.86537 0.05648324
## 1963 24.4073 3.194882 0.046355949 9846180656268 29.91810 0.05273201
## 1964 25.3314 3.232045 0.037162465 10489131719408 29.98136 0.06325602
## 1965 25.8212 3.251196 0.019151127 11071828842466 30.03543 0.05406429
## 1966 26.0519 3.260091 0.008894842 11747958406927 30.09470 0.05927553
## 1967 27.5593 3.316340 0.056249344 12290823417633 30.13987 0.04517345
## 1968 29.8312 3.395555 0.079214779 13074874847797 30.20171 0.06183952
## 1969 31.5805 3.452540 0.056985016 13821137390949 30.25722 0.05550668
## 1970 32.4206 3.478794 0.026254182 14149747655528 30.28072 0.02349768
## 1971 33.5455 3.512903 0.034108703 14695846755887 30.31859 0.03786813
## 2019 336.4633 5.818489 0.054012652 NA NA NA
## 2020 309.7244 5.735683 -0.082806209 NA NA NA
## 2021 328.5694 5.794748 0.059065209 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 0.13007 21.36723 3.061858 NA 14.3414 2.663150
## 1961 0.14171 22.43389 3.110573 0.048714322 14.7906 2.693992
## 1962 0.14559 23.15611 3.142259 0.031685915 15.3032 2.728062
## 1963 0.16084 24.24646 3.188271 0.046011951 15.9525 2.769616
## 1964 0.19097 25.14043 3.224477 0.036206680 16.6310 2.811268
## 1965 0.20881 25.61239 3.243076 0.018598912 16.7677 2.819454
## 1966 0.23648 25.81542 3.250972 0.007895769 17.0167 2.834195
## 1967 0.25988 27.29942 3.306865 0.055893469 17.6559 2.871070
## 1968 0.29415 29.53705 3.385645 0.078779951 19.2376 2.956867
## 1969 0.35466 31.22584 3.441246 0.055600550 20.2726 3.009270
## 1970 0.40689 32.01371 3.466164 0.024918291 20.0646 2.998957
## 1971 0.46300 33.08250 3.499004 0.032840193 20.7142 3.030819
## 2019 27.66219 308.80111 5.732697 0.052265554 100.2407 4.607574
## 2020 23.98377 285.74063 5.655085 -0.077612901 91.4195 4.515459
## 2021 25.89138 302.67802 5.712670 0.057585089 95.6248 4.560432
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA 15.79598 2.759756 NA 5.571246 1.717619
## 1961 0.030841384 16.49713 2.803186 0.043430393 5.936765 1.781164
## 1962 0.034070113 17.12158 2.840340 0.037153570 6.034529 1.797498
## 1963 0.041553600 17.75009 2.876391 0.036050907 6.496369 1.871243
## 1964 0.041652867 18.58500 2.922355 0.045964082 6.555432 1.880294
## 1965 0.008185993 18.72722 2.929978 0.007623338 6.885171 1.929370
## 1966 0.014740798 19.62031 2.976565 0.046587243 6.195109 1.823760
## 1967 0.036874790 20.29024 3.010140 0.033574785 7.009178 1.947220
## 1968 0.085796692 21.59223 3.072334 0.062193594 7.944817 2.072520
## 1969 0.052403523 22.76152 3.125071 0.052737751 8.464319 2.135860
## 1970 -0.010313152 23.98987 3.177632 0.052560262 8.023839 2.082417
## 1971 0.031862387 24.82418 3.211818 0.034186537 8.258319 2.111221
## 2019 0.027539368 112.77750 4.725417 0.051942330 196.023609 5.278235
## 2020 -0.092115490 105.09310 4.654847 -0.070570214 180.647528 5.196548
## 2021 0.044973397 107.67557 4.679123 0.024276086 195.002449 5.273012
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA 3.1437 1.145400 NA 0.1360 -1.9951004
## 1961 0.063545647 3.6753 1.301635 0.15623431 0.1657 -1.7975764
## 1962 0.016333494 4.2176 1.439266 0.13763148 0.1965 -1.6270928
## 1963 0.073745658 4.7232 1.552487 0.11322029 0.2310 -1.4653376
## 1964 0.009050534 5.2341 1.655195 0.10270837 0.2757 -1.2884420
## 1965 0.049075932 5.7814 1.754646 0.09945096 0.3069 -1.1812333
## 1966 -0.105609757 5.6095 1.724462 -0.03018428 0.2987 -1.2083156
## 1967 0.123460293 5.9899 1.790075 0.06561313 0.3307 -1.1065437
## 1968 0.125299311 6.7823 1.914316 0.12424156 0.3891 -0.9439189
## 1969 0.063339843 8.1693 2.100383 0.18606695 0.5001 -0.6929472
## 1970 -0.053442564 7.8975 2.066546 -0.03383697 0.5506 -0.5967467
## 1971 0.028804016 8.6020 2.151995 0.08544848 0.6548 -0.4234254
## 2019 0.052451561 136.0330 4.912898 0.66366825 150.8300 5.0161534
## 2020 -0.081687334 79.4059 4.374573 -0.53832483 87.0927 4.4669731
## 2021 0.076464347 92.8627 4.531122 0.15654939 103.6721 4.6412330
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA NA NA NA NA NA
## 1961 0.19752404 NA NA NA NA NA
## 1962 0.17048351 NA NA NA NA NA
## 1963 0.16175528 NA NA NA NA NA
## 1964 0.17689561 NA NA NA NA NA
## 1965 0.10720864 NA NA NA NA NA
## 1966 -0.02708224 NA NA NA NA NA
## 1967 0.10177189 NA NA NA NA NA
## 1968 0.16262476 NA NA NA NA NA
## 1969 0.25097170 NA NA NA NA NA
## 1970 0.09620051 0.4504 -0.7976192 NA 0.8180167 -0.20087252
## 1971 0.17332125 0.5375 -0.6208265 0.1767927 0.8208613 -0.19740109
## 2019 0.68786381 142.7562 4.9611383 0.7200691 0.9464709 -0.05501509
## 2020 -0.54918031 78.2607 4.3600456 -0.6010927 0.8985908 -0.10692751
## 2021 0.17425997 94.6224 4.5498942 0.1898487 0.9127084 -0.09133880
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA 6.460287 1.865674 NA NA NA
## 1971 0.00347143 7.061049 1.954594 0.08891991 -1.175314 1.784499
## 2019 0.03220531 128.751271 4.857882 0.69587355 -1.170774 1.785261
## 2020 -0.05191241 71.353412 4.267645 -0.59023724 NA NA
## 2021 0.01558871 84.756569 4.439783 0.17213809 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 4.256210 1.448379 NA 8.791821 2.173822
## 1961 NA 4.363634 1.473305 0.02492601 8.887073 2.184598
## 1962 NA 4.576592 1.520955 0.04764947 8.934989 2.189975
## 1963 NA 4.698851 1.547318 0.02636340 9.106670 2.209007
## 1964 NA 5.152805 1.639541 0.09222320 9.225755 2.221999
## 1965 NA 5.382306 1.683117 0.04357568 9.465148 2.247616
## 1966 NA 5.621138 1.726534 0.04341727 9.487610 2.249987
## 1967 NA 5.803822 1.758517 0.03198260 9.462171 2.247302
## 1968 NA 6.049770 1.800020 0.04150360 10.208549 2.323226
## 1969 NA 6.600865 1.887201 0.08718030 10.640883 2.364703
## 1970 NA 7.243008 1.980037 0.09283591 10.717443 2.371873
## 1971 NA 8.006361 2.080236 0.10019987 11.300100 2.424812
## 2019 -0.1973801 103.195618 4.636626 0.01507138 101.069295 4.615806
## 2020 NA 104.526938 4.649445 0.01281843 99.130931 4.596442
## 2021 NA 105.762470 4.661196 0.01175092 100.395352 4.609116
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 10.54782 2.355919 NA 2.4464 0.8946176
## 1961 0.010775835 10.53705 2.354897 -0.0010218893 2.8668 1.0531964
## 1962 0.005377191 10.73690 2.373687 0.0187891368 2.8373 1.0428529
## 1963 0.019032217 10.96088 2.394333 0.0206464427 3.1096 1.1344941
## 1964 0.012991885 11.47712 2.440356 0.0460225229 3.3635 1.2129821
## 1965 0.025617371 11.69427 2.459099 0.0187434375 3.6644 1.2986646
## 1966 0.002370400 11.91529 2.477823 0.0187236975 4.0543 1.3997780
## 1967 -0.002684887 11.98815 2.483919 0.0060958608 4.4730 1.4980593
## 1968 0.075923625 12.73734 2.544538 0.0606189937 4.8742 1.5839560
## 1969 0.041477916 13.51606 2.603879 0.0593413948 5.0996 1.6291621
## 1970 0.007169142 12.69232 2.540997 -0.0628818317 6.0577 1.8013302
## 1971 0.052939020 13.62175 2.611668 0.0706708616 6.3059 1.8414857
## 2019 -0.003975882 98.46855 4.589737 0.0001029559 447.1003 6.1027830
## 2020 -0.019364859 98.65581 4.591637 0.0018999505 379.1804 5.9380121
## 2021 0.012674401 99.63676 4.601531 0.0098940610 404.6709 6.0030741
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA 3.5063 1.254561 NA 0.7347892 -0.3081716
## 1961 0.15857887 3.9863 1.382863 0.12830213 0.7307503 -0.3136835
## 1962 -0.01034353 4.1997 1.435013 0.05214961 0.7347782 -0.3081866
## 1963 0.09164120 4.6444 1.535662 0.10064910 0.7272452 -0.3184916
## 1964 0.07848800 5.2450 1.657275 0.12161305 0.7336743 -0.3096900
## 1965 0.08568251 5.8227 1.761764 0.10448883 0.7252653 -0.3212178
## 1966 0.10111344 6.0272 1.796283 0.03451849 0.7531240 -0.2835254
## 1967 0.09828128 6.2526 1.832997 0.03671482 0.7362394 -0.3062000
## 1968 0.08589666 7.2321 1.978529 0.14553207 0.7238138 -0.3232212
## 1969 0.04520612 8.2044 2.104671 0.12614115 0.7207461 -0.3274684
## 1970 0.17216808 8.9089 2.187051 0.08238018 0.7399576 -0.3011623
## 1971 0.04015551 9.3241 2.232602 0.04555167 0.7400152 -0.3010845
## 2019 0.10486552 386.2086 5.956378 0.30458589 0.3351851 -1.0930722
## 2020 -0.16477087 279.1802 5.631857 -0.32452019 0.3393117 -1.0808362
## 2021 0.06506206 302.6049 5.712428 0.08057054 0.3277103 -1.1156253
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA 3.127417 1.140208 NA 29.31307 3.378033
## 1961 -0.00551193845 3.188726 1.159622 0.019414073 30.37510 3.413623
## 1962 0.00549692744 3.362780 1.212768 0.053146395 30.73296 3.425336
## 1963 -0.01030504192 3.417216 1.228826 0.016058354 31.51797 3.450558
## 1964 0.00880161713 3.780481 1.329851 0.101024817 31.97855 3.465066
## 1965 -0.01152778913 3.903599 1.361899 0.032047894 31.94601 3.464047
## 1966 0.03769240106 4.233414 1.443009 0.081109667 31.69146 3.456047
## 1967 -0.02267455981 4.273003 1.452317 0.009308041 33.00263 3.496587
## 1968 -0.01702118545 4.378907 1.476799 0.024482418 34.94022 3.553639
## 1969 -0.00424726479 4.757547 1.559732 0.082933040 36.03346 3.584448
## 1970 0.02630607988 5.359519 1.678874 0.119141989 36.40883 3.594811
## 1971 0.00007783404 5.924829 1.779152 0.100277700 36.86077 3.607148
## 2019 -0.00207032189 34.589638 3.543554 0.013001055 109.89111 4.699490
## 2020 0.01223599556 35.467209 3.568609 0.025054422 102.68295 4.631646
## 2021 -0.03478912332 34.659449 3.545570 -0.023038208 107.27505 4.675396
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA 0.2769045
## 1961 0.035589627 -0.011797724 0.0141501767 0.3035623
## 1962 0.011712482 0.013411946 0.0422722767 0.3019951
## 1963 0.025222152 0.001614226 0.0073311786 0.3176918
## 1964 0.014507777 0.033030638 0.0792313154 0.3398351
## 1965 -0.001018322 -0.006873934 0.0179583114 0.3674151
## 1966 -0.008000050 0.016353297 0.0410468654 0.3869775
## 1967 0.040540000 0.008780748 0.0346674885 0.3891826
## 1968 0.057051510 -0.015304632 -0.0344200223 0.4058268
## 1969 0.030809232 0.017863479 0.0457023887 0.4212726
## 1970 0.010363572 -0.070050973 0.0856667677 0.4616386
## 1971 0.012336515 0.017731841 0.0472608459 0.4659343
## 2019 -0.006896686 0.004078838 0.0190472595 2.4766710
## 2020 -0.067843903 0.021264809 0.0321832852 2.1256336
## 2021 0.043750006 -0.002780340 -0.0009234852 2.1525918
## 2022 NA NA NA NA
IRL <- IRL_df[13:59,]
IRL[!complete.cases(IRL),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
IRL %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1972 0.7182570 -0.3309279 -0.043741673 0.2817430 -1.266760 0.12102357
## 1973 0.7139521 -0.3369394 -0.006011464 0.2860479 -1.251596 0.01516370
## 1974 0.7606794 -0.2735433 0.063396058 0.2393206 -1.429951 -0.17835508
## 1975 0.7461722 -0.2927989 -0.019255614 0.2538278 -1.371099 0.05885212
## 1976 0.7421914 -0.2981481 -0.005349164 0.2578086 -1.355538 0.01556113
## 1977 0.6813680 -0.3836528 -0.085504722 0.3186320 -1.143718 0.21181963
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1972 35.7225 3.575781 0.06287802 15530551449638 30.37383 0.0552442249
## 1973 37.4092 3.621917 0.04613592 16513647538000 30.43521 0.0613780173
## 1974 39.0029 3.663636 0.04171934 16675329944786 30.44495 0.0097432159
## 1975 41.2091 3.718659 0.05502310 16670027327982 30.44463 -0.0003180423
## 1976 41.7654 3.732068 0.01340914 17506218406389 30.49358 0.0489438192
## 1977 45.1573 3.810152 0.07808370 18190139458975 30.53190 0.0383235040
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1972 0.53593 35.18657 3.560664 0.061660034 21.7807 3.081024 0.050204801
## 1973 0.63898 36.77022 3.604688 0.044023803 23.3442 3.150349 0.069324303
## 1974 0.68798 38.31492 3.645839 0.041151098 23.7276 3.166639 0.016290368
## 1975 0.83499 40.37411 3.698189 0.052349361 23.9231 3.174845 0.008205592
## 1976 1.15240 40.61300 3.704088 0.005899474 24.5737 3.201677 0.026832246
## 1977 1.31402 43.84328 3.780621 0.076533245 26.2120 3.266217 0.064540556
## W W_l W_dl R R_l R_dl
## 1972 25.27300 3.229737 0.0179183609 9.913571 2.293905 0.18268360
## 1973 26.25218 3.267749 0.0380123383 10.518043 2.353092 0.05918751
## 1974 29.14537 3.372296 0.1045471560 9.169550 2.215888 -0.13720398
## 1975 30.12604 3.405390 0.0330937472 10.248073 2.327090 0.11120148
## 1976 30.14262 3.405940 0.0005503104 10.470380 2.348550 0.02146061
## 1977 29.87341 3.396969 -0.0089714769 13.969874 2.636903 0.28835287
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1972 9.2745 2.227269 0.07527396 0.7915 -0.23382540 0.18960003 0.6520
## 1973 10.7736 2.377099 0.14983000 1.0194 0.01921422 0.25303962 0.8368
## 1974 9.5222 2.253626 -0.12347278 1.0995 0.09485553 0.07564131 0.8393
## 1975 9.1784 2.216853 -0.03677302 1.2877 0.25285768 0.15800215 0.9760
## 1976 10.1058 2.313110 0.09625662 1.6834 0.52081556 0.26795788 1.3674
## 1977 10.5859 2.359523 0.04641341 2.0568 0.72115138 0.20033582 1.6755
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1972 -0.42771072 0.193115802 0.8237524 -0.1938853 0.003515768 7.639891
## 1973 -0.17817019 0.249540531 0.8208750 -0.1973844 -0.003499087 8.843779
## 1974 -0.17518707 0.002983118 0.7633470 -0.2700426 -0.072658194 7.268743
## 1975 -0.02429269 0.150894375 0.7579405 -0.2771504 -0.007107775 6.956681
## 1976 0.31291113 0.337203819 0.8122847 -0.2079044 0.069245943 8.208786
## 1977 0.51611163 0.203200502 0.8146149 -0.2050397 0.002864683 8.623432
## I_l I_dl r r_l r_dl P
## 1972 2.033383 0.07878973 -3.8057373 1.2018225 -0.58267670 9.078024
## 1973 2.179714 0.14633091 -3.9493973 1.1576713 -0.04415125 10.464472
## 1974 1.983583 -0.19613098 8.0427800 2.7196290 1.56195767 11.101508
## 1975 1.939703 -0.04388079 -5.1304257 0.6938895 -2.02573951 13.336614
## 1976 2.105205 0.16550256 -5.2959917 0.6075452 -0.08634423 16.139858
## 1977 2.154483 0.04927809 -0.3820517 1.9095216 1.30197640 18.290164
## P_l P_dl Pm Pm_l Pm_dl Px Px_l
## 1972 2.205857 0.12562016 11.94886 2.480636 0.05582459 15.19382 2.720888
## 1973 2.347986 0.14212933 13.61133 2.610903 0.13026656 18.18425 2.900556
## 1974 2.407081 0.05909505 19.65152 2.978155 0.36725189 22.37231 3.107824
## 1975 2.590513 0.18343221 23.68721 3.164935 0.18678064 26.48239 3.276480
## 1976 2.781292 0.19077874 28.17744 3.338522 0.17358638 32.56438 3.483219
## 1977 2.906363 0.12507154 32.91204 3.493838 0.15531684 37.37491 3.621000
## Px_dl X X_l X_dl M M_l M_dl
## 1972 0.1092205 6.5331 1.876882 0.035395860 9.7963 2.282005 0.04940232
## 1973 0.1796673 7.2462 1.980477 0.103595631 11.6608 2.456233 0.17422803
## 1974 0.2072684 7.2973 1.987504 0.007027223 11.3941 2.433096 -0.02313711
## 1975 0.1686557 7.8484 2.060310 0.072805273 10.2308 2.325403 -0.10769290
## 1976 0.2067391 8.4854 2.138347 0.078037350 11.7318 2.462303 0.13690033
## 1977 0.1377808 9.6760 2.269649 0.131301553 13.2881 2.586869 0.12456579
## rulc rulc_l rulc_dl ulc ulc_l ulc_dl
## 1972 0.7074812 -0.3460442 -0.044959655 6.422532 1.859812 0.08066050
## 1973 0.7017572 -0.3541677 -0.008123583 7.343519 1.993818 0.13400575
## 1974 0.7472616 -0.2913399 0.062827817 8.295731 2.115741 0.12192286
## 1975 0.7310530 -0.3132693 -0.021929356 9.749772 2.277244 0.16150285
## 1976 0.7217127 -0.3261281 -0.012858829 11.648341 2.455164 0.17791991
## 1977 0.6615410 -0.4131833 -0.087055181 12.099694 2.493180 0.03801636
## Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## 1972 38.23783 3.643825 0.036677331 0.05339591 0.069795565 0.4571181
## 1973 38.61859 3.653734 0.009908417 0.04940073 0.011862770 0.5054104
## 1974 39.06983 3.665351 0.011616866 -0.15998352 -0.308156847 0.4792310
## 1975 40.62465 3.704375 0.039024405 -0.01812497 -0.003348434 0.4387186
## 1976 40.47610 3.700712 -0.003663418 0.03315273 0.017192356 0.4840658
## 1977 42.43055 3.747869 0.047157056 -0.01753602 -0.030245299 0.5085357
IRL %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1972 0.7182570 -0.3309279 -0.043741673 0.2817430 -1.2667598 0.1210235702
## 1973 0.7139521 -0.3369394 -0.006011464 0.2860479 -1.2515961 0.0151637034
## 1974 0.7606794 -0.2735433 0.063396058 0.2393206 -1.4299512 -0.1783550751
## 1975 0.7461722 -0.2927989 -0.019255614 0.2538278 -1.3710991 0.0588521181
## 1976 0.7421914 -0.2981481 -0.005349164 0.2578086 -1.3555379 0.0155611340
## 1977 0.6813680 -0.3836528 -0.085504722 0.3186320 -1.1437183 0.2118196287
## 1978 0.6637103 -0.4099095 -0.026256682 0.3362897 -1.0897824 0.0539359494
## 1979 0.6909596 -0.3696739 0.040235587 0.3090404 -1.1742833 -0.0845009648
## 1980 0.7324808 -0.3113181 0.058355793 0.2675192 -1.3185641 -0.1442807416
## 1981 0.7217473 -0.3260802 -0.014762125 0.2782527 -1.2792255 0.0393385530
## 1982 0.7072850 -0.3463215 -0.020241290 0.2927150 -1.2285560 0.0506695200
## 1983 0.7101315 -0.3423051 0.004016421 0.2898685 -1.2383279 -0.0097719552
## 1984 0.6916053 -0.3687399 -0.026434762 0.3083947 -1.1763748 0.0619531222
## 1985 0.6693957 -0.4013799 -0.032640070 0.3306043 -1.1068331 0.0695417722
## 1986 0.6700797 -0.4003587 0.001021270 0.3299203 -1.1089041 -0.0020710302
## 1987 0.6630087 -0.4109672 -0.010608543 0.3369913 -1.0876981 0.0212059901
## 1988 0.6540656 -0.4245477 -0.013580464 0.3459344 -1.0615060 0.0261920516
## 1989 0.6385455 -0.4485623 -0.024014665 0.3614545 -1.0176191 0.0438869073
## 1990 0.6313173 -0.4599467 -0.011384331 0.3686827 -0.9978189 0.0198001893
## 1991 0.6323599 -0.4582965 0.001650151 0.3676401 -1.0006509 -0.0028319910
## 1992 0.6492844 -0.4318844 0.026412114 0.3507156 -1.0477797 -0.0471287951
## 1993 0.6364046 -0.4519207 -0.020036308 0.3635954 -1.0117137 0.0360660755
## 1994 0.6327114 -0.4577409 -0.005820173 0.3672886 -1.0016074 0.0101062785
## 1995 0.6006430 -0.5097546 -0.052013712 0.3993570 -0.9178994 0.0837079397
## 1996 0.5877622 -0.5314329 -0.021678280 0.4122378 -0.8861549 0.0317445744
## 1997 0.5683736 -0.5649763 -0.033543400 0.4316264 -0.8401950 0.0459599022
## 1998 0.5680648 -0.5655198 -0.000543579 0.4319352 -0.8394796 0.0007153445
## 1999 0.5504852 -0.5969553 -0.031435406 0.4495148 -0.7995864 0.0398931717
## 2000 0.5313285 -0.6323749 -0.035419633 0.4686715 -0.7578531 0.0417333538
## 2001 0.5200959 -0.6537420 -0.021367114 0.4799041 -0.7341691 0.0236840372
## 2002 0.4971933 -0.6987764 -0.045034385 0.5028067 -0.6875495 0.0466195664
## 2003 0.5059779 -0.6812623 0.017514075 0.4940221 -0.7051750 -0.0176255147
## 2004 0.5166696 -0.6603516 0.020910665 0.4833304 -0.7270548 -0.0218798368
## 2005 0.5255007 -0.6434037 0.016947952 0.4744993 -0.7454952 -0.0184403672
## 2006 0.5334326 -0.6284226 0.014981110 0.4665674 -0.7623528 -0.0168575468
## 2007 0.5499762 -0.5978803 0.030542260 0.4500238 -0.7984547 -0.0361019961
## 2008 0.5876585 -0.5316093 0.066271043 0.4123415 -0.8859034 -0.0874486430
## 2009 0.5820377 -0.5412200 -0.009610733 0.4179623 -0.8723641 0.0135392901
## 2010 0.5526778 -0.5929800 -0.051760028 0.4473222 -0.8044762 0.0678879070
## 2011 0.5310253 -0.6329457 -0.039965641 0.4689747 -0.7572064 0.0472698168
## 2012 0.5206134 -0.6527475 -0.019801822 0.4793866 -0.7352480 0.0219584227
## 2013 0.5226868 -0.6487728 0.003974677 0.4773132 -0.7395824 -0.0043344659
## 2014 0.4991306 -0.6948875 -0.046114658 0.5008694 -0.6914099 0.0481725221
## 2015 0.3840374 -0.9570155 -0.262127970 0.6159626 -0.4845690 0.2068409412
## 2016 0.3947703 -0.9294513 0.027564152 0.6052297 -0.5021472 -0.0175782006
## 2017 0.3798765 -0.9679091 -0.038457839 0.6201235 -0.4778366 0.0243105689
## 2018 0.3653289 -1.0069573 -0.039048186 0.6346711 -0.4546483 0.0231882750
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1972 35.7225 3.575781 0.062878016 15530551449638 30.37383 0.0552442249
## 1973 37.4092 3.621917 0.046135921 16513647538000 30.43521 0.0613780173
## 1974 39.0029 3.663636 0.041719339 16675329944786 30.44495 0.0097432159
## 1975 41.2091 3.718659 0.055023103 16670027327982 30.44463 -0.0003180423
## 1976 41.7654 3.732068 0.013409140 17506218406389 30.49358 0.0489438192
## 1977 45.1573 3.810152 0.078083705 18190139458975 30.53190 0.0383235040
## 1978 48.3752 3.878987 0.068835336 18940281596010 30.57231 0.0404112961
## 1979 49.8519 3.909057 0.030069324 19732218924937 30.61327 0.0409618228
## 1980 51.3755 3.939161 0.030104795 20025742374621 30.62804 0.0147657864
## 1981 53.0737 3.971682 0.032520109 20435198251127 30.64828 0.0202402539
## 1982 54.2753 3.994069 0.022387730 20385029235845 30.64582 -0.0024580481
## 1983 54.1456 3.991677 -0.002392529 20958487199633 30.67356 0.0277429108
## 1984 56.4950 4.034152 0.042475424 21958144561420 30.72016 0.0465944401
## 1985 58.2462 4.064679 0.030526716 22775446989959 30.75670 0.0365449480
## 1986 58.4149 4.067571 0.002892140 23526848022914 30.78916 0.0324591688
## 1987 61.1389 4.113148 0.045577331 24364184068806 30.82414 0.0349719498
## 1988 63.7472 4.154925 0.041776937 25539549828052 30.87125 0.0471140364
## 1989 67.7070 4.215190 0.060264310 26527018153229 30.90918 0.0379355423
## 1990 72.8785 4.288794 0.073604099 27366863049101 30.94035 0.0311691372
## 1991 74.2848 4.307906 0.019112684 27792856466076 30.95580 0.0154461223
## 1992 76.7683 4.340792 0.032885440 28377910390162 30.97663 0.0208320133
## 1993 78.8354 4.367362 0.026570340 28754207176282 30.98981 0.0131730537
## 1994 83.3730 4.423325 0.055962381 29686054048035 31.02170 0.0318932818
## 1995 91.5485 4.516869 0.093544371 30568325707329 31.05099 0.0292869904
## 1996 98.3361 4.588391 0.071522316 31504811824829 31.08116 0.0301759252
## 1997 109.0585 4.691884 0.103493233 32579679449377 31.11471 0.0335484737
## 1998 118.5371 4.775226 0.083341556 33449170456174 31.14105 0.0263382225
## 1999 130.9877 4.875103 0.099877434 34536150522298 31.17303 0.0319796299
## 2000 143.3605 4.965362 0.090259011 35930482167401 31.21261 0.0395794040
## 2001 150.9277 5.016801 0.051438477 36458833640969 31.22720 0.0145977580
## 2002 159.8623 5.074313 0.057511905 37021275841123 31.24251 0.0153089915
## 2003 164.6905 5.104068 0.029755135 37864236049962 31.26503 0.0225142566
## 2004 175.7605 5.169122 0.065054318 39131032208304 31.29794 0.0329087881
## 2005 185.7786 5.224556 0.055433369 40280218850195 31.32688 0.0289446862
## 2006 195.1992 5.274021 0.049464933 41558964644866 31.35813 0.0312527526
## 2007 205.5921 5.325894 0.051873533 42727729546927 31.38587 0.0277348598
## 2008 196.3808 5.280056 -0.045838477 42894933942781 31.38977 0.0039056157
## 2009 186.4062 5.227928 -0.052127468 41459344219506 31.35573 -0.0340404394
## 2010 189.7801 5.245866 0.017937870 42714042811817 31.38555 0.0298144479
## 2011 190.4319 5.249295 0.003428617 43499132420833 31.40376 0.0182132559
## 2012 190.8617 5.251549 0.002254432 44082849119884 31.41709 0.0133298044
## 2013 193.4415 5.264975 0.013426059 44740960455468 31.43191 0.0148186254
## 2014 209.9937 5.347078 0.082102389 45676609173785 31.45261 0.0206969093
## 2015 262.8334 5.571520 0.224442841 46774524563837 31.47636 0.0237523752
## 2016 272.4999 5.607638 0.036117876 47593183627919 31.49371 0.0173508421
## 2017 294.6959 5.685944 0.078305730 48690345662631 31.51650 0.0227912195
## 2018 318.7721 5.764476 0.078532450 49794722996569 31.53893 0.0224282451
## Tax Yf Yf_l Yf_dl C C_l
## 1972 0.53593 35.18657 3.560664 0.0616600340 21.7807 3.081024
## 1973 0.63898 36.77022 3.604688 0.0440238027 23.3442 3.150349
## 1974 0.68798 38.31492 3.645839 0.0411510980 23.7276 3.166639
## 1975 0.83499 40.37411 3.698189 0.0523493615 23.9231 3.174845
## 1976 1.15240 40.61300 3.704088 0.0058994744 24.5737 3.201677
## 1977 1.31402 43.84328 3.780621 0.0765332450 26.2120 3.266217
## 1978 1.44409 46.93111 3.848681 0.0680593244 28.5470 3.351552
## 1979 1.59020 48.26170 3.876638 0.0279575037 29.7983 3.394451
## 1980 2.03148 49.34402 3.898817 0.0221782978 29.9280 3.398794
## 1981 2.56081 50.51289 3.922229 0.0234119680 30.4346 3.415580
## 1982 3.13307 51.14223 3.934611 0.0123820235 28.3310 3.343957
## 1983 3.61302 50.53258 3.922618 -0.0119922979 28.5699 3.352354
## 1984 4.02559 52.46941 3.960230 0.0376120563 29.1473 3.372362
## 1985 4.22742 54.01878 3.989332 0.0291014308 30.4856 3.417254
## 1986 4.49325 53.92165 3.987532 -0.0017996969 31.3575 3.445453
## 1987 4.74822 56.39068 4.032304 0.0447718296 32.4001 3.478162
## 1988 5.12706 58.62014 4.071078 0.0387744269 33.8384 3.521596
## 1989 5.65924 62.04776 4.127904 0.0568260875 35.8410 3.579092
## 1990 5.74832 67.13018 4.206634 0.0787293082 36.0620 3.585240
## 1991 5.83951 68.44529 4.226035 0.0194010207 36.7129 3.603128
## 1992 6.17560 70.59270 4.256927 0.0308919997 37.7727 3.631587
## 1993 6.33340 72.50200 4.283614 0.0266874080 38.8703 3.660230
## 1994 7.21665 76.15635 4.332788 0.0491743162 40.5666 3.702945
## 1995 7.90522 83.64328 4.426561 0.0937726256 41.9648 3.736831
## 1996 8.70487 89.63123 4.495704 0.0691427189 44.9442 3.805422
## 1997 9.75691 99.30159 4.598162 0.1024577746 47.8410 3.867883
## 1998 11.08244 107.45466 4.677069 0.0789074081 51.5692 3.942925
## 1999 12.40273 118.58497 4.775630 0.0985607589 56.4287 4.032978
## 2000 14.26096 129.09954 4.860584 0.0849539847 62.3878 4.133370
## 2001 14.76928 136.15842 4.913819 0.0532353260 65.2780 4.178655
## 2002 16.31423 143.54807 4.966670 0.0528509009 67.7061 4.215176
## 2003 17.80320 146.88730 4.989666 0.0229956644 69.6547 4.243550
## 2004 19.87457 155.88593 5.049125 0.0594588958 72.1848 4.279229
## 2005 22.56837 163.21023 5.095039 0.0459146026 77.2801 4.347436
## 2006 25.33755 169.86165 5.134984 0.0399451578 82.4514 4.412209
## 2007 26.12697 179.46513 5.189981 0.0549966450 87.9062 4.476270
## 2008 22.80387 173.57693 5.156621 -0.0333600255 88.1379 4.478903
## 2009 18.57748 167.82872 5.122944 -0.0336769662 83.6417 4.426542
## 2010 18.30529 171.47481 5.144436 0.0214924398 84.0162 4.431010
## 2011 18.03402 172.39788 5.149805 0.0053686858 82.6525 4.414645
## 2012 18.61387 172.24783 5.148934 -0.0008707493 81.9245 4.405798
## 2013 19.55729 173.88421 5.158390 0.0094553061 82.1817 4.408933
## 2014 21.48740 188.50630 5.239131 0.0807418102 84.2476 4.433760
## 2015 22.90754 239.92586 5.480330 0.2411985309 86.8442 4.464116
## 2016 24.11070 248.38920 5.514997 0.0346669119 91.5147 4.516500
## 2017 25.11370 269.58220 5.596873 0.0818764823 94.3150 4.546640
## 2018 25.69613 293.07597 5.680432 0.0835585056 97.5178 4.580035
## C_dl W W_l W_dl R R_l
## 1972 0.050204801 25.27300 3.229737 0.0179183609 9.913571 2.293905
## 1973 0.069324303 26.25218 3.267749 0.0380123383 10.518043 2.353092
## 1974 0.016290368 29.14537 3.372296 0.1045471560 9.169550 2.215888
## 1975 0.008205592 30.12604 3.405390 0.0330937472 10.248073 2.327090
## 1976 0.026832246 30.14262 3.405940 0.0005503104 10.470380 2.348550
## 1977 0.064540556 29.87341 3.396969 -0.0089714769 13.969874 2.636903
## 1978 0.085334531 31.14866 3.438771 0.0418026422 15.782448 2.758898
## 1979 0.042899493 33.34689 3.506964 0.0681930906 14.914814 2.702355
## 1980 0.004343152 36.14355 3.587498 0.0805340911 13.200471 2.580253
## 1981 0.016785622 36.45754 3.596148 0.0086498425 14.055349 2.643003
## 1982 -0.071623508 36.17213 3.588289 -0.0078592664 14.970096 2.706055
## 1983 0.008397105 35.88478 3.580313 -0.0079758769 14.647803 2.684290
## 1984 0.020008568 36.28812 3.591490 0.0111772939 16.181288 2.783856
## 1985 0.044892157 36.15994 3.587952 -0.0035386392 17.858842 2.882499
## 1986 0.028199032 36.13180 3.587173 -0.0007784268 17.789849 2.878628
## 1987 0.032708036 37.38751 3.621337 0.0341632869 19.003170 2.944606
## 1988 0.043434743 38.34142 3.646531 0.0251939633 20.278725 3.009572
## 1989 0.057496237 39.62032 3.679342 0.0328114228 22.427442 3.110285
## 1990 0.006147190 42.38045 3.746687 0.0673449777 24.749735 3.208815
## 1991 0.017888513 43.28206 3.767738 0.0210511718 25.163230 3.225384
## 1992 0.028458428 45.83474 3.825042 0.0573041140 24.757959 3.209147
## 1993 0.028643843 46.14061 3.831693 0.0066511002 26.361391 3.271900
## 1994 0.042714605 48.18499 3.875048 0.0433541433 27.971359 3.331181
## 1995 0.033886104 50.23975 3.916806 0.0417589134 33.403532 3.508662
## 1996 0.068590549 52.68185 3.964271 0.0474644394 36.949383 3.609549
## 1997 0.062461292 56.44041 4.033185 0.0689143748 42.861184 3.757967
## 1998 0.075041583 61.04121 4.111549 0.0783638292 46.413454 3.837589
## 1999 0.090053299 65.27927 4.178674 0.0671253530 53.305702 3.976043
## 2000 0.100391849 68.59426 4.228209 0.0495343520 60.505281 4.102731
## 2001 0.045285329 70.81544 4.260077 0.0318682121 65.342980 4.179650
## 2002 0.036521206 71.37114 4.267894 0.0078165158 72.176931 4.279120
## 2003 0.028373899 74.32173 4.308403 0.0405097390 72.565574 4.284491
## 2004 0.035679319 80.54152 4.388773 0.0803695606 75.344406 4.322070
## 2005 0.068206986 85.76710 4.451635 0.0628625543 77.443135 4.349544
## 2006 0.064772545 90.60974 4.506562 0.0549262680 79.251911 4.372632
## 2007 0.064061308 98.70155 4.592101 0.0855389052 80.763585 4.391526
## 2008 0.002632296 102.00396 4.625012 0.0329110177 71.572972 4.270718
## 2009 -0.052360434 97.68265 4.581724 -0.0432876995 70.146074 4.250580
## 2010 0.004467438 94.77032 4.551456 -0.0302675887 76.704485 4.339960
## 2011 -0.016364566 91.54763 4.516859 -0.0345969547 80.850251 4.392599
## 2012 -0.008846980 89.67453 4.496187 -0.0206725717 82.573298 4.413686
## 2013 0.003134558 90.88698 4.509617 0.0134299831 82.997227 4.418807
## 2014 0.024827433 94.08926 4.544244 0.0346271520 94.417037 4.547722
## 2015 0.030355626 92.14049 4.523315 -0.0209294388 147.785368 4.995761
## 2016 0.052383906 98.05667 4.585546 0.0622310635 150.332531 5.012850
## 2017 0.030140629 102.40794 4.628964 0.0434186434 167.174264 5.119037
## 2018 0.033394682 107.06911 4.673475 0.0445103194 186.006859 5.225784
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1972 0.182683604 9.2745 2.227269 0.0752739643 0.7915 -0.23382540
## 1973 0.059187506 10.7736 2.377099 0.1498299985 1.0194 0.01921422
## 1974 -0.137203977 9.5222 2.253626 -0.1234727826 1.0995 0.09485553
## 1975 0.111201480 9.1784 2.216853 -0.0367730170 1.2877 0.25285768
## 1976 0.021460608 10.1058 2.313110 0.0962566189 1.6834 0.52081556
## 1977 0.288352874 10.5859 2.359523 0.0464134105 2.0568 0.72115138
## 1978 0.121995274 12.5216 2.527455 0.1679322261 2.7090 0.99657956
## 1979 -0.056543461 14.3341 2.662641 0.1351861609 3.5346 1.26260014
## 1980 -0.122102444 13.7992 2.624611 -0.0380306945 3.9541 1.37475302
## 1981 0.062750521 14.8093 2.695255 0.0706447423 4.8734 1.58379185
## 1982 0.063051543 14.3112 2.661042 -0.0342129143 5.1361 1.63629404
## 1983 -0.021764253 13.0223 2.566663 -0.0943791750 4.9665 1.60271537
## 1984 0.099565178 12.6761 2.539718 -0.0269449418 5.0993 1.62910328
## 1985 0.098643203 11.6933 2.459016 -0.0807023025 4.9121 1.59170155
## 1986 -0.003870727 11.6889 2.458640 -0.0003763547 5.0267 1.61476371
## 1987 0.065977820 11.4176 2.435156 -0.0234836490 5.0228 1.61398755
## 1988 0.064966478 11.2355 2.419078 -0.0160776161 5.1892 1.64657954
## 1989 0.100712995 12.9875 2.563987 0.1449089480 6.2303 1.82942449
## 1990 0.098529498 14.5618 2.678402 0.1144143051 7.3166 1.99014574
## 1991 0.016569030 13.5448 2.606003 -0.0723989517 6.9507 1.93884237
## 1992 -0.016236795 13.5412 2.605737 -0.0002658200 7.2652 1.98309583
## 1993 0.062753483 12.8529 2.553569 -0.0521674230 7.2141 1.97603744
## 1994 0.059280595 14.3744 2.665449 0.1118793799 8.2822 2.11410863
## 1995 0.177480565 16.5432 2.805975 0.1405262946 9.8958 2.29211042
## 1996 0.100887293 19.2607 2.958067 0.1520916092 11.9208 2.47828477
## 1997 0.148417677 22.3049 3.104806 0.1467396348 14.6064 2.68145979
## 1998 0.079622753 25.3028 3.230915 0.1261086763 18.1176 2.89688384
## 1999 0.138453931 28.8642 3.362602 0.1316870114 22.4181 3.10986867
## 2000 0.126687338 30.3225 3.411890 0.0492879383 25.7590 3.24878408
## 2001 0.076919363 32.0879 3.468479 0.0565890008 29.2237 3.37498002
## 2002 0.099470467 33.8706 3.522547 0.0540683694 32.0861 3.46842291
## 2003 0.005370150 36.5718 3.599277 0.0767300702 36.2648 3.59084757
## 2004 0.037579059 40.1404 3.692383 0.0931058568 42.1124 3.74034223
## 2005 0.027474235 46.8991 3.847998 0.1556151771 50.8007 3.92791013
## 2006 0.023087611 50.2812 3.917631 0.0696327643 57.2994 4.04829015
## 2007 0.018894649 50.2967 3.917939 0.0003082188 56.5729 4.03553007
## 2008 -0.120808668 44.4714 3.794846 -0.1230931827 46.5251 3.83999195
## 2009 -0.020137676 36.9433 3.609384 -0.1854619811 35.8757 3.58006019
## 2010 0.089380347 31.3906 3.446508 -0.1628758198 29.4225 3.38175969
## 2011 0.052638503 31.0483 3.435544 -0.0109644286 28.3602 3.34498675
## 2012 0.021087673 36.4067 3.594753 0.1592087672 34.3371 3.53622640
## 2013 0.005120840 34.8988 3.552452 -0.0423003790 33.3423 3.50682686
## 2014 0.128914332 41.3650 3.722435 0.1699826680 40.2079 3.69406349
## 2015 0.448039472 63.2355 4.146866 0.4244307397 63.2355 4.14686585
## 2016 0.017088711 95.2152 4.556140 0.4092737406 96.8051 4.57269968
## 2017 0.106187051 88.8269 4.486690 -0.0694500609 93.2604 4.53539558
## 2018 0.106746781 70.0514 4.249229 -0.2374602737 75.8145 4.32828957
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1972 0.1896000338 0.6520 -0.42771072 0.193115802 0.8237524 -0.19388532
## 1973 0.2530396186 0.8368 -0.17817019 0.249540531 0.8208750 -0.19738440
## 1974 0.0756413121 0.8393 -0.17518707 0.002983118 0.7633470 -0.27004260
## 1975 0.1580021503 0.9760 -0.02429269 0.150894375 0.7579405 -0.27715037
## 1976 0.2679578765 1.3674 0.31291113 0.337203819 0.8122847 -0.20790443
## 1977 0.2003358192 1.6755 0.51611163 0.203200502 0.8146149 -0.20503975
## 1978 0.2754281861 2.2406 0.80674369 0.290632059 0.8270949 -0.18983588
## 1979 0.2660205757 2.9221 1.07230254 0.265558849 0.8267131 -0.19029760
## 1980 0.1121528765 3.1481 1.14679910 0.074496560 0.7961609 -0.22795392
## 1981 0.2090388302 3.9305 1.36876664 0.221967548 0.8065211 -0.21502520
## 1982 0.0525021912 4.1112 1.41371496 0.044948312 0.8004517 -0.22257908
## 1983 -0.0335786699 3.9614 1.37659750 -0.037117459 0.7976241 -0.22611787
## 1984 0.0263879087 4.1343 1.41931803 0.042720529 0.8107583 -0.20978525
## 1985 -0.0374017265 3.8659 1.35219451 -0.067123514 0.7870157 -0.23950704
## 1986 0.0230621562 4.0199 1.39125703 0.039062513 0.7997096 -0.22350668
## 1987 -0.0007761581 4.2218 1.44026158 0.049004551 0.8405272 -0.17372597
## 1988 0.0325919956 4.6112 1.52848813 0.088226549 0.8886148 -0.11809142
## 1989 0.1828449430 5.5939 1.72167672 0.193188592 0.8978540 -0.10774777
## 1990 0.1607212535 6.5114 1.87355449 0.151877769 0.8899489 -0.11659125
## 1991 -0.0513033653 6.0761 1.80436304 -0.069191444 0.8741709 -0.13447933
## 1992 0.0442534520 6.3780 1.85285457 0.048491526 0.8778836 -0.13024126
## 1993 -0.0070583816 6.1747 1.82046030 -0.032394270 0.8559210 -0.15557715
## 1994 0.1380711893 7.1321 1.96460572 0.144145423 0.8611359 -0.14950291
## 1995 0.1780017911 8.6096 2.15287786 0.188272139 0.8700257 -0.13923256
## 1996 0.1861743488 10.4318 2.34485883 0.191980973 0.8750923 -0.13342594
## 1997 0.2031750153 12.8262 2.55148995 0.206631121 0.8781219 -0.12996983
## 1998 0.2154240527 15.9254 2.76791532 0.216425365 0.8790016 -0.12896852
## 1999 0.2129848268 19.5267 2.97178276 0.203867441 0.8710239 -0.13808591
## 2000 0.1389154123 21.9592 3.08918619 0.117403426 0.8524865 -0.15959789
## 2001 0.1261959433 24.0714 3.18102441 0.091838228 0.8236945 -0.19395561
## 2002 0.0934428906 26.3449 3.27127471 0.090250294 0.8210689 -0.19714821
## 2003 0.1224246593 30.9132 3.43118328 0.159908569 0.8524299 -0.15966430
## 2004 0.1494946603 36.6060 3.60021216 0.169028884 0.8692452 -0.14013007
## 2005 0.1875678999 44.7769 3.80169238 0.201480220 0.8814229 -0.12621775
## 2006 0.1203800184 50.2718 3.91744428 0.115751902 0.8773530 -0.13084587
## 2007 -0.0127600805 47.3669 3.85792367 -0.059520611 0.8372719 -0.17760640
## 2008 -0.1955381201 36.6479 3.60135613 -0.256567545 0.7877017 -0.23863582
## 2009 -0.2599317658 29.4679 3.38330154 -0.218054593 0.8213889 -0.19675865
## 2010 -0.1983004983 23.7305 3.16676114 -0.216540395 0.8065426 -0.21499855
## 2011 -0.0367729339 24.1214 3.18309941 0.016338273 0.8505370 -0.16188734
## 2012 0.1912396485 30.7688 3.42650119 0.243401776 0.8960803 -0.10972521
## 2013 -0.0293995411 29.7290 3.39212300 -0.034378189 0.8916302 -0.11470386
## 2014 0.1872366326 35.9287 3.58153642 0.189413419 0.8935732 -0.11252707
## 2015 0.4528023586 58.5554 4.06997331 0.488436896 0.9259894 -0.07689254
## 2016 0.4258338265 91.6083 4.51752188 0.447548564 0.9463169 -0.05517780
## 2017 -0.0373040984 87.9886 4.47720726 -0.040314618 0.9434723 -0.05818832
## 2018 -0.2071060132 69.4821 4.24106917 -0.236138095 0.9164751 -0.08722040
## Ips_dl I I_l I_dl r r_l
## 1972 0.0035157681 7.639891 2.033383 0.078789732 -3.8057373 1.2018225
## 1973 -0.0034990872 8.843779 2.179714 0.146330911 -3.9493973 1.1576713
## 1974 -0.0726581943 7.268743 1.983583 -0.196130977 8.0427800 2.7196290
## 1975 -0.0071077750 6.956681 1.939703 -0.043880792 -5.1304257 0.6938895
## 1976 0.0692459426 8.208786 2.105205 0.165502562 -5.2959917 0.6075452
## 1977 0.0028646825 8.623432 2.154483 0.049278093 -0.3820517 1.9095216
## 1978 0.0152038728 10.356551 2.337619 0.183136099 1.9390433 2.2050775
## 1979 -0.0004617269 11.850188 2.472344 0.134724434 1.1157030 2.1099239
## 1980 -0.0376563161 10.986384 2.396657 -0.075687011 0.5135055 2.0341063
## 1981 0.0129287178 11.944013 2.480230 0.083573460 -0.1953599 1.9368047
## 1982 -0.0075538787 11.455424 2.438463 -0.041766793 1.5323022 2.1592011
## 1983 -0.0035387886 10.386900 2.340545 -0.097917964 2.7516320 2.2908710
## 1984 0.0163326207 10.277254 2.329933 -0.010612321 7.7472752 2.6999633
## 1985 -0.0297217872 9.202811 2.219509 -0.110424090 7.0267225 2.6503246
## 1986 0.0160003565 9.347725 2.235133 0.015624002 5.0558134 2.5004292
## 1987 0.0497807087 9.596803 2.261430 0.026297060 8.9057986 2.7749428
## 1988 0.0556345539 9.984032 2.300987 0.039556938 5.0821019 2.5025839
## 1989 0.0103436485 11.660879 2.456240 0.155252596 3.6357093 2.3765435
## 1990 -0.0088434849 12.959258 2.561810 0.105570820 10.4657324 2.8677650
## 1991 -0.0178880788 11.840471 2.471523 -0.090287030 7.2775159 2.6678826
## 1992 0.0042380738 11.887598 2.475496 0.003972254 6.0865910 2.5816175
## 1993 -0.0253358887 11.001068 2.397992 -0.077503312 2.4000391 2.2546493
## 1994 0.0060742336 12.378312 2.515946 0.117953613 6.1217352 2.5842727
## 1995 0.0102703474 14.393009 2.666743 0.150796642 5.2267408 2.5143564
## 1996 0.0058066247 16.854890 2.824641 0.157898234 4.9208313 2.4892922
## 1997 0.0034561054 19.586422 2.974837 0.150195740 2.3215347 2.2463793
## 1998 0.0010013123 22.241203 3.101947 0.127109989 -1.6207926 1.7067675
## 1999 -0.0091173859 25.141407 3.224516 0.122569625 0.3364148 2.0106708
## 2000 -0.0215119860 25.849522 3.252292 0.027775952 -1.3028400 1.7628576
## 2001 -0.0343577156 26.430626 3.274523 0.022231285 -1.7555062 1.6820199
## 2002 -0.0031925966 27.810098 3.325399 0.050875773 -0.2272641 1.9321946
## 2003 0.0374839100 31.174896 3.439613 0.114213980 0.2022291 1.9925401
## 2004 0.0195342239 34.891849 3.552253 0.112640081 3.5439418 2.3679844
## 2005 0.0139123202 41.337940 3.721781 0.169527497 0.2072641 1.9932264
## 2006 -0.0046281162 44.114361 3.786785 0.065004648 0.2955757 2.0051875
## 2007 -0.0467605307 42.112014 3.740333 -0.046452312 3.0623360 2.3218235
## 2008 -0.0610294246 35.030197 3.556210 -0.184122607 4.8626739 2.4844553
## 2009 0.0418771732 30.344815 3.412626 -0.143584808 10.2603054 2.8560228
## 2010 -0.0182398964 25.317857 3.231510 -0.181115716 9.1738649 2.7915194
## 2011 0.0531112066 26.407729 3.273657 0.042146778 7.9840790 2.7157531
## 2012 0.0521621278 32.623328 3.485028 0.211370895 3.8036199 2.3920172
## 2013 -0.0049786480 31.116822 3.437749 -0.047279027 2.5313861 2.2683349
## 2014 0.0021767860 36.962653 3.609908 0.172159454 2.4835572 2.2633731
## 2015 0.0356345371 58.555400 4.069973 0.460065277 -6.1319108 0.0000000
## 2016 0.0217147377 90.103751 4.500962 0.430988478 1.0426906 2.1010320
## 2017 -0.0030105199 83.805716 4.428501 -0.072460581 -0.3255392 1.9178592
## 2018 -0.0290320820 64.200362 4.162009 -0.266492356 0.1299882 1.9826414
## r_dl P P_l P_dl Pm Pm_l
## 1972 -0.582676700 9.078024 2.205857 0.125620158 11.94886 2.480636
## 1973 -0.044151251 10.464472 2.347986 0.142129332 13.61133 2.610903
## 1974 1.561957668 11.101508 2.407081 0.059095046 19.65152 2.978155
## 1975 -2.025739506 13.336614 2.590513 0.183432211 23.68721 3.164935
## 1976 -0.086344227 16.139858 2.781292 0.190778736 28.17744 3.338522
## 1977 1.301976403 18.290164 2.906363 0.125071540 32.91204 3.493838
## 1978 0.295555821 20.246041 3.007959 0.101595864 34.46758 3.540019
## 1979 -0.095153529 23.040061 3.137234 0.129275204 39.19329 3.668506
## 1980 -0.075817630 26.440935 3.274913 0.137678882 46.25051 3.834072
## 1981 -0.097301629 31.062680 3.436007 0.161093731 54.85460 4.004686
## 1982 0.222396431 35.791791 3.577719 0.141711466 58.96791 4.076993
## 1983 0.131669937 39.671653 3.680637 0.102918334 62.03581 4.127712
## 1984 0.409092293 42.202133 3.742471 0.061833869 67.89031 4.217893
## 1985 -0.049638758 44.427357 3.793855 0.051384645 69.65297 4.243525
## 1986 -0.149895333 46.983400 3.849794 0.055938933 62.59891 4.136748
## 1987 0.274513555 48.016290 3.871540 0.021745982 63.42731 4.149895
## 1988 -0.272358912 49.642039 3.904838 0.033297697 67.47922 4.211820
## 1989 -0.126040383 52.182821 3.954753 0.049915316 71.64029 4.271658
## 1990 0.491221492 52.000605 3.951255 -0.003497984 68.99909 4.234093
## 1991 -0.199882360 52.937338 3.969109 0.017853549 70.66278 4.257919
## 1992 -0.086265125 54.426063 3.996843 0.027734223 69.79500 4.245562
## 1993 -0.326968196 57.243015 4.047306 0.050462488 72.96738 4.290012
## 1994 0.329623381 58.213015 4.064109 0.016803332 74.70832 4.313591
## 1995 -0.069916332 59.885527 4.092435 0.028325908 77.51707 4.350498
## 1996 -0.025064158 61.237775 4.114764 0.022329370 77.11580 4.345308
## 1997 -0.242912916 63.612837 4.152815 0.038051051 77.69447 4.352784
## 1998 -0.539611736 67.764576 4.216040 0.063224297 79.45164 4.375149
## 1999 0.303903281 70.718380 4.258706 0.042665936 81.35096 4.398773
## 2000 -0.247813219 75.599909 4.325455 0.066749563 85.78545 4.451849
## 2001 -0.080837744 80.806019 4.392051 0.066596377 84.34660 4.434935
## 2002 0.250174759 85.047684 4.443212 0.051160625 82.08408 4.407744
## 2003 0.060345525 88.381420 4.481662 0.038449684 80.72848 4.391091
## 2004 0.375444280 88.838980 4.486826 0.005163753 85.57871 4.449436
## 2005 -0.374758000 91.607449 4.517513 0.030687068 85.91797 4.453393
## 2006 0.011961086 94.771766 4.551472 0.033958956 88.25766 4.480260
## 2007 0.316636011 95.919066 4.563505 0.012033226 87.92063 4.476434
## 2008 0.162631751 95.614765 4.560327 -0.003177515 89.67566 4.496199
## 2009 0.371567488 91.252620 4.513632 -0.046695553 87.29816 4.469329
## 2010 -0.064503379 88.382435 4.481673 -0.031958450 92.83246 4.530796
## 2011 -0.075766272 89.705028 4.496527 0.014853575 90.53357 4.505721
## 2012 -0.323735926 91.750007 4.519068 0.022540739 95.95964 4.563928
## 2013 -0.123682301 92.876275 4.531268 0.012200670 95.00595 4.553940
## 2014 -0.004961832 92.773364 4.530160 -0.001108667 97.42550 4.579088
## 2015 -2.263373052 100.000000 4.605170 0.075010619 100.00000 4.605170
## 2016 2.101031957 99.700433 4.602170 -0.003000166 98.58990 4.590969
## 2017 -0.183172784 100.826265 4.613399 0.011228871 100.28439 4.608010
## 2018 0.064782191 101.651979 4.621555 0.008156121 101.47193 4.619782
## Pm_dl Px Px_l Px_dl X X_l
## 1972 0.055824594 15.19382 2.720888 0.1092205000 6.5331 1.876882
## 1973 0.130266562 18.18425 2.900556 0.1796672888 7.2462 1.980477
## 1974 0.367251893 22.37231 3.107824 0.2072683750 7.2973 1.987504
## 1975 0.186780645 26.48239 3.276480 0.1686556714 7.8484 2.060310
## 1976 0.173586380 32.56438 3.483219 0.2067391129 8.4854 2.138347
## 1977 0.155316839 37.37491 3.621000 0.1377808217 9.6760 2.269649
## 1978 0.046180635 39.85268 3.685190 0.0641898064 10.8681 2.385832
## 1979 0.128486478 43.67269 3.776723 0.0915334975 11.5710 2.448502
## 1980 0.165566864 48.38959 3.879285 0.1025616687 12.3063 2.510111
## 1981 0.170613582 56.31296 4.030925 0.1516399378 12.5467 2.529458
## 1982 0.072307264 62.38811 4.133375 0.1024500318 13.2380 2.583091
## 1983 0.050718471 68.05888 4.220373 0.0869985021 14.6217 2.682507
## 1984 0.090181481 73.57477 4.298302 0.0779290203 17.0474 2.835998
## 1985 0.025632072 75.87512 4.329089 0.0307865763 18.1690 2.899717
## 1986 -0.106777427 71.10748 4.264193 -0.0648961926 18.7353 2.930409
## 1987 0.013146623 71.43287 4.268758 0.0045656061 21.3058 3.058979
## 1988 0.061925219 75.46551 4.323676 0.0549174846 23.1928 3.143842
## 1989 0.059837927 80.96849 4.394060 0.0703844276 25.5846 3.241991
## 1990 -0.037564369 74.43850 4.309973 -0.0840868081 27.8181 3.325687
## 1991 0.023825733 74.24412 4.307359 -0.0026146931 29.4045 3.381148
## 1992 -0.012356650 72.78330 4.287487 -0.0198720270 33.4882 3.511193
## 1993 0.044450081 77.74877 4.353483 0.0659961361 36.7362 3.603763
## 1994 0.023578976 77.89032 4.355302 0.0018189151 42.2957 3.744685
## 1995 0.036906755 79.35166 4.373889 0.0185877866 50.7344 3.926604
## 1996 -0.005190022 78.99290 4.369358 -0.0045314725 57.0365 4.043691
## 1997 0.007475858 79.83411 4.379951 0.0105929147 67.0455 4.205371
## 1998 0.022364503 82.39692 4.411548 0.0315972605 82.3120 4.410517
## 1999 0.023624106 84.18866 4.433060 0.0215120933 95.2941 4.556968
## 2000 0.053076721 88.67673 4.484998 0.0519373157 115.4848 4.749139
## 2001 -0.016914844 88.30083 4.480749 -0.0042480592 131.6620 4.880238
## 2002 -0.027190476 87.74585 4.474445 -0.0063048965 140.1883 4.942987
## 2003 -0.016652673 85.39784 4.447321 -0.0271237016 137.8081 4.925862
## 2004 0.058345113 85.66515 4.450446 0.0031252699 146.7938 4.989029
## 2005 0.003956492 87.47279 4.471328 0.0208816500 154.8379 5.042379
## 2006 0.026867501 89.00199 4.488659 0.0173309339 164.2075 5.101131
## 2007 -0.003826022 89.08438 4.489584 0.0009252848 178.8244 5.186404
## 2008 0.019764911 91.81447 4.519770 0.0301858730 172.0229 5.147628
## 2009 -0.026870052 88.09948 4.478467 -0.0413032780 180.0194 5.193065
## 2010 0.061467003 90.54598 4.505858 0.0273912069 190.8385 5.251428
## 2011 -0.025075634 90.03119 4.500156 -0.0057016220 196.9352 5.282875
## 2012 0.058206984 93.74756 4.540606 0.0404495044 195.2187 5.274120
## 2013 -0.009988181 92.69289 4.529292 -0.0113139703 200.9262 5.302938
## 2014 0.025148499 93.11677 4.533854 0.0045625287 230.1945 5.438925
## 2015 0.026082185 100.00000 4.605170 0.0713159406 320.5649 5.770085
## 2016 -0.014201331 98.33439 4.588374 -0.0167963574 333.7951 5.810527
## 2017 0.017041212 98.62708 4.591346 0.0029720646 364.6614 5.898969
## 2018 0.011772189 98.45841 4.589634 -0.0017116688 402.5895 5.997917
## X_dl M M_l M_dl rulc rulc_l
## 1972 0.035395860 9.7963 2.282005 0.049402317 0.7074812 -0.3460442
## 1973 0.103595631 11.6608 2.456233 0.174228026 0.7017572 -0.3541677
## 1974 0.007027223 11.3941 2.433096 -0.023137112 0.7472616 -0.2913399
## 1975 0.072805273 10.2308 2.325403 -0.107692899 0.7310530 -0.3132693
## 1976 0.078037350 11.7318 2.462303 0.136900325 0.7217127 -0.3261281
## 1977 0.131301553 13.2881 2.586869 0.124565794 0.6615410 -0.4131833
## 1978 0.116183300 15.3753 2.732762 0.145893428 0.6438973 -0.4402160
## 1979 0.062670075 17.5065 2.862572 0.129809915 0.6689191 -0.4020922
## 1980 0.061609358 16.7192 2.816558 -0.046014481 0.7035172 -0.3516629
## 1981 0.019346356 17.0052 2.833519 0.016961420 0.6869229 -0.3755332
## 1982 0.053633799 16.4798 2.802135 -0.031383791 0.6664566 -0.4057802
## 1983 0.099415245 17.2488 2.847743 0.045607187 0.6627460 -0.4113635
## 1984 0.153490973 18.9484 2.941719 0.093976919 0.6423245 -0.4426617
## 1985 0.063719146 19.5631 2.973645 0.031925644 0.6208120 -0.4767270
## 1986 0.030692600 20.7876 3.034357 0.060711516 0.6185374 -0.4803976
## 1987 0.128569891 22.0716 3.094292 0.059935059 0.6115175 -0.4918116
## 1988 0.084862550 23.1540 3.142168 0.047875838 0.6014604 -0.5083946
## 1989 0.098148722 26.2705 3.268447 0.126279085 0.5851731 -0.5358475
## 1990 0.083696280 27.6066 3.318055 0.049608238 0.5815219 -0.5421066
## 1991 0.055460836 28.2693 3.341776 0.023721536 0.5826503 -0.5401681
## 1992 0.130045414 30.5778 3.420274 0.078497845 0.5970530 -0.5157495
## 1993 0.092569507 32.8851 3.493020 0.072745412 0.5852778 -0.5356687
## 1994 0.140922781 37.9776 3.636997 0.143976845 0.5779448 -0.5482769
## 1995 0.181918755 44.2093 3.788935 0.151938662 0.5487774 -0.6000624
## 1996 0.117087232 49.8874 3.909768 0.120833292 0.5357325 -0.6241203
## 1997 0.161680080 58.1906 4.063724 0.153955364 0.5175241 -0.6586991
## 1998 0.205145412 74.3535 4.308831 0.245106917 0.5149544 -0.6636768
## 1999 0.146450994 83.7340 4.427645 0.118814361 0.4983618 -0.6964289
## 2000 0.192171021 101.8930 4.623923 0.196278135 0.4784739 -0.7371536
## 2001 0.131099113 115.2423 4.747037 0.123113625 0.4692011 -0.7567239
## 2002 0.062748486 121.3944 4.799045 0.052007881 0.4464538 -0.8064192
## 2003 -0.017124381 118.4598 4.774574 -0.024471087 0.4512812 -0.7956646
## 2004 0.063166743 120.7152 4.793434 0.018860390 0.4582459 -0.7803494
## 2005 0.053349882 136.0740 4.913199 0.119764803 0.4616629 -0.7729202
## 2006 0.058752109 148.7313 5.002141 0.088942467 0.4641911 -0.7674589
## 2007 0.085273447 162.6395 5.091536 0.089394773 0.4800843 -0.7337935
## 2008 -0.038776711 158.1084 5.063281 -0.028255221 0.5194192 -0.6550440
## 2009 0.045437015 155.4164 5.046108 -0.017172907 0.5240311 -0.6462042
## 2010 0.058362898 156.1143 5.050588 0.004480465 0.4993691 -0.6944097
## 2011 0.031447220 160.3192 5.077167 0.026578397 0.4807368 -0.7324353
## 2012 -0.008754272 158.8153 5.067742 -0.009424936 0.4698404 -0.7553623
## 2013 0.028817208 160.4699 5.078106 0.010364494 0.4698422 -0.7553584
## 2014 0.135986927 183.8987 5.214385 0.136278676 0.4480576 -0.8028336
## 2015 0.331160148 244.8861 5.500793 0.286408142 0.3505661 -1.0482059
## 2016 0.040442580 289.9709 5.669781 0.168987369 0.3598411 -1.0220927
## 2017 0.088441920 293.1943 5.680836 0.011054956 0.3475038 -1.0569798
## 2018 0.098948181 284.8013 5.651792 -0.029043785 0.3358798 -1.0910019
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1972 -0.044959655175 6.422532 1.859812 0.0806605029 38.23783 3.643825
## 1973 -0.008123582778 7.343519 1.993818 0.1340057496 38.61859 3.653734
## 1974 0.062827817149 8.295731 2.115741 0.1219228629 39.06983 3.665351
## 1975 -0.021929356200 9.749772 2.277244 0.1615028546 40.62465 3.704375
## 1976 -0.012858829378 11.648341 2.455164 0.1779199063 40.47610 3.700712
## 1977 -0.087055181374 12.099694 2.493180 0.0380163588 42.43055 3.747869
## 1978 -0.027032693420 13.036372 2.567743 0.0745631711 43.78426 3.779274
## 1979 0.038123766271 15.411936 2.735142 0.1673989703 43.17901 3.765355
## 1980 0.050429296043 18.601653 2.923250 0.1881081776 43.28355 3.767773
## 1981 -0.023870266005 21.337667 3.060474 0.1372234654 43.85375 3.780860
## 1982 -0.030246995957 23.853677 3.171938 0.1114644700 43.92529 3.782490
## 1983 -0.005583348117 26.292228 3.269273 0.0973349858 43.58184 3.774641
## 1984 -0.031298130424 27.107464 3.299809 0.0305357389 45.26700 3.812578
## 1985 -0.034065354840 27.581035 3.317128 0.0173192902 46.80520 3.845994
## 1986 -0.003670566779 29.060991 3.369397 0.0522683660 46.28097 3.834731
## 1987 -0.011414043622 29.362804 3.379729 0.0103319389 47.78546 3.866721
## 1988 -0.016582973386 29.857720 3.396443 0.0167147232 49.41980 3.900351
## 1989 -0.027452887600 30.535986 3.418906 0.0224624280 52.00564 3.951352
## 1990 -0.006259121349 30.239492 3.409149 -0.0097571055 54.01481 3.989258
## 1991 0.001938488053 30.843955 3.428941 0.0197920375 54.64314 4.000824
## 1992 0.024418674190 32.495242 3.481094 0.0521528967 55.85532 4.022765
## 1993 -0.019919239859 33.503065 3.511637 0.0305432482 56.48976 4.034059
## 1994 -0.012608238126 33.643909 3.515832 0.0041950943 58.26007 4.064917
## 1995 -0.051785457200 32.863824 3.492372 -0.0234595491 61.91823 4.125815
## 1996 -0.024057877013 32.807068 3.490644 -0.0017285075 64.27400 4.163155
## 1997 -0.034578857790 32.921178 3.494116 0.0034721928 68.56214 4.227741
## 1998 -0.004977727061 34.895669 3.552363 0.0582465702 70.46997 4.255187
## 1999 -0.032752080949 35.243340 3.562277 0.0099138550 73.47381 4.296929
## 2000 -0.040724659300 36.172584 3.588301 0.0260249037 76.71379 4.340081
## 2001 -0.019570265178 37.914272 3.635328 0.0470261119 77.59381 4.351488
## 2002 -0.049695389684 37.969866 3.636793 0.0014652353 79.63546 4.377460
## 2003 0.010754603807 39.884873 3.685997 0.0492042877 79.31110 4.373378
## 2004 0.015315242586 40.710096 3.706476 0.0204789959 81.01023 4.394575
## 2005 0.007429185007 42.291764 3.744592 0.0381162534 81.00730 4.394539
## 2006 0.005461334546 43.992214 3.784013 0.0394202906 80.70353 4.390782
## 2007 0.033665372078 46.049240 3.829711 0.0456985981 80.90259 4.393246
## 2008 0.078749494937 49.664145 3.905283 0.0755719795 76.11292 4.332218
## 2009 0.008839768436 47.819211 3.867427 -0.0378557842 74.73965 4.314011
## 2010 -0.048205458643 44.135460 3.787264 -0.0801639089 77.44154 4.349523
## 2011 -0.038025571554 43.124512 3.764092 -0.0231719969 78.28569 4.360365
## 2012 -0.022927003386 43.107857 3.763705 -0.0003862645 78.03540 4.357163
## 2013 0.000003923934 43.637195 3.775910 0.0122045939 77.36280 4.348506
## 2014 -0.047475237098 41.567806 3.727326 -0.0485839041 81.93982 4.405985
## 2015 -0.245372279914 35.056615 3.556964 -0.1703616613 100.00000 4.605170
## 2016 0.026113187767 35.876315 3.580077 0.0231130218 99.01757 4.595297
## 2017 -0.034887086619 35.037507 3.556419 -0.0236582155 103.81534 4.642614
## 2018 -0.034022130803 34.142847 3.530553 -0.0258660094 110.65161 4.706387
## Tau_dl dPxdPm dPdPm Trade
## 1972 0.0366773311 0.0533959064 0.0697955646 0.4571181
## 1973 0.0099084171 0.0494007266 0.0118627701 0.5054104
## 1974 0.0116168659 -0.1599835182 -0.3081568474 0.4792310
## 1975 0.0390244048 -0.0181249736 -0.0033484342 0.4387186
## 1976 -0.0036634181 0.0331527332 0.0171923559 0.4840658
## 1977 0.0471570561 -0.0175360172 -0.0302452987 0.5085357
## 1978 0.0314057337 0.0180091715 0.0554152296 0.5424970
## 1979 -0.0139198232 -0.0369529808 0.0007887258 0.5832777
## 1980 0.0024181137 -0.0630051953 -0.0278879823 0.5649677
## 1981 0.0130876792 -0.0189736442 -0.0095198506 0.5568087
## 1982 0.0016299770 0.0301427678 0.0694042019 0.5475382
## 1983 -0.0078497157 0.0362800309 0.0521998627 0.5886074
## 1984 0.0379377631 -0.0122524606 -0.0283476116 0.6371502
## 1985 0.0334159408 0.0051545041 0.0257525729 0.6478036
## 1986 -0.0112634379 0.0418812344 0.1627163598 0.6765894
## 1987 0.0319905331 -0.0085810169 0.0085993594 0.7094894
## 1988 0.0336298443 -0.0070077348 -0.0286275228 0.7270406
## 1989 0.0510008743 0.0105465004 -0.0099226116 0.7658750
## 1990 0.0379061853 -0.0465224391 0.0340663850 0.7605082
## 1991 0.0115654616 -0.0264404265 -0.0059721840 0.7763876
## 1992 0.0219409792 -0.0075153772 0.0400908723 0.8345372
## 1993 0.0112945646 0.0215460549 0.0060124069 0.8831223
## 1994 0.0308577067 -0.0217600606 -0.0067756433 0.9628213
## 1995 0.0608976519 -0.0183189680 -0.0085808466 1.0370864
## 1996 0.0373405383 0.0006585494 0.0275193914 1.0873311
## 1997 0.0645853084 0.0031170566 0.0305751925 1.1483387
## 1998 0.0274461412 0.0092327571 0.0408597938 1.3216579
## 1999 0.0417423171 -0.0021120122 0.0190418304 1.3667550
## 2000 0.0431525322 -0.0011394056 0.0136728418 1.5163019
## 2001 0.0114061503 0.0126667844 0.0835112206 1.6359111
## 2002 0.0259718555 0.0208855792 0.0783511007 1.6363001
## 2003 -0.0040814504 -0.0104710284 0.0551023570 1.5560576
## 2004 0.0211973885 -0.0552198434 -0.0531813599 1.5220086
## 2005 -0.0000361788 0.0169251577 0.0267305760 1.5659064
## 2006 -0.0037569278 -0.0095365670 0.0070914551 1.6031767
## 2007 0.0024634538 0.0047513069 0.0158592481 1.6608805
## 2008 -0.0610277200 0.0104209620 -0.0229424265 1.6810773
## 2009 -0.0182073240 -0.0144332256 -0.0198255002 1.7994884
## 2010 0.0355125440 -0.0340757963 -0.0934254535 1.8281832
## 2011 0.0108415016 0.0193740119 0.0399292086 1.8760218
## 2012 -0.0032022707 -0.0177574798 -0.0356662454 1.8549243
## 2013 -0.0086564388 -0.0013257893 0.0221888510 1.8682449
## 2014 0.0574789493 -0.0205859698 -0.0262571655 1.9719315
## 2015 0.1991851582 0.0452337554 0.0489284335 2.1513666
## 2016 -0.0098728486 -0.0025950261 0.0112011652 2.2890504
## 2017 0.0473164413 -0.0140691473 -0.0058123408 2.2323205
## 2018 0.0637728797 -0.0134838579 -0.0036160677 2.1563706
adf.IRL.WS <- adf.test((IRL$WS), alternative = c("stationary"), k = 2)
adf.IRL.PS <- adf.test((IRL$PS), alternative = c("stationary"), k = 2)
adf.IRL.Y <- adf.test((IRL$Y), alternative = c("stationary"), k = 2)
adf.IRL.Yrw <- adf.test((IRL$Yrw), alternative = c("stationary"), k = 2)
adf.IRL.r <- adf.test((IRL$r), alternative = c("stationary"), k = 2)
adf.IRL.R <- adf.test((IRL$R), alternative = c("stationary"), k = 2)
adf.IRL.Tau <- adf.test((IRL$Tau), alternative = c("stationary"), k = 2)
adf.IRL.rulc <- adf.test((IRL$rulc), alternative = c("stationary"), k = 2)
adf.IRL.ulc <- adf.test((IRL$ulc), alternative = c("stationary"), k = 2)
adf.IRL.P <- adf.test((IRL$P), alternative = c("stationary"), k = 2)
adf.IRL.Pm <- adf.test((IRL$Pm), alternative = c("stationary"), k = 2)
adf.IRL.Px <- adf.test((IRL$Px), alternative = c("stationary"), k = 2)
adf.IRL.X <- adf.test((IRL$X), alternative = c("stationary"), k = 2)
adf.IRL.M <- adf.test((IRL$M), alternative = c("stationary"), k = 2)
adf.IRL.I <- adf.test((IRL$I), alternative = c("stationary"), k = 2)
adf.IRL.C <- adf.test((IRL$C), alternative = c("stationary"), k = 2)
adf.IRL.Ipr <- adf.test((IRL$Ipr), alternative = c("stationary"), k = 2)
adf.IRL.Ips <- adf.test((IRL$Ips), alternative = c("stationary"), k = 2)
adf.IRL.It <- adf.test((IRL$It), alternative = c("stationary"), k = 2)
adf.IRL.Itcurr <- adf.test((IRL$Itcurr), alternative = c("stationary"), k = 2)
adf.IRL.Yf <- adf.test((IRL$Yf), alternative = c("stationary"), k = 2)
adf.IRL.W <- adf.test((IRL$W), alternative = c("stationary"), k = 2)
adf.IRL.WS.pval <- adf.IRL.WS$p.value
adf.IRL.PS.pval <- adf.IRL.PS$p.value
adf.IRL.Y.pval <- adf.IRL.Y$p.value
adf.IRL.Yrw.pval <- adf.IRL.Yrw$p.value
adf.IRL.r.pval <- adf.IRL.r$p.value
adf.IRL.R.pval <- adf.IRL.R$p.value
adf.IRL.Tau.pval <- adf.IRL.Tau$p.value
adf.IRL.rulc.pval <- adf.IRL.rulc$p.value
adf.IRL.ulc.pval <- adf.IRL.ulc$p.value
adf.IRL.P.pval <- adf.IRL.P$p.value
adf.IRL.Pm.pval <- adf.IRL.Pm$p.value
adf.IRL.Px.pval <- adf.IRL.Px$p.value
adf.IRL.X.pval <- adf.IRL.X$p.value
adf.IRL.M.pval <- adf.IRL.M$p.value
adf.IRL.I.pval <- adf.IRL.I$p.value
adf.IRL.C.pval <- adf.IRL.C$p.value
adf.IRL.Ipr.pval <- adf.IRL.Ipr$p.value
adf.IRL.Ips.pval <- adf.IRL.Ips$p.value
adf.IRL.It.pval <- adf.IRL.It$p.value
adf.IRL.Itcurr.pval <- adf.IRL.Itcurr$p.value
adf.IRL.Yf.pval <- adf.IRL.Yf$p.value
adf.IRL.W.pval <- adf.IRL.W$p.value
adf.IRL_non <- rbind(adf.IRL.WS.pval,adf.IRL.PS.pval,adf.IRL.Y.pval,adf.IRL.Yrw.pval,adf.IRL.r.pval,adf.IRL.R.pval,adf.IRL.Tau.pval,adf.IRL.rulc.pval,adf.IRL.ulc.pval,adf.IRL.P.pval,adf.IRL.Pm.pval,adf.IRL.Px.pval,adf.IRL.X.pval,adf.IRL.M.pval,adf.IRL.I.pval,adf.IRL.C.pval,adf.IRL.Ipr.pval,adf.IRL.Ips.pval,adf.IRL.It.pval,adf.IRL.Itcurr.pval,adf.IRL.Yf.pval,adf.IRL.W.pval)
colnames(adf.IRL_non) <- c("IRL")
rownames(adf.IRL_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.IRL_non
## IRL
## WS 0.5037880
## PS 0.5037880
## Y 0.9639427
## Yrw 0.3435530
## r 0.6141288
## R 0.9900000
## Tau 0.8380785
## rulc 0.3282103
## ulc 0.9900000
## P 0.5962927
## Pm 0.2475195
## Px 0.2637521
## X 0.9900000
## M 0.9900000
## I 0.7196880
## C 0.5149172
## Ipr 0.5623122
## Ips 0.1903383
## It 0.6314683
## Itcurr 0.4831139
## Yf 0.9877571
## W 0.3415005
adf.IRL.WS_dl <- adf.test((IRL$WS_dl), alternative = c("stationary"), k = 2)
adf.IRL.PS_dl <- adf.test((IRL$PS_dl), alternative = c("stationary"), k = 2)
adf.IRL.Y_dl <- adf.test((IRL$Y_dl), alternative = c("stationary"), k = 2)
adf.IRL.Yrw_dl <- adf.test((IRL$Yrw_dl), alternative = c("stationary"), k = 2)
adf.IRL.r_dl <- adf.test((IRL$r_dl), alternative = c("stationary"), k = 2)
adf.IRL.R_dl <- adf.test((IRL$R_dl), alternative = c("stationary"), k = 2)
adf.IRL.Tau_dl <- adf.test((IRL$Tau_dl), alternative = c("stationary"), k = 2)
adf.IRL.rulc_dl <- adf.test((IRL$rulc_dl), alternative = c("stationary"), k = 2)
adf.IRL.ulc_dl <- adf.test((IRL$ulc_dl), alternative = c("stationary"), k = 2)
adf.IRL.P_dl <- adf.test((IRL$P_dl), alternative = c("stationary"), k = 2)
adf.IRL.Pm_dl <- adf.test((IRL$Pm_dl), alternative = c("stationary"), k = 2)
adf.IRL.Px_dl <- adf.test((IRL$Px_dl), alternative = c("stationary"), k = 2)
adf.IRL.X_dl <- adf.test((IRL$X_dl), alternative = c("stationary"), k = 2)
adf.IRL.M_dl <- adf.test((IRL$M_dl), alternative = c("stationary"), k = 2)
adf.IRL.I_dl <- adf.test((IRL$I_dl), alternative = c("stationary"), k = 2)
adf.IRL.C_dl <- adf.test((IRL$C_dl), alternative = c("stationary"), k = 2)
adf.IRL.Ipr_dl <- adf.test((IRL$Ipr_dl), alternative = c("stationary"), k = 2)
adf.IRL.Ips_dl <- adf.test((IRL$Ips_dl), alternative = c("stationary"), k = 2)
adf.IRL.It_dl <- adf.test((IRL$It_dl), alternative = c("stationary"), k = 2)
adf.IRL.Itcurr_dl <- adf.test((IRL$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.IRL.Yf_dl <- adf.test((IRL$Yf_dl), alternative = c("stationary"), k = 2)
adf.IRL.W_dl <- adf.test((IRL$W_dl), alternative = c("stationary"), k = 2)
adf.IRL.WS_dl.pval <- adf.IRL.WS_dl$p.value
adf.IRL.PS_dl.pval <- adf.IRL.PS_dl$p.value
adf.IRL.Y_dl.pval <- adf.IRL.Y_dl$p.value
adf.IRL.Yrw_dl.pval <- adf.IRL.Yrw_dl$p.value
adf.IRL.r_dl.pval <- adf.IRL.r_dl$p.value
adf.IRL.R_dl.pval <- adf.IRL.R_dl$p.value
adf.IRL.Tau_dl.pval <- adf.IRL.Tau_dl$p.value
adf.IRL.rulc_dl.pval <- adf.IRL.rulc_dl$p.value
adf.IRL.ulc_dl.pval <- adf.IRL.ulc_dl$p.value
adf.IRL.P_dl.pval <- adf.IRL.P_dl$p.value
adf.IRL.Pm_dl.pval <- adf.IRL.Pm_dl$p.value
adf.IRL.Px_dl.pval <- adf.IRL.Px_dl$p.value
adf.IRL.X_dl.pval <- adf.IRL.X_dl$p.value
adf.IRL.M_dl.pval <- adf.IRL.M_dl$p.value
adf.IRL.I_dl.pval <- adf.IRL.I_dl$p.value
adf.IRL.C_dl.pval <- adf.IRL.C_dl$p.value
adf.IRL.Ipr_dl.pval <- adf.IRL.Ipr_dl$p.value
adf.IRL.Ips_dl.pval <- adf.IRL.Ips_dl$p.value
adf.IRL.It_dl.pval <- adf.IRL.It_dl$p.value
adf.IRL.Itcurr_dl.pval <- adf.IRL.Itcurr_dl$p.value
adf.IRL.Yf_dl.pval <- adf.IRL.Yf_dl$p.value
adf.IRL.W_dl.pval <- adf.IRL.W_dl$p.value
adf.IRL_dl <- rbind(adf.IRL.WS_dl.pval,adf.IRL.PS_dl.pval,adf.IRL.Y_dl.pval,adf.IRL.Yrw_dl.pval,adf.IRL.r_dl.pval,adf.IRL.R_dl.pval,adf.IRL.Tau_dl.pval,adf.IRL.rulc_dl.pval,adf.IRL.ulc_dl.pval,adf.IRL.P_dl.pval,adf.IRL.Pm_dl.pval,adf.IRL.Px_dl.pval,adf.IRL.X_dl.pval,adf.IRL.M_dl.pval,adf.IRL.I_dl.pval,adf.IRL.C_dl.pval,adf.IRL.Ipr_dl.pval,adf.IRL.Ips_dl.pval,adf.IRL.It_dl.pval,adf.IRL.Itcurr_dl.pval,adf.IRL.Yf_dl.pval,adf.IRL.W_dl.pval)
colnames(adf.IRL_dl) <- c("IRL")
rownames(adf.IRL_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.IRL_dl
## IRL
## dlog(WS) 0.02145193
## dlog(PS) 0.01000000
## dlog(Y) 0.30026523
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.01754412
## dlog(Tau) 0.24701188
## dlog(rulc) 0.02076826
## dlog(ulc) 0.14554801
## dlog(P) 0.45566142
## dlog(Pm) 0.08104895
## dlog(Px) 0.21918373
## dlog(X) 0.12778865
## dlog(M) 0.04497963
## dlog(I) 0.03861790
## dlog(C) 0.07557573
## dlog(Ipr) 0.08298669
## dlog(Ips) 0.01000000
## dlog(It) 0.04337843
## dlog(Itcurr) 0.09023967
## dlog(Yf) 0.28598249
## dlog(W) 0.04709417
adf.IRL <- NULL
adf.IRL <- rbind(adf.IRL_non,adf.IRL_dl)
#Consumption (C)
IRL_consumption <- dynlm(IRL$C_dl~IRL$R_dl+IRL$W_dl)
IRL_CR <- summary(IRL_consumption)$coefficients["IRL$R_dl","Estimate"]
IRL_CW <- summary(IRL_consumption)$coefficients["IRL$W_dl","Estimate"]
IRL_Ceffekt <- (IRL_CR*mean(IRL$C/IRL$R))-(IRL_CW*mean(IRL$C/IRL$W))
summary(IRL_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$C_dl ~ IRL$R_dl + IRL$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.07981 -0.01166 0.00329 0.01606 0.04591
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.002596 0.005972 0.435 0.666
## IRL$R_dl 0.166290 0.038767 4.290 0.00009650 ***
## IRL$W_dl 0.622105 0.108764 5.720 0.00000087 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02451 on 44 degrees of freedom
## Multiple R-squared: 0.4798, Adjusted R-squared: 0.4562
## F-statistic: 20.29 on 2 and 44 DF, p-value: 0.0000005699
#Investments (I)
IRL_investment <- dynlm(IRL$I_dl~IRL$PS_dl+IRL$Y_l)
IRL_iPS <- summary(IRL_investment)$coefficients["IRL$PS_dl","Estimate"]
IRL_Ieffekt <- IRL_iPS*mean(IRL$I/IRL$R)
summary(IRL_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$I_dl ~ IRL$PS_dl + IRL$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.33698 -0.09435 -0.00378 0.08780 0.39232
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.05087 0.14503 -0.351 0.7274
## IRL$PS_dl 0.71069 0.30301 2.345 0.0236 *
## IRL$Y_l 0.01819 0.03121 0.583 0.5629
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1382 on 44 degrees of freedom
## Multiple R-squared: 0.1181, Adjusted R-squared: 0.07806
## F-statistic: 2.947 on 2 and 44 DF, p-value: 0.06291
#Price deflator (P)
IRL_deflator <- dynlm(IRL$P_dl~L(IRL$ulc_dl)+IRL$Pm_dl)
IRL_ePULC <- summary(IRL_deflator)$coefficients["L(IRL$ulc_dl)","Estimate"]
summary(IRL_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$P_dl ~ L(IRL$ulc_dl) + IRL$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.095586 -0.017297 -0.002059 0.019701 0.123521
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.027562 0.006349 4.341 0.0000820 ***
## L(IRL$ulc_dl) 0.475365 0.096008 4.951 0.0000113 ***
## IRL$Pm_dl 0.188323 0.084172 2.237 0.0304 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0364 on 44 degrees of freedom
## Multiple R-squared: 0.5885, Adjusted R-squared: 0.5698
## F-statistic: 31.47 on 2 and 44 DF, p-value: 0.000000003276
#Export price deflator (Px)
IRL_exportdeflator <- dynlm(IRL$Px_dl~IRL$ulc_dl+IRL$Pm_dl)
IRL_ePX <- summary(IRL_exportdeflator)$coefficients["IRL$ulc_dl","Estimate"]
summary(IRL_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$Px_dl ~ IRL$ulc_dl + IRL$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.070105 -0.010789 -0.002674 0.009564 0.074762
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.004057 0.005092 0.797 0.4299
## IRL$ulc_dl 0.150339 0.076997 1.953 0.0573 .
## IRL$Pm_dl 0.694311 0.067505 10.285 0.000000000000279 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02919 on 44 degrees of freedom
## Multiple R-squared: 0.8179, Adjusted R-squared: 0.8097
## F-statistic: 98.84 on 2 and 44 DF, p-value: < 0.00000000000000022
#Exports (X)
IRL_exports <- dynlm(IRL$X_dl~L(IRL$dPxdPm)+IRL$Yrw_dl)
IRL_eXP <- summary(IRL_exports)$coefficients["L(IRL$dPxdPm)","Estimate"]
IRL_eXP <- 0
IRL_Xeffekt <- -(IRL_eXP*IRL_ePX*(1/(1-IRL_ePULC))*mean(IRL$Yf/IRL$Y)*(mean(IRL$X/IRL$Y)/mean(IRL$rulc)))
summary(IRL_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$X_dl ~ L(IRL$dPxdPm) + IRL$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.109472 -0.037296 -0.006789 0.033251 0.230252
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.06370 0.01814 3.511 0.00105 **
## L(IRL$dPxdPm) 0.29482 0.27419 1.075 0.28813
## IRL$Yrw_dl 1.00517 0.58995 1.704 0.09547 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06267 on 44 degrees of freedom
## Multiple R-squared: 0.1067, Adjusted R-squared: 0.06611
## F-statistic: 2.628 on 2 and 44 DF, p-value: 0.08352
#Imports (M)
IRL_imports <- dynlm(IRL$M_dl~IRL$dPdPm+L(IRL$Y_dl))
IRL_eMP <- summary(IRL_imports)$coefficients["IRL$dPdPm","Estimate"]
IRL_Meffekt <- -(IRL_eMP*IRL_ePULC*(1/(1-IRL_ePULC))*mean(IRL$Yf/IRL$Y)*(mean(IRL$M/IRL$Y)/mean(IRL$rulc)))
summary(IRL_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$M_dl ~ IRL$dPdPm + L(IRL$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.185489 -0.027150 0.009923 0.032972 0.123756
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.01729 0.01403 1.232 0.2245
## IRL$dPdPm 0.27027 0.14916 1.812 0.0768 .
## L(IRL$Y_dl) 1.11612 0.22065 5.058 0.00000795 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06349 on 44 degrees of freedom
## Multiple R-squared: 0.4087, Adjusted R-squared: 0.3818
## F-statistic: 15.2 on 2 and 44 DF, p-value: 0.000009555
names(IRL_consumption$coefficients) <- sub("IRL$","",names(IRL_consumption$coefficients),fixed=TRUE)
names(IRL_investment$coefficients) <- sub("IRL$","",names(IRL_investment$coefficients),fixed=TRUE)
names(IRL_deflator$coefficients) <- sub("IRL$","",names(IRL_deflator$coefficients),fixed=TRUE)
names(IRL_exportdeflator$coefficients) <- sub("IRL$","",names(IRL_exportdeflator$coefficients),fixed=TRUE)
names(IRL_exports$coefficients) <- sub("IRL$","",names(IRL_exports$coefficients),fixed=TRUE)
names(IRL_imports$coefficients) <- sub("IRL$","",names(IRL_imports$coefficients),fixed=TRUE)
IRL_Xeffekt
## [1] 0
IRL_Meffekt
## [1] -0.2276025
#Nettoeksport (NX)
IRL_NXeffekt <- IRL_Xeffekt - IRL_Meffekt
IRL_NXeffekt
## [1] 0.2276025
#Nettoeffekten
IRL_Neteffekt = IRL_Ceffekt + IRL_Ieffekt + IRL_NXeffekt
IRL_Neteffekt
## [1] 0.302703
IRL_Lukket <- IRL_Ceffekt + IRL_Ieffekt
IRL_Lukket_Konklusion <- ifelse(IRL_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
IRL_Lukket_Konklusion
## [1] "Profit-led domestic"
IRL_Def <- ifelse(IRL_Neteffekt > 0, "Profit-led", "Wage-led")
IRL_Def
## [1] "Profit-led"
summary(ur.df(y=IRL_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042694 -0.011162 0.000598 0.015467 0.041892
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.02517 0.81622 -1.256 0.223
## z.diff.lag1 0.18585 0.77878 0.239 0.814
## z.diff.lag2 0.31154 0.74011 0.421 0.678
## z.diff.lag3 0.20110 0.69878 0.288 0.776
## z.diff.lag4 0.09846 0.65324 0.151 0.882
## z.diff.lag5 0.18348 0.62027 0.296 0.770
## z.diff.lag6 0.10618 0.56324 0.189 0.852
## z.diff.lag7 0.07534 0.49372 0.153 0.880
## z.diff.lag8 0.28419 0.43447 0.654 0.520
## z.diff.lag9 0.12352 0.36196 0.341 0.736
## z.diff.lag10 0.04458 0.29957 0.149 0.883
## z.diff.lag11 0.08763 0.25684 0.341 0.736
## z.diff.lag12 0.02832 0.18601 0.152 0.880
##
## Residual standard error: 0.02346 on 21 degrees of freedom
## Multiple R-squared: 0.5231, Adjusted R-squared: 0.2279
## F-statistic: 1.772 on 13 and 21 DF, p-value: 0.1177
##
##
## Value of test-statistic is: -1.256
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=IRL_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.233986 -0.055883 0.004427 0.075957 0.154179
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -2.27102 0.92762 -2.448 0.0232 *
## z.diff.lag1 1.57298 0.82775 1.900 0.0712 .
## z.diff.lag2 1.29330 0.79687 1.623 0.1195
## z.diff.lag3 1.13890 0.75250 1.513 0.1451
## z.diff.lag4 1.58643 0.73227 2.166 0.0419 *
## z.diff.lag5 1.31113 0.76354 1.717 0.1007
## z.diff.lag6 0.72607 0.70314 1.033 0.3135
## z.diff.lag7 0.57433 0.61692 0.931 0.3625
## z.diff.lag8 0.68789 0.52392 1.313 0.2034
## z.diff.lag9 0.76459 0.46583 1.641 0.1156
## z.diff.lag10 0.82190 0.46772 1.757 0.0935 .
## z.diff.lag11 0.72939 0.44484 1.640 0.1160
## z.diff.lag12 0.01792 0.33146 0.054 0.9574
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1126 on 21 degrees of freedom
## Multiple R-squared: 0.6613, Adjusted R-squared: 0.4516
## F-statistic: 3.154 on 13 and 21 DF, p-value: 0.009422
##
##
## Value of test-statistic is: -2.4482
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=IRL_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.120568 -0.010474 0.009365 0.044544 0.140206
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.604516 0.652511 -2.459 0.0227 *
## z.diff.lag1 0.727483 0.561725 1.295 0.2093
## z.diff.lag2 0.710195 0.513527 1.383 0.1812
## z.diff.lag3 0.733901 0.478909 1.532 0.1403
## z.diff.lag4 0.668628 0.487566 1.371 0.1847
## z.diff.lag5 0.992833 0.454719 2.183 0.0405 *
## z.diff.lag6 1.040541 0.491058 2.119 0.0462 *
## z.diff.lag7 0.636267 0.492705 1.291 0.2106
## z.diff.lag8 0.626492 0.464603 1.348 0.1919
## z.diff.lag9 0.669076 0.433823 1.542 0.1379
## z.diff.lag10 0.658496 0.426656 1.543 0.1377
## z.diff.lag11 0.393716 0.381660 1.032 0.3140
## z.diff.lag12 -0.001296 0.313166 -0.004 0.9967
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06782 on 21 degrees of freedom
## Multiple R-squared: 0.5562, Adjusted R-squared: 0.2815
## F-statistic: 2.025 on 13 and 21 DF, p-value: 0.07262
##
##
## Value of test-statistic is: -2.459
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=IRL_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.09776 -0.01146 0.00860 0.02720 0.12988
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.60582 0.88116 -1.822 0.0827 .
## z.diff.lag1 0.78406 0.82000 0.956 0.3499
## z.diff.lag2 0.74077 0.79128 0.936 0.3598
## z.diff.lag3 0.56565 0.74992 0.754 0.4591
## z.diff.lag4 0.40313 0.68773 0.586 0.5640
## z.diff.lag5 0.54102 0.63318 0.854 0.4025
## z.diff.lag6 0.44105 0.59337 0.743 0.4655
## z.diff.lag7 0.48926 0.53880 0.908 0.3742
## z.diff.lag8 0.35888 0.48829 0.735 0.4705
## z.diff.lag9 0.29873 0.39171 0.763 0.4542
## z.diff.lag10 0.28373 0.33852 0.838 0.4114
## z.diff.lag11 0.29753 0.26816 1.110 0.2797
## z.diff.lag12 0.05585 0.19270 0.290 0.7748
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06123 on 21 degrees of freedom
## Multiple R-squared: 0.4463, Adjusted R-squared: 0.1035
## F-statistic: 1.302 on 13 and 21 DF, p-value: 0.2861
##
##
## Value of test-statistic is: -1.8224
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(IRL_consumption)
plot(IRL_investment)
plot(IRL_deflator)
plot(IRL_exportdeflator)
plot(IRL_exports)
plot(IRL_imports)
bptest(IRL_consumption)
##
## studentized Breusch-Pagan test
##
## data: IRL_consumption
## BP = 0.60444, df = 2, p-value = 0.7392
bptest(IRL_investment)
##
## studentized Breusch-Pagan test
##
## data: IRL_investment
## BP = 8.9302, df = 2, p-value = 0.0115
bptest(IRL_deflator)
##
## studentized Breusch-Pagan test
##
## data: IRL_deflator
## BP = 14.685, df = 2, p-value = 0.0006475
bptest(IRL_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: IRL_exportdeflator
## BP = 10.204, df = 2, p-value = 0.006085
bptest(IRL_exports)
##
## studentized Breusch-Pagan test
##
## data: IRL_exports
## BP = 3.9883, df = 2, p-value = 0.1361
bptest(IRL_imports)
##
## studentized Breusch-Pagan test
##
## data: IRL_imports
## BP = 0.35137, df = 2, p-value = 0.8389
resettest(IRL_consumption)
##
## RESET test
##
## data: IRL_consumption
## RESET = 0.77828, df1 = 2, df2 = 42, p-value = 0.4657
resettest(IRL_investment)
##
## RESET test
##
## data: IRL_investment
## RESET = 2.7856, df1 = 2, df2 = 42, p-value = 0.07312
resettest(IRL_deflator)
##
## RESET test
##
## data: IRL_deflator
## RESET = 19.755, df1 = 2, df2 = 42, p-value = 0.000000897
resettest(IRL_exportdeflator)
##
## RESET test
##
## data: IRL_exportdeflator
## RESET = 7.1653, df1 = 2, df2 = 42, p-value = 0.002102
resettest(IRL_exports)
##
## RESET test
##
## data: IRL_exports
## RESET = 3.0478, df1 = 2, df2 = 42, p-value = 0.05808
resettest(IRL_imports)
##
## RESET test
##
## data: IRL_imports
## RESET = 0.19116, df1 = 2, df2 = 42, p-value = 0.8267
IRL_regtab <- matrix(c(IRL_Ceffekt, IRL_Ieffekt, IRL_Lukket, IRL_Xeffekt, IRL_Meffekt, IRL_NXeffekt, IRL_Neteffekt,IRL_Lukket_Konklusion, IRL_Def),ncol=9,byrow=TRUE)
colnames(IRL_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(IRL_regtab) <- c("IRL")
IRL_regtab <- as.table(IRL_regtab)
IRL_regtab
## consumption investment Lukket neteffekt exports
## IRL -0.30621615726918 0.381316630290997 0.0751004730218173 0
## imports netexports neteffect
## IRL -0.227602497215577 0.227602497215577 0.302702970237394
## Lukket konklusion Konklusion
## IRL Profit-led domestic Profit-led
IRL_smoke <- matrix(c(mean(IRL$C/IRL$R), mean(IRL$C/IRL$W), mean(IRL$I/IRL$R), IRL_CR, IRL_CW, IRL_iPS, IRL_ePULC, (1/(1-IRL_ePULC)), IRL_eXP, IRL_ePX, IRL_eMP, mean(IRL$Yf/IRL$Y), mean(IRL$X/IRL$Y), mean(IRL$rulc), (mean(IRL$X/IRL$Y)/mean(IRL$rulc))),ncol=15,byrow=TRUE)
colnames(IRL_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(IRL_smoke) <- c("IRL")
IRL_smoke <- as.table(IRL_smoke)
IRL_smoke
## C/R C/W I/R CR CW iPS ePULC
## IRL 1.4196922 0.8717130 0.5365411 0.1662901 0.6221049 0.7106941 0.4753653
## 1/1-epulc eXP ePX eMP Yf/Y X/Y RULC
## IRL 1.9060880 0.0000000 0.1503387 0.2702690 0.9219420 0.6118324 0.5539909
## (X/Y)/rulc
## IRL 1.1044089
summary(IRL_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$C_dl ~ IRL$R_dl + IRL$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.07981 -0.01166 0.00329 0.01606 0.04591
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.002596 0.005972 0.435 0.666
## R_dl 0.166290 0.038767 4.290 0.00009650 ***
## W_dl 0.622105 0.108764 5.720 0.00000087 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02451 on 44 degrees of freedom
## Multiple R-squared: 0.4798, Adjusted R-squared: 0.4562
## F-statistic: 20.29 on 2 and 44 DF, p-value: 0.0000005699
summary(IRL_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$I_dl ~ IRL$PS_dl + IRL$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.33698 -0.09435 -0.00378 0.08780 0.39232
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.05087 0.14503 -0.351 0.7274
## PS_dl 0.71069 0.30301 2.345 0.0236 *
## Y_l 0.01819 0.03121 0.583 0.5629
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1382 on 44 degrees of freedom
## Multiple R-squared: 0.1181, Adjusted R-squared: 0.07806
## F-statistic: 2.947 on 2 and 44 DF, p-value: 0.06291
summary(IRL_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$P_dl ~ L(IRL$ulc_dl) + IRL$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.095586 -0.017297 -0.002059 0.019701 0.123521
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.027562 0.006349 4.341 0.0000820 ***
## L(ulc_dl) 0.475365 0.096008 4.951 0.0000113 ***
## Pm_dl 0.188323 0.084172 2.237 0.0304 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0364 on 44 degrees of freedom
## Multiple R-squared: 0.5885, Adjusted R-squared: 0.5698
## F-statistic: 31.47 on 2 and 44 DF, p-value: 0.000000003276
summary(IRL_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$Px_dl ~ IRL$ulc_dl + IRL$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.070105 -0.010789 -0.002674 0.009564 0.074762
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.004057 0.005092 0.797 0.4299
## ulc_dl 0.150339 0.076997 1.953 0.0573 .
## Pm_dl 0.694311 0.067505 10.285 0.000000000000279 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02919 on 44 degrees of freedom
## Multiple R-squared: 0.8179, Adjusted R-squared: 0.8097
## F-statistic: 98.84 on 2 and 44 DF, p-value: < 0.00000000000000022
summary(IRL_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$X_dl ~ L(IRL$dPxdPm) + IRL$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.109472 -0.037296 -0.006789 0.033251 0.230252
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.06370 0.01814 3.511 0.00105 **
## L(dPxdPm) 0.29482 0.27419 1.075 0.28813
## Yrw_dl 1.00517 0.58995 1.704 0.09547 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06267 on 44 degrees of freedom
## Multiple R-squared: 0.1067, Adjusted R-squared: 0.06611
## F-statistic: 2.628 on 2 and 44 DF, p-value: 0.08352
summary(IRL_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 47
##
## Call:
## dynlm(formula = IRL$M_dl ~ IRL$dPdPm + L(IRL$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.185489 -0.027150 0.009923 0.032972 0.123756
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.01729 0.01403 1.232 0.2245
## dPdPm 0.27027 0.14916 1.812 0.0768 .
## L(Y_dl) 1.11612 0.22065 5.058 0.00000795 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06349 on 44 degrees of freedom
## Multiple R-squared: 0.4087, Adjusted R-squared: 0.3818
## F-statistic: 15.2 on 2 and 44 DF, p-value: 0.000009555
ITA_df[!complete.cases(ITA_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.7661109 -0.2664284 NA 0.2338891 -1.4529081 NA
## 1961 0.7381111 -0.3036609 -0.037232516 0.2618889 -1.3398350 0.113073095
## 1962 0.7289017 -0.3162164 -0.012555554 0.2710983 -1.3052737 0.034561335
## 1963 0.7413428 -0.2992921 0.016924343 0.2586572 -1.3522518 -0.046978095
## 1964 0.7431740 -0.2968250 0.002467075 0.2568260 -1.3593566 -0.007104844
## 1965 0.7274452 -0.3182167 -0.021391639 0.2725548 -1.2999154 0.059441177
## 1966 0.7048340 -0.3497930 -0.031576288 0.2951660 -1.2202174 0.079698038
## 1967 0.6968984 -0.3611156 -0.011322627 0.3031016 -1.1936874 0.026530028
## 1968 0.6826206 -0.3818160 -0.020700441 0.3173794 -1.1476575 0.046029901
## 1969 0.6631290 -0.4107857 -0.028969719 0.3368710 -1.0880552 0.059602262
## 1970 0.6759554 -0.3916282 0.019157534 0.3240446 -1.1268741 -0.038818861
## 2019 0.6047584 -0.5029262 0.004822880 0.3952416 -0.9282581 -0.007334748
## 2020 0.5987061 -0.5129845 -0.010058294 0.4012939 -0.9130612 0.015196977
## 2021 0.6068606 -0.4994562 0.013528266 0.3931394 -0.9335910 -0.020529792
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 432.201 6.068891 NA 8294966010030 29.74667 NA
## 1961 468.795 6.150166 0.081274815 8701511452314 29.79452 0.04784791
## 1962 501.526 6.217655 0.067489878 9248882305887 29.85552 0.06100597
## 1963 532.705 6.277968 0.060312350 9759235750467 29.90924 0.05371138
## 1964 553.797 6.316798 0.038830394 10405293679104 29.97334 0.06410059
## 1965 579.295 6.361812 0.045013653 11006727246118 30.02953 0.05619197
## 1966 618.010 6.426505 0.064692792 11710959476864 30.09155 0.06201846
## 1967 665.685 6.500817 0.074311947 12270582666800 30.13823 0.04667963
## 1968 714.411 6.571458 0.070641841 13045228404408 30.19944 0.06121768
## 1969 761.522 6.635319 0.063860635 13838295292989 30.25846 0.05901734
## 1970 807.485 6.693924 0.058605417 14200629149264 30.28431 0.02584650
## 2019 1723.515 7.452121 0.003008266 NA NA NA
## 2020 1559.471 7.352102 -0.100019149 NA NA NA
## 2021 1661.611 7.415543 0.063440952 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 1.4178 430.7832 6.065605 NA 249.463 5.519311
## 1961 1.5605 467.2345 6.146831 0.081226326 264.733 5.578722
## 1962 1.7360 499.7900 6.214188 0.067356737 281.089 5.638671
## 1963 1.9226 530.7824 6.274352 0.060164134 303.005 5.713749
## 1964 2.1244 551.6726 6.312955 0.038602610 316.407 5.757029
## 1965 2.2742 577.0208 6.357878 0.044923560 331.037 5.802230
## 1966 2.4396 615.5704 6.422549 0.064671003 354.387 5.870390
## 1967 2.8269 662.8581 6.496561 0.074011622 380.134 5.940524
## 1968 2.9974 711.4136 6.567254 0.070693036 397.411 5.984971
## 1969 3.2274 758.2946 6.631072 0.063817988 424.558 6.051049
## 1970 3.5467 803.9383 6.689523 0.058450560 462.335 6.136290
## 2019 261.0700 1462.4450 7.287865 0.001340436 1047.796 6.954444
## 2020 231.2728 1328.1982 7.191579 -0.096286406 933.359 6.838790
## 2021 254.9890 1406.6220 7.248946 0.057367798 1001.335 6.909089
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA 330.0277 5.799177 NA 100.7555 4.612697
## 1961 0.059411163 344.8710 5.843170 0.043993810 122.3635 4.806996
## 1962 0.059949574 364.2978 5.897972 0.054801183 135.4922 4.908914
## 1963 0.075077962 393.4917 5.975060 0.077088477 137.2907 4.922100
## 1964 0.043280053 409.9888 6.016130 0.041069685 141.6838 4.953598
## 1965 0.045200792 419.7510 6.039662 0.023531921 157.2698 5.057963
## 1966 0.068159385 433.8750 6.072756 0.033094715 181.6954 5.202332
## 1967 0.070134286 461.9448 6.135445 0.062688996 200.9133 5.302874
## 1968 0.044447188 485.6256 6.185438 0.049992595 225.7880 5.419597
## 1969 0.066077618 502.8471 6.220286 0.034848269 255.4475 5.543017
## 1970 0.085241109 543.4264 6.297894 0.077608094 260.5119 5.562648
## 2019 0.004119004 884.4260 6.784939 0.006163315 578.0190 6.359607
## 2020 -0.115654282 795.2003 6.678594 -0.106344700 532.9979 6.278517
## 2021 0.070299482 853.6234 6.749490 0.070896065 552.9986 6.315355
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA 117.9788 4.770505 NA 3.3193 1.199754
## 1961 0.194299420 130.9560 4.874861 0.104356442 3.8170 1.339465
## 1962 0.101918072 144.1251 4.970682 0.095820284 4.3677 1.474237
## 1963 0.013186040 149.6473 5.008281 0.037599520 4.8229 1.573375
## 1964 0.031497766 152.0058 5.023919 0.015637486 5.2703 1.662087
## 1965 0.104364737 153.2008 5.031749 0.007830801 5.3501 1.677115
## 1966 0.144369041 156.6598 5.054077 0.022327096 5.5619 1.715940
## 1967 0.100541651 170.8927 5.141036 0.086959299 6.2245 1.828493
## 1968 0.116722938 188.4546 5.238857 0.097821255 6.9846 1.943708
## 1969 0.123420250 207.3396 5.334358 0.095500900 8.1183 2.094121
## 1970 0.019631700 218.7218 5.387801 0.053442574 9.4219 2.243037
## 2019 -0.005994312 314.6652 5.751509 0.013923884 322.7238 5.776797
## 2020 -0.081089429 269.9046 5.598069 -0.153440653 277.9232 5.627345
## 2021 0.036838007 304.8810 5.719922 0.121852973 316.7099 5.757986
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA NA NA NA NA NA
## 1961 0.13971086 NA NA NA NA NA
## 1962 0.13477178 NA NA NA NA NA
## 1963 0.09913885 NA NA NA NA NA
## 1964 0.08871188 NA NA NA NA NA
## 1965 0.01502797 NA NA NA NA NA
## 1966 0.03882452 NA NA NA NA NA
## 1967 0.11255334 NA NA NA NA NA
## 1968 0.11521461 NA NA NA NA NA
## 1969 0.15041305 NA NA NA NA NA
## 1970 0.14891599 8.1634 2.099661 NA 0.8664282 -0.1433760
## 2019 0.02383889 282.2298 5.642722 0.01750845 0.8745243 -0.1340752
## 2020 -0.14945203 235.1314 5.460145 -0.18257713 0.8460301 -0.1672003
## 2021 0.13064140 271.0898 5.602450 0.14230562 0.8559562 -0.1555361
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA 0.9116588 2.385399
## 1962 NA NA NA NA -0.2776243 2.269454
## 1963 NA NA NA NA -3.0642775 1.929703
## 1964 NA NA NA NA -0.3311640 2.263904
## 1965 NA NA NA NA 1.9909496 2.480119
## 1966 NA NA NA NA 3.0044338 2.561572
## 1967 NA NA NA NA 2.4311780 2.516318
## 1968 NA NA NA NA 4.2690621 2.654706
## 1969 NA NA NA NA 1.9775263 2.478995
## 1970 NA 189.5067 5.244425 NA 1.1432835 2.406497
## 2019 -0.006330436 275.1824 5.617434 0.007593448 1.0275322 2.396009
## 2020 -0.033125093 228.3474 5.430868 -0.186565747 NA NA
## 2021 0.011664228 260.9648 5.564385 0.133517201 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 2.934149 1.076417 NA 4.956900 1.600781
## 1961 NA 3.052151 1.115847 0.039429126 4.854311 1.579867
## 1962 -0.11594541 3.215211 1.167893 0.052046335 4.859078 1.580849
## 1963 -0.33975115 3.488993 1.249613 0.081720118 4.942548 1.597881
## 1964 0.33420146 3.701519 1.308743 0.059130208 5.068262 1.622998
## 1965 0.21621523 3.824879 1.341527 0.032783688 5.108458 1.630898
## 1966 0.08145308 3.917176 1.365371 0.023844125 5.219845 1.652468
## 1967 -0.04525448 4.037976 1.395744 0.030372538 5.254982 1.659177
## 1968 0.13838790 4.089906 1.408522 0.012778361 5.223688 1.653204
## 1969 -0.17571111 4.243210 1.445320 0.036798049 5.260635 1.660252
## 1970 -0.07249807 4.519539 1.508410 0.063089942 5.478125 1.700763
## 2019 -0.05918707 103.721999 4.641714 0.009089422 101.615409 4.621195
## 2020 NA 104.631305 4.650443 0.008728558 98.436920 4.589416
## 2021 NA 105.624967 4.659895 0.009451984 99.476086 4.599917
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 5.505418 1.705733 NA 30.0564 3.403076
## 1961 -0.0209134306 5.419484 1.690001 -0.015732218 34.7911 3.549362
## 1962 0.0009815731 5.415327 1.689233 -0.000767360 38.9160 3.661405
## 1963 0.0170322797 5.587560 1.720543 0.031309488 41.4361 3.724152
## 1964 0.0251169506 5.777120 1.753905 0.033362591 46.0609 3.829964
## 1965 0.0078997178 5.787529 1.755705 0.001800211 55.0716 4.008634
## 1966 0.0215700901 5.729372 1.745606 -0.010099626 62.0683 4.128235
## 1967 0.0067089088 5.782883 1.754902 0.009296422 65.9620 4.189079
## 1968 -0.0059729893 5.738608 1.747217 -0.007685536 75.7787 4.327817
## 1969 0.0070481141 5.840115 1.764751 0.017533832 85.7404 4.451324
## 1970 0.0405112005 6.129273 1.813076 0.048325523 90.9535 4.510348
## 2019 -0.0022558326 103.360493 4.638223 0.005328443 546.6341 6.303780
## 2020 -0.0317792421 102.702375 4.631835 -0.006387563 475.3876 6.164130
## 2021 0.0105013356 104.181840 4.646138 0.014302586 525.4944 6.264340
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA 34.0391 3.527510 NA 0.7635977 -0.2697142
## 1961 0.14628599 38.8274 3.659126 0.131616319 0.7356541 -0.3069952
## 1962 0.11204387 44.9519 3.805593 0.146466846 0.7263786 -0.3196839
## 1963 0.06274700 54.7369 4.002538 0.196945041 0.7386672 -0.3029078
## 1964 0.10581195 51.6926 3.945315 -0.057223433 0.7403232 -0.3006685
## 1965 0.17866972 52.3941 3.958794 0.013479352 0.7245894 -0.3221502
## 1966 0.11960123 59.2918 4.082471 0.123677027 0.7020517 -0.3537483
## 1967 0.06084343 66.7190 4.200490 0.118018753 0.6939390 -0.3653712
## 1968 0.13873843 71.3805 4.268025 0.067534953 0.6797566 -0.3860205
## 1969 0.12350688 85.6550 4.450328 0.182302877 0.6603186 -0.4150328
## 1970 0.05902426 100.1503 4.606672 0.156344457 0.6729864 -0.3960302
## 2019 0.01165197 501.9783 6.218557 -0.003915204 0.5131525 -0.6671823
## 2020 -0.13964919 433.9401 6.072907 -0.145650386 0.5099167 -0.6735078
## 2021 0.10020906 487.0374 6.188341 0.115434411 0.5137324 -0.6660527
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA 2.240509 0.8067033 NA 49.69702 3.905945
## 1961 -0.037281005 2.245328 0.8088514 0.002148121 52.80295 3.966567
## 1962 -0.012688694 2.335460 0.8482090 0.039357641 55.69519 4.019894
## 1963 0.016776128 2.577205 0.9467053 0.098496246 58.57777 4.070355
## 1964 0.002239291 2.740320 1.0080748 0.061369499 59.96867 4.093822
## 1965 -0.021481733 2.771467 1.0193767 0.011301956 62.36702 4.133037
## 1966 -0.031598076 2.750060 1.0116228 -0.007753951 66.14181 4.191801
## 1967 -0.011622951 2.802109 1.0303724 0.018749587 69.50576 4.241410
## 1968 -0.020649246 2.780141 1.0225015 -0.007870885 73.24927 4.293868
## 1969 -0.029012366 2.801870 1.0302872 0.007785683 76.24270 4.333922
## 1970 0.019002678 3.041588 1.1123798 0.082092620 79.09639 4.370667
## 2019 0.003155050 53.225198 3.9745319 0.012244471 102.12504 4.626198
## 2020 -0.006325551 53.353252 3.9769349 0.002403007 97.17780 4.576542
## 2021 0.007455112 54.262970 3.9938420 0.016907096 100.19593 4.607128
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA 0.1483002
## 1961 0.0606220698 0.005181212 0.060342556 0.1570377
## 1962 0.0533268429 -0.001748933 0.051064762 0.1672254
## 1963 0.0504614256 0.014277208 0.064687838 0.1805371
## 1964 0.0234669684 0.008245640 0.034013257 0.1765150
## 1965 0.0392143733 -0.006099507 0.024883971 0.1855112
## 1966 0.0587645537 -0.031669716 0.002274035 0.1963724
## 1967 0.0496084681 0.002587513 0.023663630 0.1993150
## 1968 0.0524587297 -0.001712547 0.018751351 0.2059867
## 1969 0.0400533260 0.010485718 0.029749935 0.2250695
## 1970 0.0367455156 0.007814322 0.022578742 0.2366654
## 2019 0.0009893751 0.007584276 0.011345254 0.6084150
## 2020 -0.0496555870 0.025391680 0.040507800 0.5831001
## 2021 0.0305852083 0.003801250 -0.001049351 0.6093675
## 2022 NA NA NA NA
ITA <- ITA_df[12:59,]
ITA[!complete.cases(ITA),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
ITA %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1971 0.7002960 -0.3562522 0.035376026 0.2997040 -1.204960 -0.07808588
## 1972 0.6936531 -0.3657833 -0.009531126 0.3063469 -1.183037 0.02192281
## 1973 0.6874447 -0.3747739 -0.008990584 0.3125553 -1.162974 0.02006328
## 1974 0.6785309 -0.3878252 -0.013051299 0.3214691 -1.134854 0.02811986
## 1975 0.6968316 -0.3612115 0.026613704 0.3031684 -1.193467 -0.05861290
## 1976 0.6870564 -0.3753389 -0.014127456 0.3129436 -1.161732 0.03173470
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1971 820.524 6.709943 0.01601868 14767527855898 30.32345 0.03914443658
## 1972 848.631 6.743624 0.03368130 15607606411954 30.37878 0.05532767944
## 1973 905.656 6.808660 0.06503508 16593843375359 30.44005 0.06127335963
## 1974 951.388 6.857922 0.04926243 16835764174618 30.45453 0.01447369803
## 1975 928.439 6.833505 -0.02441729 16834683365269 30.45446 -0.00006419929
## 1976 990.177 6.897884 0.06437903 17693837785669 30.50424 0.04977518695
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1971 3.8304 816.6936 6.705264 0.01574147 478.513 6.170683 0.034393642
## 1972 3.9539 844.6771 6.738954 0.03369043 493.018 6.200546 0.029862306
## 1973 4.5145 901.1415 6.803662 0.06470787 520.072 6.253967 0.053421579
## 1974 5.5510 945.8370 6.852070 0.04840796 534.583 6.281487 0.027519740
## 1975 5.6715 922.7675 6.827377 -0.02469294 534.345 6.281042 -0.000445306
## 1976 7.6708 982.5062 6.890107 0.06272935 556.429 6.321540 0.040497882
## W W_l W_dl R R_l R_dl It
## 1971 571.9273 6.349012 0.051117495 244.7663 5.500304 -0.06234441 221.5380
## 1972 585.9129 6.373171 0.024159304 258.7642 5.555917 0.05561324 228.5571
## 1973 619.4849 6.428888 0.055717285 281.6566 5.640688 0.08477115 242.5159
## 1974 641.7797 6.464245 0.035356657 304.0573 5.717216 0.07652782 247.3642
## 1975 643.0136 6.466166 0.001920761 279.7539 5.633910 -0.08330584 230.6903
## 1976 675.0371 6.514768 0.048601891 307.4691 5.728374 0.09446405 229.5425
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1971 5.400594 0.012793530 10.1049 2.313020 0.06998369 8.7782 2.172271
## 1972 5.431786 0.031191937 10.8501 2.384174 0.07115384 9.3561 2.236029
## 1973 5.491067 0.059281206 13.8761 2.630168 0.24599364 12.1931 2.500870
## 1974 5.510862 0.019794469 18.3574 2.910033 0.27986483 16.0884 2.778099
## 1975 5.441076 -0.069785626 20.2450 3.007908 0.09787509 17.4110 2.857102
## 1976 5.436088 -0.004987921 24.1847 3.185720 0.17781235 20.7607 3.033062
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1971 0.07261063 0.8687073 -0.1407491 0.002626938 192.4517 5.259845
## 1972 0.06375716 0.8623054 -0.1481458 -0.007396680 197.0860 5.283640
## 1973 0.26484168 0.8787123 -0.1292977 0.018848042 213.1017 5.361770
## 1974 0.27722830 0.8763986 -0.1319342 -0.002636530 216.7896 5.378927
## 1975 0.07900367 0.8600148 -0.1508057 -0.018871412 198.3971 5.290270
## 1976 0.17595959 0.8584229 -0.1526584 -0.001852766 197.0445 5.283430
## I_dl r r_l r_dl P P_l
## 1971 0.015420468 -0.4456428 2.251933 -0.15456329 4.857554 1.580535
## 1972 0.023795257 0.5443965 2.351007 0.09907385 5.149632 1.638925
## 1973 0.078129247 -5.3710974 1.521839 -0.82916809 5.818504 1.761043
## 1974 0.017157940 -8.9517388 0.000000 -1.52183903 7.004706 1.946582
## 1975 -0.088657038 -6.2849747 1.299310 1.29930956 8.224912 2.107168
## 1976 -0.006840687 -4.3150088 1.729304 0.42999455 9.684053 2.270481
## P_dl Pm Pm_l Pm_dl Px Px_l
## 1971 0.07212505 5.783329 1.754980 0.05421657 6.432668 1.861389
## 1972 0.05839032 6.056809 1.801183 0.04620357 6.840073 1.922798
## 1973 0.12211792 7.757659 2.048681 0.24749744 7.738240 2.046174
## 1974 0.18553892 11.893787 2.476016 0.42733558 10.597612 2.360629
## 1975 0.16058540 13.351952 2.591663 0.11564645 12.140021 2.496508
## 1976 0.16331298 16.832249 2.823297 0.23163406 14.682798 2.686677
## Px_dl X X_l X_dl M M_l M_dl
## 1971 0.04831324 97.1694 4.576456 0.06610746 102.6689 4.631509 0.02483719
## 1972 0.06140908 104.8014 4.652067 0.07561128 112.3684 4.721783 0.09027351
## 1973 0.12337588 110.4503 4.704566 0.05249852 122.6520 4.809351 0.08756832
## 1974 0.31445442 117.6728 4.767908 0.06334225 125.8545 4.835126 0.02577540
## 1975 0.13587883 118.9758 4.778920 0.01101222 107.5694 4.678136 -0.15699026
## 1976 0.19016904 132.4471 4.886183 0.10726321 121.6210 4.800910 0.12277343
## rulc rulc_l rulc_dl ulc ulc_l ulc_dl
## 1971 0.6970269 -0.3609313 0.035098814 3.385845 1.219604 0.10722386
## 1972 0.6904213 -0.3704533 -0.009521998 3.555416 1.268472 0.04886832
## 1973 0.6840179 -0.3797711 -0.009317795 3.979961 1.381272 0.11280013
## 1974 0.6745720 -0.3936769 -0.013905770 4.725178 1.552905 0.17163315
## 1975 0.6925749 -0.3673389 0.026338051 5.696367 1.739829 0.18692345
## 1976 0.6817338 -0.3831160 -0.015777143 6.601947 1.887365 0.14753584
## Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## 1971 78.84174 4.367443 -0.003224671 -0.005903336 0.01790847 0.2435496
## 1972 80.28024 4.385523 0.018080973 0.015205511 0.01218674 0.2559060
## 1973 82.88865 4.417498 0.031974695 -0.124121556 -0.12537951 0.2573850
## 1974 84.40922 4.435677 0.018178509 -0.112881161 -0.24179667 0.2559705
## 1975 81.14036 4.396181 -0.039496169 0.020232375 0.04493894 0.2440066
## 1976 84.57981 4.437696 0.041515025 -0.041465018 -0.06832108 0.2565886
ITA %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1971 0.7002960 -0.3562522 0.0353760261 0.2997040 -1.2049600 -0.0780858824
## 1972 0.6936531 -0.3657833 -0.0095311261 0.3063469 -1.1830371 0.0219228054
## 1973 0.6874447 -0.3747739 -0.0089905839 0.3125553 -1.1629739 0.0200632805
## 1974 0.6785309 -0.3878252 -0.0130512993 0.3214691 -1.1348540 0.0281198642
## 1975 0.6968316 -0.3612115 0.0266137042 0.3031684 -1.1934669 -0.0586128972
## 1976 0.6870564 -0.3753389 -0.0141274564 0.3129436 -1.1617322 0.0317347043
## 1977 0.6910977 -0.3694741 0.0058648488 0.3089023 -1.1747302 -0.0129980036
## 1978 0.6835065 -0.3805192 -0.0110450811 0.3164935 -1.1504524 0.0242777525
## 1979 0.6730626 -0.3959169 -0.0153977019 0.3269374 -1.1179867 0.0324657530
## 1980 0.6692219 -0.4016396 -0.0057226770 0.3307781 -1.1063076 0.0116791045
## 1981 0.6786843 -0.3875992 0.0140403100 0.3213157 -1.1353311 -0.0290234908
## 1982 0.6732748 -0.3956017 -0.0080024283 0.3267252 -1.1186359 0.0166951644
## 1983 0.6751814 -0.3927739 0.0028278104 0.3248186 -1.1244885 -0.0058525415
## 1984 0.6593915 -0.4164379 -0.0236640125 0.3406085 -1.0770215 0.0474669651
## 1985 0.6515103 -0.4284621 -0.0120242482 0.3484897 -1.0541465 0.0228749750
## 1986 0.6370148 -0.4509625 -0.0225003462 0.3629852 -1.0133931 0.0407534336
## 1987 0.6335361 -0.4564383 -0.0054758544 0.3664639 -1.0038552 0.0095378637
## 1988 0.6286626 -0.4641605 -0.0077222155 0.3713374 -0.9906443 0.0132109605
## 1989 0.6249150 -0.4701397 -0.0059791451 0.3750850 -0.9806025 0.0100417176
## 1990 0.6355815 -0.4532149 0.0169248077 0.3644185 -1.0094525 -0.0288499409
## 1991 0.6402591 -0.4458824 0.0073325238 0.3597409 -1.0223712 -0.0129187312
## 1992 0.6372360 -0.4506152 -0.0047328332 0.3627640 -1.0140028 0.0083683797
## 1993 0.6285830 -0.4642872 -0.0136720079 0.3714170 -0.9904299 0.0235729607
## 1994 0.6085316 -0.4967064 -0.0324191865 0.3914684 -0.9378506 0.0525792979
## 1995 0.5896888 -0.5281603 -0.0314539068 0.4103112 -0.8908395 0.0470111132
## 1996 0.5949807 -0.5192263 0.0089339905 0.4050193 -0.9038206 -0.0129811226
## 1997 0.6012821 -0.5086911 0.0105351707 0.3987179 -0.9195010 -0.0156804661
## 1998 0.5944185 -0.5201716 -0.0114804799 0.4055815 -0.9024335 0.0170675240
## 1999 0.5934366 -0.5218248 -0.0016532423 0.4065634 -0.9000155 0.0024180576
## 2000 0.5838736 -0.5380707 -0.0162458797 0.4161264 -0.8767663 0.0232492035
## 2001 0.5808053 -0.5433396 -0.0052688976 0.4191947 -0.8694199 0.0073463822
## 2002 0.5850329 -0.5360872 0.0072524376 0.4149671 -0.8795561 -0.0101361688
## 2003 0.5896715 -0.5281897 0.0078974934 0.4103285 -0.8907972 -0.0112411476
## 2004 0.5904561 -0.5268600 0.0013296886 0.4095439 -0.8927112 -0.0019139594
## 2005 0.5947213 -0.5196623 0.0071976825 0.4052787 -0.9031804 -0.0104692386
## 2006 0.6001288 -0.5106110 0.0090512808 0.3998712 -0.9166127 -0.0134322971
## 2007 0.5969369 -0.5159438 -0.0053327676 0.4030631 -0.9086622 0.0079504533
## 2008 0.6007977 -0.5094971 0.0064467327 0.3992023 -0.9182869 -0.0096246299
## 2009 0.6127660 -0.4897721 0.0197249462 0.3872340 -0.9487261 -0.0304392730
## 2010 0.6138845 -0.4879485 0.0018236691 0.3861155 -0.9516188 -0.0028926192
## 2011 0.6082044 -0.4972442 -0.0092957602 0.3917956 -0.9370151 0.0146036822
## 2012 0.6151942 -0.4858173 0.0114269232 0.3848058 -0.9550165 -0.0180013942
## 2013 0.6099087 -0.4944460 -0.0086287493 0.3900913 -0.9413744 0.0136420739
## 2014 0.6072199 -0.4988643 -0.0044182290 0.3927801 -0.9345054 0.0068690273
## 2015 0.6073295 -0.4986838 0.0001804999 0.3926705 -0.9347845 -0.0002791086
## 2016 0.5973600 -0.5152353 -0.0165515018 0.4026400 -0.9097125 0.0250719835
## 2017 0.5948841 -0.5193886 -0.0041533717 0.4051159 -0.9035821 0.0061303691
## 2018 0.6018488 -0.5077491 0.0116395891 0.3981512 -0.9209234 -0.0173412693
## Y Y_l Y_dl Yrw Yrw_l
## 1971 820.524 6.709943 0.01601868149 14767527855898 30.32345
## 1972 848.631 6.743624 0.03368130230 15607606411954 30.37878
## 1973 905.656 6.808660 0.06503508014 16593843375359 30.44005
## 1974 951.388 6.857922 0.04926242793 16835764174618 30.45453
## 1975 928.439 6.833505 -0.02441728965 16834683365269 30.45446
## 1976 990.177 6.897884 0.06437903375 17693837785669 30.50424
## 1977 1011.851 6.919537 0.02165289078 18395724734614 30.54314
## 1978 1041.182 6.948112 0.02857527942 19151473871883 30.58340
## 1979 1099.054 7.002205 0.05409320355 19948611235401 30.62418
## 1980 1133.116 7.032727 0.03052155007 20290389481731 30.64117
## 1981 1139.424 7.038278 0.00555151170 20725086730912 30.66237
## 1982 1141.199 7.039835 0.00155659253 20688163668514 30.66058
## 1983 1151.756 7.049043 0.00920827020 21228631144945 30.68637
## 1984 1186.455 7.078725 0.02968213522 22222578972677 30.73213
## 1985 1217.552 7.104598 0.02587241604 23010361621865 30.76697
## 1986 1250.546 7.131336 0.02673797041 23756254300641 30.79887
## 1987 1288.900 7.161544 0.03020888548 24560786780535 30.83217
## 1988 1340.830 7.201044 0.03949968377 25730381245381 30.87869
## 1989 1384.439 7.233050 0.03200617823 26754058214818 30.91771
## 1990 1411.885 7.252681 0.01963068756 27635784136437 30.95013
## 1991 1432.202 7.266968 0.01428742905 28099310522793 30.96677
## 1992 1442.554 7.274170 0.00720203367 28709010401657 30.98823
## 1993 1430.509 7.265786 -0.00838482871 29032321919574 30.99943
## 1994 1460.181 7.286316 0.02053007564 29945309211125 31.03039
## 1995 1499.355 7.312790 0.02647461499 30807866467078 31.05879
## 1996 1518.349 7.325379 0.01258854469 31728539310277 31.08824
## 1997 1546.138 7.343515 0.01813664847 32780930564991 31.12087
## 1998 1574.132 7.361459 0.01794380045 33656579097792 31.14723
## 1999 1599.723 7.377586 0.01612648001 34750520882540 31.17922
## 2000 1660.304 7.414756 0.03717022887 36163138630728 31.21906
## 2001 1692.703 7.434082 0.01932594140 36675293279018 31.23312
## 2002 1697.001 7.436618 0.00253591600 37214475059064 31.24772
## 2003 1699.354 7.438003 0.00138560332 38004498883695 31.26873
## 2004 1723.546 7.452139 0.01413561765 39285685521474 31.30188
## 2005 1737.642 7.460284 0.00814522524 40401947992662 31.32990
## 2006 1768.757 7.478032 0.01774801826 41675488143131 31.36093
## 2007 1795.059 7.492793 0.01476085048 42846934030212 31.38866
## 2008 1777.791 7.483127 -0.00966630810 43028074107892 31.39287
## 2009 1683.907 7.428872 -0.05425489373 41623511150901 31.35969
## 2010 1712.757 7.445860 0.01698766425 42881408039386 31.38946
## 2011 1724.872 7.452908 0.00704849194 43686319754940 31.40806
## 2012 1673.455 7.422646 -0.03026249328 44241322044514 31.42068
## 2013 1642.646 7.404064 -0.01858199524 44860477744591 31.43458
## 2014 1642.571 7.404018 -0.00004565908 45754251339287 31.45431
## 2015 1655.355 7.411771 0.00775279011 46819815385612 31.47733
## 2016 1676.766 7.424622 0.01285145088 47616461798379 31.49420
## 2017 1704.733 7.441164 0.01654156201 48724415070721 31.51720
## 2018 1718.338 7.449113 0.00794904437 49839017741726 31.53982
## Yrw_dl Tax Yf Yf_l Yf_dl C
## 1971 0.03914443658 3.8304 816.6936 6.705264 0.0157414690 478.513
## 1972 0.05532767944 3.9539 844.6771 6.738954 0.0336904302 493.018
## 1973 0.06127335963 4.5145 901.1415 6.803662 0.0647078689 520.072
## 1974 0.01447369803 5.5510 945.8370 6.852070 0.0484079568 534.583
## 1975 -0.00006419929 5.6715 922.7675 6.827377 -0.0246929430 534.345
## 1976 0.04977518695 7.6708 982.5062 6.890107 0.0627293474 556.429
## 1977 0.03890185498 10.0465 1001.8045 6.909558 0.0194514987 570.984
## 1978 0.04026139102 11.5550 1029.6270 6.936952 0.0273937269 584.594
## 1979 0.04077985140 13.4149 1085.6391 6.989924 0.0529722451 622.665
## 1980 0.01698782075 17.8517 1115.2643 7.016847 0.0269225713 658.535
## 1981 0.02119753646 20.3081 1119.1159 7.020294 0.0034475814 667.815
## 1982 -0.00178315258 25.9338 1115.2652 7.016848 -0.0034467744 673.347
## 1983 0.02578906297 32.2465 1119.5095 7.020646 0.0037984188 671.416
## 1984 0.04575804661 37.1522 1149.3028 7.046911 0.0262648547 690.452
## 1985 0.03483577693 40.2269 1177.3251 7.071000 0.0240895032 709.838
## 1986 0.03190121501 45.7679 1204.7781 7.094051 0.0230503998 738.319
## 1987 0.03330530302 51.8685 1237.0315 7.120470 0.0264191573 764.894
## 1988 0.04652130553 61.4959 1279.3341 7.154095 0.0336251503 795.871
## 1989 0.03901372746 67.5865 1316.8525 7.183000 0.0289047113 827.000
## 1990 0.03242528884 77.3519 1334.5331 7.196337 0.0133370733 843.804
## 1991 0.01663357984 88.3805 1343.8215 7.203273 0.0069359279 866.164
## 1992 0.02146598529 93.8449 1348.7091 7.206903 0.0036304920 879.929
## 1993 0.01119873352 102.5136 1327.9954 7.191426 -0.0154773256 853.458
## 1994 0.03096293334 106.5847 1353.5963 7.210520 0.0190943892 866.616
## 1995 0.02839737051 117.1600 1382.1950 7.231428 0.0209078388 879.424
## 1996 0.02944650742 121.9210 1396.4280 7.241673 0.0102447324 888.649
## 1997 0.03263039154 132.4100 1413.7280 7.253985 0.0123126393 919.646
## 1998 0.02636159141 169.8660 1404.2660 7.247270 -0.0067154405 950.600
## 1999 0.03198600881 172.0840 1427.6390 7.263777 0.0165072845 976.756
## 2000 0.03984576885 179.9700 1480.3340 7.300023 0.0362457072 1002.735
## 2001 0.01406299052 184.1550 1508.5480 7.318903 0.0188798608 1009.194
## 2002 0.01459447939 191.3730 1505.6280 7.316965 -0.0019375119 1008.769
## 2003 0.02100674431 192.3080 1507.0460 7.317907 0.0009413565 1015.577
## 2004 0.03315567204 200.6560 1522.8900 7.328365 0.0104584020 1025.445
## 2005 0.02801778501 209.7050 1527.9370 7.331674 0.0033086141 1039.664
## 2006 0.03103514022 226.5450 1542.2120 7.340973 0.0092992900 1053.628
## 2007 0.02772094960 233.8750 1561.1840 7.353200 0.0122267583 1066.135
## 2008 0.00421869762 223.6110 1554.1800 7.348703 -0.0044964324 1054.065
## 2009 -0.03318760937 212.6680 1471.2390 7.293860 -0.0548431724 1038.235
## 2010 0.02977317345 225.2340 1487.5230 7.304868 0.0110074176 1049.140
## 2011 0.01859665104 232.7100 1492.1620 7.307981 0.0031137545 1049.819
## 2012 0.01262423623 248.1360 1425.3190 7.262151 -0.0458304267 1010.821
## 2013 0.01389793848 241.0530 1401.5930 7.245365 -0.0167862014 986.115
## 2014 0.01972753414 249.8640 1392.7070 7.239005 -0.0063601116 987.837
## 2015 0.02302180614 251.1500 1404.2050 7.247227 0.0082219711 1005.936
## 2016 0.01687201856 245.5390 1431.2270 7.266287 0.0190608120 1018.480
## 2017 0.02300170307 253.0810 1451.6520 7.280457 0.0141700999 1034.150
## 2018 0.02261792544 257.8520 1460.4860 7.286525 0.0060670388 1043.489
## C_l C_dl W W_l W_dl R
## 1971 6.170683 0.0343936422 571.9273 6.349012 0.0511174951 244.7663
## 1972 6.200546 0.0298623058 585.9129 6.373171 0.0241593041 258.7642
## 1973 6.253967 0.0534215790 619.4849 6.428888 0.0557172849 281.6566
## 1974 6.281487 0.0275197402 641.7797 6.464245 0.0353566574 304.0573
## 1975 6.281042 -0.0004453060 643.0136 6.466166 0.0019207612 279.7539
## 1976 6.321540 0.0404978817 675.0371 6.514768 0.0486018909 307.4691
## 1977 6.347361 0.0258216088 692.3448 6.540084 0.0253163475 309.4597
## 1978 6.370918 0.0235564009 703.7567 6.556433 0.0163486457 325.8703
## 1979 6.434009 0.0630910643 730.7031 6.594007 0.0375745432 354.9360
## 1980 6.490018 0.0560090174 746.3593 6.615207 0.0211998944 368.9050
## 1981 6.504011 0.0139935182 759.5264 6.632695 0.0174878914 359.5895
## 1982 6.512261 0.0082496095 750.8800 6.621246 -0.0114492027 364.3852
## 1983 6.509389 -0.0028718835 755.8720 6.627872 0.0066262292 363.6375
## 1984 6.537346 0.0279575405 757.8405 6.630473 0.0026008422 391.4623
## 1985 6.565037 0.0276903194 767.0394 6.642538 0.0120652550 410.2857
## 1986 6.604376 0.0393392055 767.4614 6.643088 0.0005500535 437.3167
## 1987 6.639737 0.0353612816 783.7041 6.664032 0.0209433029 453.3274
## 1988 6.679437 0.0396998503 804.2695 6.689934 0.0259029348 475.0646
## 1989 6.717805 0.0383675826 822.9208 6.712860 0.0229255662 493.9317
## 1990 6.737920 0.0201155451 848.2046 6.743122 0.0302618810 486.3285
## 1991 6.764074 0.0261540269 860.3939 6.757390 0.0142684518 483.4276
## 1992 6.779841 0.0157669553 859.4460 6.756288 -0.0011023412 489.2631
## 1993 6.749296 -0.0305448905 834.7553 6.727139 -0.0291493334 493.2401
## 1994 6.764596 0.0152996402 823.7062 6.713814 -0.0133247973 529.8901
## 1995 6.779267 0.0146711756 815.0650 6.703268 -0.0105460680 567.1300
## 1996 6.789702 0.0104351842 830.8477 6.722447 0.0191787228 565.5803
## 1997 6.823989 0.0342864815 850.0493 6.745294 0.0228478100 563.6787
## 1998 6.857093 0.0331045508 834.7217 6.727098 -0.0181959205 569.5443
## 1999 6.884237 0.0271435126 847.2133 6.741952 0.0148540422 580.4257
## 2000 6.910487 0.0262496689 864.3280 6.761952 0.0199998275 616.0060
## 2001 6.916907 0.0064207258 876.1727 6.775563 0.0136109632 632.3753
## 2002 6.916486 -0.0004212168 880.8419 6.780878 0.0053149257 624.7861
## 2003 6.923212 0.0067261483 888.6621 6.789717 0.0088388499 618.3839
## 2004 6.932882 0.0096697408 899.1997 6.801505 0.0117880907 623.6903
## 2005 6.946653 0.0137709193 908.6967 6.812011 0.0105062966 619.2403
## 2006 6.959995 0.0133418626 925.5258 6.830362 0.0183505708 616.6862
## 2007 6.971795 0.0118005127 931.9284 6.837256 0.0068939907 629.2556
## 2008 6.960409 -0.0113858413 933.7477 6.839206 0.0019503003 620.4323
## 2009 6.945277 -0.0151319620 901.5253 6.804088 -0.0351182262 569.7137
## 2010 6.955726 0.0104486249 913.1673 6.816919 0.0128310866 574.3557
## 2011 6.956373 0.0006469874 907.5395 6.810737 -0.0061820058 584.6225
## 2012 6.918518 -0.0378548964 876.8480 6.776334 -0.0344035035 548.4710
## 2013 6.893773 -0.0247451703 854.8437 6.750919 -0.0254149508 546.7493
## 2014 6.895518 0.0017447237 845.6794 6.740140 -0.0107783406 547.0276
## 2015 6.913674 0.0181560260 852.8151 6.748543 0.0084024709 551.3899
## 2016 6.926067 0.0123928684 854.9578 6.751052 0.0025093102 576.2692
## 2017 6.941335 0.0152685135 863.5647 6.761069 0.0100167282 588.0873
## 2018 6.950325 0.0089900728 878.9917 6.778775 0.0177066279 581.4943
## R_l R_dl It It_l It_dl Itcurr
## 1971 5.500304 -0.0623444135 221.5380 5.400594 0.012793530 10.1049
## 1972 5.555917 0.0556132357 228.5571 5.431786 0.031191937 10.8501
## 1973 5.640688 0.0847711493 242.5159 5.491067 0.059281206 13.8761
## 1974 5.717216 0.0765278210 247.3642 5.510862 0.019794469 18.3574
## 1975 5.633910 -0.0833058402 230.6903 5.441076 -0.069785626 20.2450
## 1976 5.728374 0.0944640517 229.5425 5.436088 -0.004987921 24.1847
## 1977 5.734828 0.0064534951 234.2981 5.456594 0.020506039 29.2195
## 1978 5.786499 0.0516714794 235.3240 5.460963 0.004369052 33.5857
## 1979 5.871937 0.0854379981 247.9939 5.513404 0.052440861 41.3251
## 1980 5.910539 0.0386016758 261.1917 5.565255 0.051850471 54.3508
## 1981 5.884963 -0.0255759094 255.7618 5.544247 -0.021008078 65.6459
## 1982 5.898212 0.0132483900 245.8317 5.504647 -0.039599387 73.3435
## 1983 5.896157 -0.0020541227 241.1311 5.485341 -0.019306386 81.3676
## 1984 5.969889 0.0737318198 247.9641 5.513284 0.027943209 92.0187
## 1985 6.016854 0.0469644782 248.9259 5.517155 0.003871284 101.5143
## 1986 6.080658 0.0638038334 255.2584 5.542276 0.025121104 109.1955
## 1987 6.116615 0.0359570211 265.1220 5.580190 0.037913732 119.3668
## 1988 6.163451 0.0468361108 281.2296 5.639171 0.058981320 135.1001
## 1989 6.202397 0.0389464289 291.1154 5.673720 0.034548335 147.8832
## 1990 6.186884 -0.0155128676 301.1440 5.707589 0.033868804 163.9165
## 1991 6.180901 -0.0059828033 303.6504 5.715877 0.008288484 175.7523
## 1992 6.192900 0.0119988717 298.3206 5.698169 -0.017708293 180.0620
## 1993 6.200996 0.0080956351 267.2617 5.588228 -0.109940419 167.7775
## 1994 6.272670 0.0716736871 266.0850 5.583816 -0.004412522 173.5910
## 1995 6.340589 0.0679189520 281.2746 5.639331 0.055515610 191.4484
## 1996 6.337852 -0.0027363902 288.2570 5.663852 0.024521027 200.7781
## 1997 6.334484 -0.0033678268 293.9381 5.683369 0.019516758 209.3577
## 1998 6.344836 0.0103520834 305.8390 5.723059 0.039689619 221.9305
## 1999 6.363762 0.0189253420 319.1734 5.765735 0.042675709 233.6297
## 2000 6.423257 0.0594949107 340.9067 5.831609 0.065874304 257.3756
## 2001 6.449483 0.0262262430 350.0175 5.857983 0.026374320 270.2311
## 2002 6.437409 -0.0120736807 363.5115 5.895811 0.037827780 288.4612
## 2003 6.427110 -0.0102997911 361.2405 5.889544 -0.006266992 291.1466
## 2004 6.435654 0.0085444427 367.0809 5.905582 0.016038318 304.4660
## 2005 6.428493 -0.0071606245 372.7722 5.920968 0.015385249 317.8703
## 2006 6.424360 -0.0041330071 382.2428 5.946056 0.025088500 335.0756
## 2007 6.444538 0.0201772115 388.0610 5.961163 0.015106535 349.7833
## 2008 6.430416 -0.0141210623 375.8158 5.929099 -0.032063414 348.4677
## 2009 6.345134 -0.0852824454 339.1846 5.826545 -0.102554628 317.1943
## 2010 6.353249 0.0081147984 338.5056 5.824541 -0.002003866 322.6462
## 2011 6.370966 0.0177174367 333.6557 5.810110 -0.014431013 325.0336
## 2012 6.307134 -0.0638318209 301.1584 5.707636 -0.102473251 297.4048
## 2013 6.303990 -0.0031441275 281.7469 5.641009 -0.066627222 277.4672
## 2014 6.304499 0.0005089156 275.4936 5.618564 -0.022444752 272.1375
## 2015 6.312442 0.0079428625 280.3421 5.636011 0.017446245 280.3421
## 2016 6.356575 0.0441327954 291.5369 5.675167 0.039155941 291.1835
## 2017 6.376875 0.0203004691 300.9165 5.706833 0.031666233 303.5699
## 2018 6.365601 -0.0112742305 310.3142 5.737585 0.030752515 315.1214
## Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## 1971 2.313020 0.069983688 8.7782 2.172271 0.072610626 0.8687073
## 1972 2.384174 0.071153842 9.3561 2.236029 0.063757162 0.8623054
## 1973 2.630168 0.245993639 12.1931 2.500870 0.264841681 0.8787123
## 1974 2.910033 0.279864827 16.0884 2.778099 0.277228297 0.8763986
## 1975 3.007908 0.097875087 17.4110 2.857102 0.079003675 0.8600148
## 1976 3.185720 0.177812352 20.7607 3.033062 0.175959586 0.8584229
## 1977 3.374836 0.189116093 25.1545 3.225037 0.191975031 0.8608806
## 1978 3.514100 0.139264087 29.0987 3.370693 0.145656693 0.8664015
## 1979 3.721470 0.207369682 35.9308 3.581595 0.210901367 0.8694667
## 1980 3.995459 0.273989269 46.5981 3.841560 0.259964901 0.8573581
## 1981 4.184275 0.188815814 55.1014 4.009175 0.167615356 0.8393731
## 1982 4.295154 0.110878738 61.1114 4.112698 0.103523304 0.8332218
## 1983 4.398977 0.103823275 67.5020 4.212157 0.099458799 0.8295931
## 1984 4.521992 0.123014658 76.5071 4.337384 0.125226320 0.8314299
## 1985 4.620200 0.098207858 83.7120 4.427382 0.089998789 0.8246326
## 1986 4.693140 0.072940178 90.1227 4.501172 0.073789739 0.8253335
## 1987 4.782201 0.089061252 98.6071 4.591143 0.089971192 0.8260848
## 1988 4.906016 0.123814880 112.3162 4.721318 0.130174841 0.8313554
## 1989 4.996423 0.090406788 123.2602 4.814298 0.092979460 0.8334970
## 1990 5.099357 0.102934379 136.4844 4.916210 0.101912754 0.8326459
## 1991 5.169076 0.069718466 146.2978 4.985644 0.069433948 0.8324090
## 1992 5.193301 0.024225619 150.9602 5.017016 0.031371956 0.8383790
## 1993 5.122639 -0.070662539 141.3641 4.951339 -0.065677394 0.8425689
## 1994 5.156702 0.034063261 148.9569 5.003657 0.052318171 0.8580911
## 1995 5.254618 0.097916363 165.7814 5.110670 0.107013051 0.8659325
## 1996 5.302200 0.047581998 172.7101 5.151614 0.040944413 0.8602039
## 1997 5.344044 0.041843954 179.9237 5.192533 0.040918406 0.8594081
## 1998 5.402364 0.058319997 190.1855 5.248000 0.055467040 0.8569597
## 1999 5.453737 0.051373113 199.6027 5.296329 0.048328979 0.8543550
## 2000 5.550536 0.096799113 222.1496 5.403351 0.107022138 0.8631339
## 2001 5.599278 0.048741022 230.9201 5.442072 0.038720734 0.8545282
## 2002 5.664561 0.065283069 254.6922 5.540056 0.097983994 0.8829340
## 2003 5.673827 0.009266332 247.9876 5.513379 -0.026677012 0.8517620
## 2004 5.718559 0.044732502 258.3220 5.554207 0.040828124 0.8484428
## 2005 5.761643 0.043084015 269.8683 5.597934 0.043727193 0.8489887
## 2006 5.814356 0.052712740 285.6026 5.654601 0.056667272 0.8523527
## 2007 5.857314 0.042957642 298.5263 5.698858 0.044256702 0.8534607
## 2008 5.853546 -0.003768277 296.8217 5.693132 -0.005726414 0.8517911
## 2009 5.759515 -0.094031023 259.4353 5.558507 -0.134624276 0.8179066
## 2010 5.776556 0.017041847 272.7042 5.608388 0.049880345 0.8452113
## 2011 5.783929 0.007372195 276.9696 5.623908 0.015520062 0.8521261
## 2012 5.695094 -0.088834388 254.5428 5.539469 -0.084438758 0.8558799
## 2013 5.625703 -0.069391446 236.9422 5.467816 -0.071652765 0.8539467
## 2014 5.606307 -0.019395275 234.3375 5.456762 -0.011053846 0.8610996
## 2015 5.636011 0.029703190 240.5781 5.483045 0.026282393 0.8581590
## 2016 5.673954 0.037943010 252.1615 5.530070 0.047024978 0.8659883
## 2017 5.715612 0.041658244 265.2939 5.580838 0.050768513 0.8739137
## 2018 5.752958 0.037346064 277.3314 5.625213 0.044374913 0.8800780
## Ips_l Ips_dl I I_l I_dl r
## 1971 -0.1407491 0.0026269384 192.4517 5.259845 0.015420468 -0.4456428
## 1972 -0.1481458 -0.0073966801 197.0860 5.283640 0.023795257 0.5443965
## 1973 -0.1292977 0.0188480417 213.1017 5.361770 0.078129247 -5.3710974
## 1974 -0.1319342 -0.0026365298 216.7896 5.378927 0.017157940 -8.9517388
## 1975 -0.1508057 -0.0188714115 198.3971 5.290270 -0.088657038 -6.2849747
## 1976 -0.1526584 -0.0018527663 197.0445 5.283430 -0.006840687 -4.3150088
## 1977 -0.1497995 0.0028589378 201.7027 5.306795 0.023364976 -3.5411278
## 1978 -0.1434069 0.0063926061 203.8851 5.317556 0.010761658 -1.2018810
## 1979 -0.1398752 0.0035316843 215.6224 5.373529 0.055972545 -2.5144721
## 1980 -0.1538996 -0.0140243679 223.9348 5.411355 0.037826103 -4.8641526
## 1981 -0.1751000 -0.0212004571 214.6796 5.369147 -0.042208535 0.1324238
## 1982 -0.1824555 -0.0073554341 204.8323 5.322192 -0.046954821 1.9765719
## 1983 -0.1868199 -0.0043644760 200.0407 5.298521 -0.023670862 2.4446611
## 1984 -0.1846083 0.0022116620 206.1648 5.328676 0.030154871 4.0967998
## 1985 -0.1928173 -0.0082090686 205.2724 5.324338 -0.004337784 3.9016198
## 1986 -0.1919678 0.0008495604 210.6733 5.350309 0.025970664 3.3646274
## 1987 -0.1910578 0.0009099403 219.0133 5.389132 0.038823672 4.1004557
## 1988 -0.1846979 0.0063599609 233.8018 5.454474 0.065341281 3.6984582
## 1989 -0.1821252 0.0025726725 242.6438 5.491595 0.037121007 5.9835629
## 1990 -0.1831468 -0.0010216246 250.7463 5.524442 0.032847179 4.6744927
## 1991 -0.1834313 -0.0002845176 252.7613 5.532446 0.008003966 5.0595739
## 1992 -0.1762850 0.0071463369 250.1057 5.521884 -0.010561956 8.3628671
## 1993 -0.1712999 0.0049851448 225.1864 5.416928 -0.104955274 6.9673919
## 1994 -0.1530450 0.0182549101 228.3252 5.430771 0.013842389 6.6338935
## 1995 -0.1439483 0.0090966876 243.5648 5.495383 0.064612297 6.6714374
## 1996 -0.1505859 -0.0066375842 247.9598 5.513267 0.017883443 4.6813588
## 1997 -0.1515114 -0.0009255484 252.6128 5.531858 0.018591209 4.1851762
## 1998 -0.1543644 -0.0028529580 262.0917 5.568694 0.036836661 2.4192528
## 1999 -0.1574085 -0.0030441343 272.6874 5.608326 0.039631575 3.1455518
## 2000 -0.1471855 0.0102230247 294.2481 5.684423 0.076097329 3.7209085
## 2001 -0.1572058 -0.0100202878 299.0998 5.700777 0.016354033 2.0929174
## 2002 -0.1245048 0.0327009247 320.9567 5.771306 0.070528705 1.6999945
## 2003 -0.1604482 -0.0359433446 307.6909 5.729096 -0.042210336 1.0685560
## 2004 -0.1643526 -0.0039043782 311.4472 5.741230 0.012133940 1.5484693
## 2005 -0.1637094 0.0006431780 316.4794 5.757258 0.016028427 1.5189037
## 2006 -0.1597548 0.0039545318 325.8057 5.786301 0.029043031 1.8850907
## 2007 -0.1584558 0.0012990602 331.1948 5.802707 0.016405595 1.9623585
## 2008 -0.1604139 -0.0019581374 320.1166 5.768685 -0.034021551 2.2258603
## 2009 -0.2010072 -0.0405932528 277.4213 5.625537 -0.143147881 2.5877174
## 2010 -0.1681687 0.0328384984 286.1087 5.656372 0.030834632 3.5879829
## 2011 -0.1600208 0.0081478668 284.3167 5.650089 -0.006283146 3.7525135
## 2012 -0.1556252 0.0043956297 257.7554 5.552011 -0.098077621 3.8826227
## 2013 -0.1578865 -0.0022613194 240.5968 5.483123 -0.068888541 3.1363962
## 2014 -0.1495451 0.0083414291 237.2274 5.469019 -0.014103323 1.9588695
## 2015 -0.1529659 -0.0034207968 240.5781 5.483045 0.014025448 0.7709522
## 2016 -0.1438839 0.0090819688 252.4675 5.531283 0.048237910 0.3516609
## 2017 -0.1347736 0.0091102684 262.9751 5.572059 0.040776502 1.3736792
## 2018 -0.1277448 0.0070288485 273.1007 5.609841 0.037781363 1.6969790
## r_l r_dl P P_l P_dl Pm
## 1971 2.251933 -0.154563289 4.857554 1.580535 0.072125045 5.783329
## 1972 2.351007 0.099073846 5.149632 1.638925 0.058390316 6.056809
## 1973 1.521839 -0.829168091 5.818504 1.761043 0.122117922 7.757659
## 1974 0.000000 -1.521839032 7.004706 1.946582 0.185538916 11.893787
## 1975 1.299310 1.299309557 8.224912 2.107168 0.160585397 13.351952
## 1976 1.729304 0.429994554 9.684053 2.270481 0.163312984 16.832249
## 1977 1.857955 0.128650476 11.516387 2.443771 0.173290480 19.551670
## 1978 2.169037 0.311082863 13.177656 2.578523 0.134751633 20.909580
## 1979 2.006503 -0.162534046 15.277536 2.726384 0.147860856 24.975595
## 1980 1.626803 -0.379699908 18.507598 2.918181 0.191797839 31.730323
## 1981 2.310966 0.684162640 22.061454 3.093832 0.175650592 39.888285
## 1982 2.478915 0.167948491 26.008209 3.258412 0.164580299 44.855773
## 1983 2.517406 0.038491475 30.033494 3.402313 0.143901008 48.009191
## 1984 2.642518 0.125112276 33.352341 3.507128 0.104814723 52.742336
## 1985 2.628528 -0.013990675 36.500823 3.597335 0.090206857 57.260843
## 1986 2.588994 -0.039533881 39.363048 3.672828 0.075492689 49.026842
## 1987 2.642779 0.053784756 41.835817 3.733753 0.060925335 48.442648
## 1988 2.613754 -0.029024622 44.741187 3.800894 0.067141646 50.926663
## 1989 2.768537 0.154782927 47.614539 3.863138 0.062243669 54.736400
## 1990 2.682817 -0.085720286 51.647298 3.944438 0.081299732 54.729637
## 1991 2.708804 0.025987502 55.634385 4.018801 0.074363553 55.016452
## 1992 2.907699 0.198894781 58.158881 4.063179 0.044377153 56.215643
## 1993 2.828445 -0.079253902 60.454741 4.101895 0.038716411 65.121820
## 1994 2.808537 -0.019908179 62.657920 4.137690 0.035795087 68.507578
## 1995 2.810798 0.002261082 65.911226 4.188309 0.050618684 76.680657
## 1996 2.683286 -0.127511956 68.882256 4.232399 0.044089833 74.953821
## 1997 2.648789 -0.034496461 70.650722 4.257748 0.025349711 75.595082
## 1998 2.515354 -0.133435116 72.348191 4.281490 0.023742128 74.372081
## 1999 2.572405 0.057051040 73.459552 4.296735 0.015244495 74.804036
## 2000 2.615397 0.042991905 74.776240 4.314500 0.017765239 82.364371
## 2001 2.488621 -0.126776197 77.044646 4.344385 0.029884885 83.129103
## 2002 2.455455 -0.033166143 79.567351 4.376604 0.032218775 83.006576
## 2003 2.399739 -0.055716395 82.071978 4.407597 0.030992802 82.215940
## 2004 2.442365 0.042626576 84.263451 4.433948 0.026351565 83.925334
## 2005 2.439791 -0.002574186 85.957616 4.453854 0.019906130 88.000501
## 2006 2.471216 0.031424870 87.784090 4.474880 0.021025937 92.608374
## 2007 2.477722 0.006506531 89.960253 4.499368 0.024487662 93.721627
## 2008 2.499598 0.021875779 92.119932 4.523091 0.023723396 98.782406
## 2009 2.528880 0.029282044 93.666477 4.539740 0.016649022 91.229204
## 2010 2.605628 0.076747544 94.075201 4.544094 0.004354113 97.210032
## 2011 2.617706 0.012078458 95.587156 4.560038 0.015943985 103.838716
## 2012 2.627155 0.009449290 97.066177 4.575393 0.015354529 107.414052
## 2013 2.571706 -0.055449367 98.180119 4.586804 0.011410751 105.424353
## 2014 2.477429 -0.094276638 99.076740 4.595895 0.009090964 102.749722
## 2015 2.372362 -0.105067307 100.000000 4.605170 0.009275486 100.000000
## 2016 2.332474 -0.039888242 101.134350 4.616450 0.011279645 96.125949
## 2017 2.427050 0.094575671 101.868932 4.623687 0.007237181 99.310464
## 2018 2.455196 0.028146534 102.783497 4.632625 0.008937797 101.844895
## Pm_l Pm_dl Px Px_l Px_dl X
## 1971 1.754980 0.054216575 6.432668 1.861389 0.0483132387 97.1694
## 1972 1.801183 0.046203572 6.840073 1.922798 0.0614090831 104.8014
## 1973 2.048681 0.247497435 7.738240 2.046174 0.1233758787 110.4503
## 1974 2.476016 0.427335584 10.597612 2.360629 0.3144544236 117.6728
## 1975 2.591663 0.115646453 12.140021 2.496508 0.1358788274 118.9758
## 1976 2.823297 0.231634061 14.682798 2.686677 0.1901690425 132.4471
## 1977 2.973061 0.149764056 17.297578 2.850567 0.1638899124 145.7093
## 1978 3.040207 0.067146731 18.718134 2.929493 0.0789263047 160.6171
## 1979 3.217899 0.177691714 22.058852 3.093714 0.1642211465 172.1612
## 1980 3.457273 0.239373638 27.278648 3.306104 0.2123903135 156.8796
## 1981 3.686083 0.228809874 33.013361 3.496912 0.1908080873 166.6567
## 1982 3.803452 0.117369620 38.705363 3.655978 0.1590658114 163.5489
## 1983 3.871392 0.067940187 42.039262 3.738604 0.0826258197 168.8020
## 1984 3.965418 0.094025987 46.364219 3.836528 0.0979240396 180.7724
## 1985 4.047617 0.082198562 50.782980 3.927561 0.0910332272 186.1753
## 1986 3.892368 -0.155249093 49.198610 3.895865 -0.0316958740 188.2402
## 1987 3.880381 -0.011987341 49.988278 3.911789 0.0159231507 194.8750
## 1988 3.930387 0.050006017 51.912473 3.949559 0.0377705570 203.8249
## 1989 4.002529 0.072142323 55.641310 4.018926 0.0693668241 219.9479
## 1990 4.002405 -0.000123558 57.703819 4.055323 0.0363974423 233.6968
## 1991 4.007632 0.005226893 60.295653 4.099260 0.0439366649 227.4420
## 1992 4.029195 0.021562799 61.041956 4.111561 0.0123014079 241.5543
## 1993 4.176260 0.147064600 67.751924 4.215853 0.1042914347 261.0677
## 1994 4.226944 0.050684694 70.466398 4.255136 0.0392831183 284.5166
## 1995 4.339649 0.112705130 76.679799 4.339638 0.0845023125 317.9771
## 1996 4.316872 -0.022777288 76.862488 4.342018 0.0023796609 322.5511
## 1997 4.325391 0.008519023 77.865521 4.354983 0.0129652952 338.7918
## 1998 4.309081 -0.016310608 78.766082 4.366482 0.0114992212 347.9193
## 1999 4.314872 0.005791218 79.138164 4.371195 0.0047127686 344.5157
## 2000 4.411153 0.096281113 82.396027 4.411537 0.0403419846 386.1492
## 2001 4.420395 0.009241907 84.452672 4.436191 0.0246540582 396.0777
## 2002 4.418920 -0.001475027 85.607888 4.449777 0.0135861434 384.9692
## 2003 4.409349 -0.009570633 85.531313 4.448883 -0.0008948798 379.9709
## 2004 4.429928 0.020578329 86.469772 4.459795 0.0109123534 403.2615
## 2005 4.477343 0.047414980 88.280090 4.480515 0.0207196978 416.2327
## 2006 4.528380 0.051037062 90.144536 4.501414 0.0208997392 450.8230
## 2007 4.540329 0.011949407 92.287400 4.524908 0.0234932821 478.7620
## 2008 4.592920 0.052590536 94.896799 4.552790 0.0278823562 463.5894
## 2009 4.513375 -0.079544447 92.728948 4.529681 -0.0231092706 380.9944
## 2010 4.576874 0.063498854 94.882098 4.552635 0.0229543397 425.8053
## 2011 4.642839 0.065964972 98.702982 4.592115 0.0394801138 448.8834
## 2012 4.676691 0.033852121 100.649467 4.611644 0.0195287038 458.0061
## 2013 4.657994 -0.018697352 100.448773 4.609648 -0.0019959803 459.7199
## 2014 4.632296 -0.025697516 100.418894 4.609350 -0.0002975053 471.7426
## 2015 4.605170 -0.027125959 100.000000 4.605170 -0.0041801878 491.9050
## 2016 4.565659 -0.039510889 99.253016 4.597672 -0.0074978820 501.0815
## 2017 4.598251 0.032591644 101.021592 4.615334 0.0176619712 528.3225
## 2018 4.623451 0.025200074 102.811207 4.632894 0.0175600904 540.3017
## X_l X_dl M M_l M_dl rulc
## 1971 4.576456 0.066107460 102.6689 4.631509 0.024837190 0.6970269
## 1972 4.652067 0.075611283 112.3684 4.721783 0.090273512 0.6904213
## 1973 4.704566 0.052498515 122.6520 4.809351 0.087568318 0.6840179
## 1974 4.767908 0.063342246 125.8545 4.835126 0.025775401 0.6745720
## 1975 4.778920 0.011012220 107.5694 4.678136 -0.156990257 0.6925749
## 1976 4.886183 0.107263209 121.6210 4.800910 0.122773431 0.6817338
## 1977 4.981614 0.095430221 122.9299 4.811614 0.010704622 0.6842359
## 1978 5.079023 0.097409731 129.6783 4.865057 0.053442494 0.6759209
## 1979 5.148431 0.069407976 144.5681 4.973751 0.108693909 0.6648473
## 1980 5.055479 -0.092952615 151.9273 5.023402 0.049651440 0.6586787
## 1981 5.115936 0.060457376 150.0107 5.010707 -0.012695492 0.6665880
## 1982 5.097112 -0.018823980 149.2458 5.005595 -0.005112014 0.6579746
## 1983 5.128726 0.031614402 144.0171 4.969932 -0.035662569 0.6562779
## 1984 5.197239 0.068512351 161.7022 5.085756 0.115824329 0.6387435
## 1985 5.226689 0.029449922 167.8454 5.123043 0.037286946 0.6299849
## 1986 5.237719 0.011030104 175.9606 5.170260 0.047216789 0.6137011
## 1987 5.272358 0.034639520 196.1765 5.279015 0.108754658 0.6080410
## 1988 5.317261 0.044902965 206.8904 5.332189 0.053174420 0.5998296
## 1989 5.393391 0.076129408 223.4765 5.409306 0.077117079 0.5944074
## 1990 5.454025 0.060633849 243.7740 5.496242 0.086935303 0.6007604
## 1991 5.426895 -0.027129288 247.9835 5.513362 0.017120645 0.6007490
## 1992 5.487094 0.060199032 263.8206 5.575269 0.061907115 0.5957808
## 1993 5.564780 0.077685468 232.2050 5.447621 -0.127648725 0.5835373
## 1994 5.650792 0.086011839 248.9840 5.517389 0.069768035 0.5641124
## 1995 5.761979 0.111187768 270.7988 5.601376 0.083987472 0.5436104
## 1996 5.776262 0.014282206 267.5458 5.589291 -0.012085343 0.5472047
## 1997 5.825386 0.049124186 295.3417 5.688133 0.098842224 0.5497888
## 1998 5.851971 0.026584797 322.0281 5.774639 0.086505818 0.5302743
## 1999 5.842140 -0.009830894 336.5027 5.818606 0.043967364 0.5296000
## 2000 5.956224 0.114084161 373.4871 5.922883 0.104277293 0.5205842
## 2001 5.981610 0.025386581 382.5665 5.946902 0.024019029 0.5176175
## 2002 5.953163 -0.028447073 384.7194 5.952514 0.005611743 0.5190580
## 2003 5.940095 -0.013068660 387.5656 5.959885 0.007370887 0.5229411
## 2004 5.999585 0.059490564 405.2893 6.004601 0.044716008 0.5217149
## 2005 6.031244 0.031659244 419.2325 6.038426 0.033824526 0.5229482
## 2006 6.111075 0.079830322 452.5973 6.115003 0.076577109 0.5232634
## 2007 6.171204 0.060128804 477.2829 6.168109 0.053106629 0.5191631
## 2008 6.138999 -0.032204359 458.0755 6.127034 -0.041075379 0.5252292
## 2009 5.942785 -0.196214570 397.9844 5.986413 -0.140621209 0.5353771
## 2010 6.053982 0.111197523 446.4066 6.101230 0.114817387 0.5331564
## 2011 6.106763 0.052780966 448.9209 6.106847 0.005616507 0.5261489
## 2012 6.126883 0.020119337 412.4708 6.022165 -0.084681288 0.5239746
## 2013 6.130617 0.003734888 401.3253 5.994772 -0.027393095 0.5204065
## 2014 6.156433 0.025816107 415.1802 6.028713 0.033940322 0.5148511
## 2015 6.198286 0.041852111 442.0161 6.091346 0.062633664 0.5151857
## 2016 6.216769 0.018483154 459.3744 6.129866 0.038519257 0.5098850
## 2017 6.269707 0.052938130 487.3566 6.188996 0.059130529 0.5065689
## 2018 6.292128 0.022420795 503.9475 6.222472 0.033476003 0.5115360
## rulc_l rulc_dl ulc ulc_l ulc_dl Tau
## 1971 -0.3609313 0.03509881358 3.385845 1.219604 0.1072238588 78.84174
## 1972 -0.3704533 -0.00952199816 3.555416 1.268472 0.0488683175 80.28024
## 1973 -0.3797711 -0.00931779520 3.979961 1.381272 0.1128001263 82.88865
## 1974 -0.3936769 -0.01390577050 4.725178 1.552905 0.1716331457 84.40922
## 1975 -0.3673389 0.02633805083 5.696367 1.739829 0.1869234479 81.14036
## 1976 -0.3831160 -0.01577714280 6.601947 1.887365 0.1475358410 84.57981
## 1977 -0.3794525 0.00366345669 7.879926 2.064318 0.1769539364 84.79928
## 1978 -0.3916792 -0.01222663367 8.907053 2.186843 0.1225249993 85.89086
## 1979 -0.4081978 -0.01651866039 10.157229 2.318186 0.1313421954 88.62201
## 1980 -0.4175195 -0.00932165570 12.190560 2.500662 0.1824761829 88.97001
## 1981 -0.4055831 0.01193637970 14.705901 2.688249 0.1875869719 88.31285
## 1982 -0.4185889 -0.01300579520 17.112742 2.839823 0.1515745034 87.18428
## 1983 -0.4211710 -0.00258204105 19.710319 2.981142 0.1413189673 86.77965
## 1984 -0.4482522 -0.02708129303 21.303592 3.058876 0.0777334299 88.30913
## 1985 -0.4620594 -0.01380716100 22.994968 3.135275 0.0763996964 89.30389
## 1986 -0.4882473 -0.02618791689 24.157145 3.184580 0.0493047721 90.41076
## 1987 -0.4975129 -0.00926558257 25.437894 3.236240 0.0516597527 92.02185
## 1988 -0.5111097 -0.01359674901 26.837089 3.289785 0.0535448966 94.14605
## 1989 -0.5201903 -0.00908061199 28.302436 3.342948 0.0531630569 96.02139
## 1990 -0.5095591 0.01063119346 31.027652 3.434879 0.0919309258 96.32824
## 1991 -0.5095780 -0.00001897729 33.422302 3.509223 0.0743445760 96.28552
## 1992 -0.5178824 -0.00830437491 34.649946 3.545296 0.0360727780 96.62502
## 1993 -0.5386469 -0.02076450471 35.277596 3.563248 0.0179519062 97.20466
## 1994 -0.5725018 -0.03385487293 35.346108 3.565188 0.0019402144 99.38164
## 1995 -0.6095225 -0.03702068299 35.830027 3.578786 0.0135980013 101.47978
## 1996 -0.6029323 0.00659017814 37.692695 3.629466 0.0506800113 101.82416
## 1997 -0.5982211 0.00471116149 38.842973 3.659527 0.0300608721 102.91731
## 1998 -0.6343609 -0.03613972091 38.364386 3.647130 -0.0123975930 103.69009
## 1999 -0.6356333 -0.00127243786 38.904178 3.661102 0.0139720574 104.34869
## 2000 -0.6528037 -0.01717040142 38.927326 3.661696 0.0005948375 106.33866
## 2001 -0.6585187 -0.00571497821 39.879659 3.685866 0.0241699064 106.44691
## 2002 -0.6557397 0.00277900967 41.300069 3.720864 0.0349977844 105.21776
## 2003 -0.6482864 0.00745324657 42.918811 3.759310 0.0384460488 104.24378
## 2004 -0.6506340 -0.00234752698 43.961500 3.783314 0.0240040377 104.69705
## 2005 -0.6482729 0.00236107133 44.951380 3.805581 0.0222672013 104.78601
## 2006 -0.6476703 0.00060255252 45.934200 3.827210 0.0216284895 104.79245
## 2007 -0.6555372 -0.00786685978 46.704044 3.843831 0.0166208027 104.96661
## 2008 -0.6439206 0.01161660839 48.384076 3.879171 0.0353400046 103.61479
## 2009 -0.6247839 0.01913666752 50.146887 3.914956 0.0357856897 99.53353
## 2010 -0.6289405 -0.00415657760 50.156794 3.915154 0.0001975355 101.48447
## 2011 -0.6421710 -0.01323049772 50.293079 3.917867 0.0027134877 101.91873
## 2012 -0.6463120 -0.00414101020 50.860215 3.929081 0.0112135184 99.69139
## 2013 -0.6531450 -0.00683295553 51.093576 3.933659 0.0045777950 99.47301
## 2014 -0.6638776 -0.01073268151 51.009764 3.932017 -0.0016417178 99.50875
## 2015 -0.6632280 0.00064968082 51.518565 3.941942 0.0099251664 100.00000
## 2016 -0.6735701 -0.01034214066 51.566887 3.942880 0.0009375043 100.51692
## 2017 -0.6800949 -0.00652483377 51.603633 3.943592 0.0007123468 101.71654
## 2018 -0.6703373 0.00975758354 52.577457 3.962287 0.0186953801 102.02405
## Tau_l Tau_dl dPxdPm dPdPm Trade
## 1971 4.367443 -0.00322467073 -0.005903336 0.017908471 0.2435496
## 1972 4.385523 0.01808097334 0.015205511 0.012186744 0.2559060
## 1973 4.417498 0.03197469462 -0.124121556 -0.125379514 0.2573850
## 1974 4.435677 0.01817850885 -0.112881161 -0.241796668 0.2559705
## 1975 4.396181 -0.03949616909 0.020232375 0.044938944 0.2440066
## 1976 4.437696 0.04151502507 -0.041465018 -0.068321077 0.2565886
## 1977 4.440287 0.00259156689 0.014125857 0.023526424 0.2654928
## 1978 4.453077 0.01279032218 0.011779573 0.067604902 0.2788133
## 1979 4.484380 0.03130275686 -0.013470567 -0.029830858 0.2881836
## 1980 4.488299 0.00391920703 -0.026983324 -0.047575799 0.2725289
## 1981 4.480886 -0.00741374982 -0.038001787 -0.053159282 0.2779188
## 1982 4.468024 -0.01286164354 0.041696192 0.047210679 0.2740930
## 1983 4.463372 -0.00465181061 0.014685633 0.075960822 0.2716019
## 1984 4.480844 0.01747135180 0.003898052 0.010788736 0.2886537
## 1985 4.492045 0.01120151185 0.008834665 0.008008295 0.2907643
## 1986 4.504363 0.01231827418 0.123553219 0.230741782 0.2912334
## 1987 4.522026 0.01766273839 0.027910492 0.072912676 0.3033994
## 1988 4.544847 0.02282119641 -0.012235460 0.017135629 0.3063142
## 1989 4.564571 0.01972370491 -0.002775499 -0.009898654 0.3202918
## 1990 4.567761 0.00319050439 0.036521000 0.081423290 0.3381797
## 1991 4.567318 -0.00044350727 0.038709772 0.069136660 0.3319542
## 1992 4.570838 0.00351972008 -0.009261391 0.022814354 0.3503334
## 1993 4.576819 0.00598095440 -0.042773165 -0.108348189 0.3448232
## 1994 4.598967 0.02214874594 -0.011401576 -0.014889607 0.3653661
## 1995 4.619860 0.02089221394 -0.028202818 -0.062086446 0.3926861
## 1996 4.623247 0.00338783908 0.025156948 0.066867121 0.3886438
## 1997 4.633926 0.01067839043 0.004446272 0.016830688 0.4101403
## 1998 4.641407 0.00748070799 0.027809829 0.040052736 0.4255980
## 1999 4.647738 0.00633149567 -0.001078449 0.009453277 0.4257102
## 2000 4.666629 0.01889088273 -0.055939129 -0.078515875 0.4575284
## 2001 4.667646 0.00101747038 0.015412151 0.020642978 0.4600005
## 2002 4.656032 -0.01161427172 0.015061171 0.033693802 0.4535581
## 2003 4.646732 -0.00929994045 0.008675753 0.040563435 0.4516637
## 2004 4.651071 0.00433873573 -0.009665976 0.005773235 0.4691205
## 2005 4.651920 0.00084939570 -0.026695282 -0.027508850 0.4808040
## 2006 4.651982 0.00006138513 -0.030137323 -0.030011125 0.5107656
## 2007 4.653642 0.00166064474 0.011543875 0.012538255 0.5325980
## 2008 4.640680 -0.01296227385 -0.024708180 -0.028867140 0.5184327
## 2009 4.600495 -0.04018547043 0.056435176 0.096193469 0.4626020
## 2010 4.619906 0.01941117266 -0.040544514 -0.059144741 0.5092444
## 2011 4.624176 0.00426996000 -0.026484859 -0.050020987 0.5205049
## 2012 4.602079 -0.02209636980 -0.014323417 -0.018497592 0.5201675
## 2013 4.599886 -0.00219299013 0.016701371 0.030108102 0.5241818
## 2014 4.600246 0.00035921182 0.025400010 0.034788480 0.5399601
## 2015 4.605170 0.00492460800 0.022945771 0.036401444 0.5641818
## 2016 4.610326 0.00515591540 0.032013007 0.050790534 0.5728026
## 2017 4.622190 0.01186383348 -0.014929673 -0.025354463 0.5957995
## 2018 4.625209 0.00301858789 -0.007639983 -0.016262277 0.6077088
adf.ITA.WS <- adf.test((ITA$WS), alternative = c("stationary"), k = 2)
adf.ITA.PS <- adf.test((ITA$PS), alternative = c("stationary"), k = 2)
adf.ITA.Y <- adf.test((ITA$Y), alternative = c("stationary"), k = 2)
adf.ITA.Yrw <- adf.test((ITA$Yrw), alternative = c("stationary"), k = 2)
adf.ITA.r <- adf.test((ITA$r), alternative = c("stationary"), k = 2)
adf.ITA.R <- adf.test((ITA$R), alternative = c("stationary"), k = 2)
adf.ITA.Tau <- adf.test((ITA$Tau), alternative = c("stationary"), k = 2)
adf.ITA.rulc <- adf.test((ITA$rulc), alternative = c("stationary"), k = 2)
adf.ITA.ulc <- adf.test((ITA$ulc), alternative = c("stationary"), k = 2)
adf.ITA.P <- adf.test((ITA$P), alternative = c("stationary"), k = 2)
adf.ITA.Pm <- adf.test((ITA$Pm), alternative = c("stationary"), k = 2)
adf.ITA.Px <- adf.test((ITA$Px), alternative = c("stationary"), k = 2)
adf.ITA.X <- adf.test((ITA$X), alternative = c("stationary"), k = 2)
adf.ITA.M <- adf.test((ITA$M), alternative = c("stationary"), k = 2)
adf.ITA.I <- adf.test((ITA$I), alternative = c("stationary"), k = 2)
adf.ITA.C <- adf.test((ITA$C), alternative = c("stationary"), k = 2)
adf.ITA.Ipr <- adf.test((ITA$Ipr), alternative = c("stationary"), k = 2)
adf.ITA.Ips <- adf.test((ITA$Ips), alternative = c("stationary"), k = 2)
adf.ITA.It <- adf.test((ITA$It), alternative = c("stationary"), k = 2)
adf.ITA.Itcurr <- adf.test((ITA$Itcurr), alternative = c("stationary"), k = 2)
adf.ITA.Yf <- adf.test((ITA$Yf), alternative = c("stationary"), k = 2)
adf.ITA.W <- adf.test((ITA$W), alternative = c("stationary"), k = 2)
adf.ITA.WS.pval <- adf.ITA.WS$p.value
adf.ITA.PS.pval <- adf.ITA.PS$p.value
adf.ITA.Y.pval <- adf.ITA.Y$p.value
adf.ITA.Yrw.pval <- adf.ITA.Yrw$p.value
adf.ITA.r.pval <- adf.ITA.r$p.value
adf.ITA.R.pval <- adf.ITA.R$p.value
adf.ITA.Tau.pval <- adf.ITA.Tau$p.value
adf.ITA.rulc.pval <- adf.ITA.rulc$p.value
adf.ITA.ulc.pval <- adf.ITA.ulc$p.value
adf.ITA.P.pval <- adf.ITA.P$p.value
adf.ITA.Pm.pval <- adf.ITA.Pm$p.value
adf.ITA.Px.pval <- adf.ITA.Px$p.value
adf.ITA.X.pval <- adf.ITA.X$p.value
adf.ITA.M.pval <- adf.ITA.M$p.value
adf.ITA.I.pval <- adf.ITA.I$p.value
adf.ITA.C.pval <- adf.ITA.C$p.value
adf.ITA.Ipr.pval <- adf.ITA.Ipr$p.value
adf.ITA.Ips.pval <- adf.ITA.Ips$p.value
adf.ITA.It.pval <- adf.ITA.It$p.value
adf.ITA.Itcurr.pval <- adf.ITA.Itcurr$p.value
adf.ITA.Yf.pval <- adf.ITA.Yf$p.value
adf.ITA.W.pval <- adf.ITA.W$p.value
adf.ITA_non <- rbind(adf.ITA.WS.pval,adf.ITA.PS.pval,adf.ITA.Y.pval,adf.ITA.Yrw.pval,adf.ITA.r.pval,adf.ITA.R.pval,adf.ITA.Tau.pval,adf.ITA.rulc.pval,adf.ITA.ulc.pval,adf.ITA.P.pval,adf.ITA.Pm.pval,adf.ITA.Px.pval,adf.ITA.X.pval,adf.ITA.M.pval,adf.ITA.I.pval,adf.ITA.C.pval,adf.ITA.Ipr.pval,adf.ITA.Ips.pval,adf.ITA.It.pval,adf.ITA.Itcurr.pval,adf.ITA.Yf.pval,adf.ITA.W.pval)
colnames(adf.ITA_non) <- c("ITA")
rownames(adf.ITA_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.ITA_non
## ITA
## WS 0.8736350
## PS 0.8736350
## Y 0.9866349
## Yrw 0.2679621
## r 0.7445713
## R 0.9762233
## Tau 0.9666743
## rulc 0.9428151
## ulc 0.9602068
## P 0.9870552
## Pm 0.5527124
## Px 0.9355589
## X 0.4114584
## M 0.4769191
## I 0.6506746
## C 0.9762815
## Ipr 0.8455114
## Ips 0.5548061
## It 0.6871375
## Itcurr 0.8515615
## Yf 0.9614338
## W 0.6460153
adf.ITA.WS_dl <- adf.test((ITA$WS_dl), alternative = c("stationary"), k = 2)
adf.ITA.PS_dl <- adf.test((ITA$PS_dl), alternative = c("stationary"), k = 2)
adf.ITA.Y_dl <- adf.test((ITA$Y_dl), alternative = c("stationary"), k = 2)
adf.ITA.Yrw_dl <- adf.test((ITA$Yrw_dl), alternative = c("stationary"), k = 2)
adf.ITA.r_dl <- adf.test((ITA$r_dl), alternative = c("stationary"), k = 2)
adf.ITA.R_dl <- adf.test((ITA$R_dl), alternative = c("stationary"), k = 2)
adf.ITA.Tau_dl <- adf.test((ITA$Tau_dl), alternative = c("stationary"), k = 2)
adf.ITA.rulc_dl <- adf.test((ITA$rulc_dl), alternative = c("stationary"), k = 2)
adf.ITA.ulc_dl <- adf.test((ITA$ulc_dl), alternative = c("stationary"), k = 2)
adf.ITA.P_dl <- adf.test((ITA$P_dl), alternative = c("stationary"), k = 2)
adf.ITA.Pm_dl <- adf.test((ITA$Pm_dl), alternative = c("stationary"), k = 2)
adf.ITA.Px_dl <- adf.test((ITA$Px_dl), alternative = c("stationary"), k = 2)
adf.ITA.X_dl <- adf.test((ITA$X_dl), alternative = c("stationary"), k = 2)
adf.ITA.M_dl <- adf.test((ITA$M_dl), alternative = c("stationary"), k = 2)
adf.ITA.I_dl <- adf.test((ITA$I_dl), alternative = c("stationary"), k = 2)
adf.ITA.C_dl <- adf.test((ITA$C_dl), alternative = c("stationary"), k = 2)
adf.ITA.Ipr_dl <- adf.test((ITA$Ipr_dl), alternative = c("stationary"), k = 2)
adf.ITA.Ips_dl <- adf.test((ITA$Ips_dl), alternative = c("stationary"), k = 2)
adf.ITA.It_dl <- adf.test((ITA$It_dl), alternative = c("stationary"), k = 2)
adf.ITA.Itcurr_dl <- adf.test((ITA$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.ITA.Yf_dl <- adf.test((ITA$Yf_dl), alternative = c("stationary"), k = 2)
adf.ITA.W_dl <- adf.test((ITA$W_dl), alternative = c("stationary"), k = 2)
adf.ITA.WS_dl.pval <- adf.ITA.WS_dl$p.value
adf.ITA.PS_dl.pval <- adf.ITA.PS_dl$p.value
adf.ITA.Y_dl.pval <- adf.ITA.Y_dl$p.value
adf.ITA.Yrw_dl.pval <- adf.ITA.Yrw_dl$p.value
adf.ITA.r_dl.pval <- adf.ITA.r_dl$p.value
adf.ITA.R_dl.pval <- adf.ITA.R_dl$p.value
adf.ITA.Tau_dl.pval <- adf.ITA.Tau_dl$p.value
adf.ITA.rulc_dl.pval <- adf.ITA.rulc_dl$p.value
adf.ITA.ulc_dl.pval <- adf.ITA.ulc_dl$p.value
adf.ITA.P_dl.pval <- adf.ITA.P_dl$p.value
adf.ITA.Pm_dl.pval <- adf.ITA.Pm_dl$p.value
adf.ITA.Px_dl.pval <- adf.ITA.Px_dl$p.value
adf.ITA.X_dl.pval <- adf.ITA.X_dl$p.value
adf.ITA.M_dl.pval <- adf.ITA.M_dl$p.value
adf.ITA.I_dl.pval <- adf.ITA.I_dl$p.value
adf.ITA.C_dl.pval <- adf.ITA.C_dl$p.value
adf.ITA.Ipr_dl.pval <- adf.ITA.Ipr_dl$p.value
adf.ITA.Ips_dl.pval <- adf.ITA.Ips_dl$p.value
adf.ITA.It_dl.pval <- adf.ITA.It_dl$p.value
adf.ITA.Itcurr_dl.pval <- adf.ITA.Itcurr_dl$p.value
adf.ITA.Yf_dl.pval <- adf.ITA.Yf_dl$p.value
adf.ITA.W_dl.pval <- adf.ITA.W_dl$p.value
adf.ITA_dl <- rbind(adf.ITA.WS_dl.pval,adf.ITA.PS_dl.pval,adf.ITA.Y_dl.pval,adf.ITA.Yrw_dl.pval,adf.ITA.r_dl.pval,adf.ITA.R_dl.pval,adf.ITA.Tau_dl.pval,adf.ITA.rulc_dl.pval,adf.ITA.ulc_dl.pval,adf.ITA.P_dl.pval,adf.ITA.Pm_dl.pval,adf.ITA.Px_dl.pval,adf.ITA.X_dl.pval,adf.ITA.M_dl.pval,adf.ITA.I_dl.pval,adf.ITA.C_dl.pval,adf.ITA.Ipr_dl.pval,adf.ITA.Ips_dl.pval,adf.ITA.It_dl.pval,adf.ITA.Itcurr_dl.pval,adf.ITA.Yf_dl.pval,adf.ITA.W_dl.pval)
colnames(adf.ITA_dl) <- c("ITA")
rownames(adf.ITA_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.ITA_dl
## ITA
## dlog(WS) 0.01000000
## dlog(PS) 0.01000000
## dlog(Y) 0.03528315
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.01000000
## dlog(Tau) 0.02583018
## dlog(rulc) 0.02622507
## dlog(ulc) 0.34898516
## dlog(P) 0.49900394
## dlog(Pm) 0.06393381
## dlog(Px) 0.07560116
## dlog(X) 0.01000000
## dlog(M) 0.01706094
## dlog(I) 0.05287906
## dlog(C) 0.05525318
## dlog(Ipr) 0.16132067
## dlog(Ips) 0.01000000
## dlog(It) 0.15583112
## dlog(Itcurr) 0.34370203
## dlog(Yf) 0.04700310
## dlog(W) 0.12622009
adf.ITA <- NULL
adf.ITA <- rbind(adf.ITA_non,adf.ITA_dl)
#Consumption (C)
ITA_consumption <- dynlm(ITA$C_dl~ITA$R_dl+ITA$W_dl)
ITA_CR <- summary(ITA_consumption)$coefficients["ITA$R_dl","Estimate"]
ITA_CW <- summary(ITA_consumption)$coefficients["ITA$W_dl","Estimate"]
ITA_Ceffekt <- (ITA_CR*mean(ITA$C/ITA$R))-(ITA_CW*mean(ITA$C/ITA$W))
summary(ITA_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$C_dl ~ ITA$R_dl + ITA$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.021441 -0.006667 -0.000948 0.006760 0.034950
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.007513 0.001942 3.869 0.00035 ***
## ITA$R_dl 0.191420 0.044181 4.333 0.0000816058 ***
## ITA$W_dl 0.623240 0.091543 6.808 0.0000000196 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01176 on 45 degrees of freedom
## Multiple R-squared: 0.6899, Adjusted R-squared: 0.6761
## F-statistic: 50.05 on 2 and 45 DF, p-value: 0.00000000000363
#Investments (I)
ITA_investment <- dynlm(ITA$I_dl~ITA$PS_l+ITA$Y_l)
ITA_iPS <- summary(ITA_investment)$coefficients["ITA$PS_l","Estimate"]
ITA_Ieffekt <- ITA_iPS*mean(ITA$I/ITA$R)
summary(ITA_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$I_dl ~ ITA$PS_l + ITA$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12215 -0.01624 0.00318 0.03276 0.05995
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.28305 0.86070 3.814 0.000413 ***
## ITA$PS_l 0.76795 0.20024 3.835 0.000388 ***
## ITA$Y_l -0.34668 0.09226 -3.758 0.000491 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04254 on 45 degrees of freedom
## Multiple R-squared: 0.2476, Adjusted R-squared: 0.2142
## F-statistic: 7.404 on 2 and 45 DF, p-value: 0.00166
#Price deflator (P)
ITA_deflator <- dynlm(ITA$P_dl~L(ITA$ulc_dl)+ITA$Pm_dl)
ITA_ePULC <- summary(ITA_deflator)$coefficients["L(ITA$ulc_dl)","Estimate"]
summary(ITA_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$P_dl ~ L(ITA$ulc_dl) + ITA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.033833 -0.007440 -0.000325 0.007559 0.034776
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009362 0.002721 3.440 0.00126 **
## L(ITA$ulc_dl) 0.864222 0.043291 19.963 < 0.0000000000000002 ***
## ITA$Pm_dl 0.072499 0.026570 2.729 0.00904 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01332 on 45 degrees of freedom
## Multiple R-squared: 0.9499, Adjusted R-squared: 0.9477
## F-statistic: 426.9 on 2 and 45 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
ITA_exportdeflator <- dynlm(ITA$Px_dl~ITA$ulc_dl+ITA$Pm_dl)
ITA_ePX <- summary(ITA_exportdeflator)$coefficients["ITA$ulc_dl","Estimate"]
summary(ITA_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$Px_dl ~ ITA$ulc_dl + ITA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.053668 -0.010467 -0.000669 0.010284 0.031727
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.00206 0.00321 0.642 0.524
## ITA$ulc_dl 0.43125 0.05107 8.445 0.0000000000784 ***
## ITA$Pm_dl 0.51046 0.03134 16.286 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01572 on 45 degrees of freedom
## Multiple R-squared: 0.9537, Adjusted R-squared: 0.9516
## F-statistic: 463.3 on 2 and 45 DF, p-value: < 0.00000000000000022
#Exports (X)
ITA_exports <- dynlm(ITA$X_dl~L(ITA$dPxdPm)+ITA$Yrw_dl)
ITA_eXP <- summary(ITA_exports)$coefficients["L(ITA$dPxdPm)","Estimate"]
ITA_Xeffekt <- -(ITA_eXP*ITA_ePX*(1/(1-ITA_ePULC))*mean(ITA$Yf/ITA$Y)*(mean(ITA$X/ITA$Y)/mean(ITA$rulc)))
summary(ITA_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$X_dl ~ L(ITA$dPxdPm) + ITA$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.117011 -0.018174 0.004913 0.023422 0.061843
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.02212 0.01087 -2.035 0.0478 *
## L(ITA$dPxdPm) -0.30100 0.14598 -2.062 0.0450 *
## ITA$Yrw_dl 2.24011 0.36224 6.184 0.000000166 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03791 on 45 degrees of freedom
## Multiple R-squared: 0.5435, Adjusted R-squared: 0.5232
## F-statistic: 26.78 on 2 and 45 DF, p-value: 0.00000002179
#Imports (M)
ITA_imports <- dynlm(ITA$M_dl~ITA$dPdPm+L(ITA$Y_dl)+L(ITA$M_l))
ITA_eMP <- summary(ITA_imports)$coefficients["ITA$dPdPm","Estimate"]
ITA_Meffekt <- -(ITA_eMP*ITA_ePULC*(1/(1-ITA_ePULC))*mean(ITA$Yf/ITA$Y)*(mean(ITA$M/ITA$Y)/mean(ITA$rulc)))
summary(ITA_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$M_dl ~ ITA$dPdPm + L(ITA$Y_dl) + L(ITA$M_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.059856 -0.020334 -0.002547 0.023899 0.061153
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.304420 0.055907 -5.445 0.00000219 ***
## ITA$dPdPm 0.198797 0.068006 2.923 0.00545 **
## L(ITA$Y_dl) 3.090634 0.240989 12.825 < 0.0000000000000002 ***
## L(ITA$M_l) 0.052148 0.009732 5.359 0.00000293 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03037 on 44 degrees of freedom
## Multiple R-squared: 0.792, Adjusted R-squared: 0.7779
## F-statistic: 55.86 on 3 and 44 DF, p-value: 0.000000000000004766
names(ITA_consumption$coefficients) <- sub("ITA$","",names(ITA_consumption$coefficients),fixed=TRUE)
names(ITA_investment$coefficients) <- sub("ITA$","",names(ITA_investment$coefficients),fixed=TRUE)
names(ITA_deflator$coefficients) <- sub("ITA$","",names(ITA_deflator$coefficients),fixed=TRUE)
names(ITA_exportdeflator$coefficients) <- sub("ITA$","",names(ITA_exportdeflator$coefficients),fixed=TRUE)
names(ITA_exports$coefficients) <- sub("ITA$","",names(ITA_exports$coefficients),fixed=TRUE)
names(ITA_imports$coefficients) <- sub("ITA$","",names(ITA_imports$coefficients),fixed=TRUE)
ITA_Xeffekt
## [1] 0.3031082
ITA_Meffekt
## [1] -0.3818909
#Nettoeksport (NX)
ITA_NXeffekt <- ITA_Xeffekt - ITA_Meffekt
ITA_NXeffekt
## [1] 0.6849991
#Nettoeffekten
ITA_Neteffekt = ITA_Ceffekt + ITA_Ieffekt + ITA_NXeffekt
ITA_Neteffekt
## [1] 0.7836313
ITA_Lukket <- ITA_Ceffekt + ITA_Ieffekt
ITA_Lukket_Konklusion <- ifelse(ITA_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
ITA_Lukket_Konklusion
## [1] "Profit-led domestic"
ITA_Def <- ifelse(ITA_Neteffekt > 0, "Profit-led", "Wage-led")
ITA_Def
## [1] "Profit-led"
summary(ur.df(y=ITA_consumption$residuals, type="none", lags=13, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0179543 -0.0066971 -0.0005048 0.0056947 0.0240885
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.490863 0.516454 -0.950 0.3532
## z.diff.lag1 -0.328435 0.522827 -0.628 0.5370
## z.diff.lag2 -0.299612 0.534776 -0.560 0.5815
## z.diff.lag3 -0.217558 0.537154 -0.405 0.6898
## z.diff.lag4 -0.341847 0.526161 -0.650 0.5233
## z.diff.lag5 -0.437132 0.519309 -0.842 0.4099
## z.diff.lag6 -0.149775 0.498277 -0.301 0.7668
## z.diff.lag7 0.008794 0.477777 0.018 0.9855
## z.diff.lag8 0.031343 0.431410 0.073 0.9428
## z.diff.lag9 0.034557 0.374908 0.092 0.9275
## z.diff.lag10 -0.022037 0.322951 -0.068 0.9463
## z.diff.lag11 0.292319 0.278333 1.050 0.3061
## z.diff.lag12 0.449474 0.242131 1.856 0.0782 .
## z.diff.lag13 0.135219 0.199952 0.676 0.5066
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01135 on 20 degrees of freedom
## Multiple R-squared: 0.6053, Adjusted R-squared: 0.329
## F-statistic: 2.191 on 14 and 20 DF, p-value: 0.05331
##
##
## Value of test-statistic is: -0.9504
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ITA_investment$residuals, type="none", lags=13, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.089921 -0.020556 0.004169 0.022073 0.047531
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -2.1052 1.0686 -1.970 0.0628 .
## z.diff.lag1 1.1853 1.0234 1.158 0.2604
## z.diff.lag2 0.9291 1.0038 0.926 0.3657
## z.diff.lag3 0.9612 0.9705 0.990 0.3338
## z.diff.lag4 0.9940 0.9351 1.063 0.3005
## z.diff.lag5 0.8324 0.8617 0.966 0.3456
## z.diff.lag6 0.8332 0.8066 1.033 0.3139
## z.diff.lag7 0.4988 0.7159 0.697 0.4940
## z.diff.lag8 0.6223 0.6397 0.973 0.3422
## z.diff.lag9 0.2221 0.5656 0.393 0.6987
## z.diff.lag10 0.4998 0.4829 1.035 0.3131
## z.diff.lag11 0.5613 0.4081 1.376 0.1842
## z.diff.lag12 0.4950 0.3102 1.596 0.1262
## z.diff.lag13 0.3735 0.2487 1.502 0.1488
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04325 on 20 degrees of freedom
## Multiple R-squared: 0.6662, Adjusted R-squared: 0.4326
## F-statistic: 2.852 on 14 and 20 DF, p-value: 0.0161
##
##
## Value of test-statistic is: -1.97
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ITA_exports$residuals, type="none", lags=13, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.078934 -0.014907 -0.000497 0.020975 0.065105
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -2.7396 1.0734 -2.552 0.0190 *
## z.diff.lag1 1.7495 0.9970 1.755 0.0946 .
## z.diff.lag2 1.4982 0.9395 1.595 0.1265
## z.diff.lag3 1.5801 0.8712 1.814 0.0847 .
## z.diff.lag4 1.3572 0.7936 1.710 0.1027
## z.diff.lag5 1.3012 0.7317 1.778 0.0906 .
## z.diff.lag6 1.2689 0.6814 1.862 0.0773 .
## z.diff.lag7 1.1175 0.6380 1.751 0.0952 .
## z.diff.lag8 0.9520 0.5686 1.674 0.1096
## z.diff.lag9 0.6652 0.4950 1.344 0.1941
## z.diff.lag10 0.5125 0.4090 1.253 0.2246
## z.diff.lag11 0.4884 0.3286 1.486 0.1528
## z.diff.lag12 0.3948 0.2523 1.565 0.1334
## z.diff.lag13 0.1838 0.1836 1.002 0.3285
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03598 on 20 degrees of freedom
## Multiple R-squared: 0.6052, Adjusted R-squared: 0.3289
## F-statistic: 2.19 on 14 and 20 DF, p-value: 0.05335
##
##
## Value of test-statistic is: -2.5522
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ITA_imports$residuals, type="none", lags=13, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.037443 -0.017573 -0.004627 0.008343 0.039397
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -4.68959 1.92514 -2.436 0.0243 *
## z.diff.lag1 3.37999 1.83296 1.844 0.0800 .
## z.diff.lag2 2.94164 1.71955 1.711 0.1026
## z.diff.lag3 2.85638 1.57408 1.815 0.0846 .
## z.diff.lag4 2.32589 1.45128 1.603 0.1247
## z.diff.lag5 2.14877 1.29298 1.662 0.1121
## z.diff.lag6 1.71288 1.16670 1.468 0.1576
## z.diff.lag7 1.50031 1.02067 1.470 0.1571
## z.diff.lag8 1.33159 0.87804 1.517 0.1450
## z.diff.lag9 0.90862 0.73468 1.237 0.2305
## z.diff.lag10 0.66597 0.58569 1.137 0.2689
## z.diff.lag11 0.37312 0.48201 0.774 0.4479
## z.diff.lag12 0.24738 0.34209 0.723 0.4780
## z.diff.lag13 0.03785 0.20570 0.184 0.8559
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02574 on 20 degrees of freedom
## Multiple R-squared: 0.8406, Adjusted R-squared: 0.729
## F-statistic: 7.532 on 14 and 20 DF, p-value: 0.00003331
##
##
## Value of test-statistic is: -2.436
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(ITA_consumption)
plot(ITA_investment)
plot(ITA_deflator)
plot(ITA_exportdeflator)
plot(ITA_exports)
plot(ITA_imports)
bptest(ITA_consumption)
##
## studentized Breusch-Pagan test
##
## data: ITA_consumption
## BP = 2.8741, df = 2, p-value = 0.2376
bptest(ITA_investment)
##
## studentized Breusch-Pagan test
##
## data: ITA_investment
## BP = 3.7212, df = 2, p-value = 0.1556
bptest(ITA_deflator)
##
## studentized Breusch-Pagan test
##
## data: ITA_deflator
## BP = 5.6015, df = 2, p-value = 0.06076
bptest(ITA_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: ITA_exportdeflator
## BP = 4.4622, df = 2, p-value = 0.1074
bptest(ITA_exports)
##
## studentized Breusch-Pagan test
##
## data: ITA_exports
## BP = 6.5257, df = 2, p-value = 0.03828
bptest(ITA_imports)
##
## studentized Breusch-Pagan test
##
## data: ITA_imports
## BP = 1.4035, df = 3, p-value = 0.7047
resettest(ITA_consumption)
##
## RESET test
##
## data: ITA_consumption
## RESET = 1.5506, df1 = 2, df2 = 43, p-value = 0.2237
resettest(ITA_investment)
##
## RESET test
##
## data: ITA_investment
## RESET = 0.085969, df1 = 2, df2 = 43, p-value = 0.9178
resettest(ITA_deflator)
##
## RESET test
##
## data: ITA_deflator
## RESET = 2.1346, df1 = 2, df2 = 43, p-value = 0.1307
resettest(ITA_exportdeflator)
##
## RESET test
##
## data: ITA_exportdeflator
## RESET = 1.8274, df1 = 2, df2 = 43, p-value = 0.1731
resettest(ITA_exports)
##
## RESET test
##
## data: ITA_exports
## RESET = 7.1313, df1 = 2, df2 = 43, p-value = 0.002115
resettest(ITA_imports)
##
## RESET test
##
## data: ITA_imports
## RESET = 2.187, df1 = 2, df2 = 42, p-value = 0.1249
ITA_regtab <- matrix(c(ITA_Ceffekt, ITA_Ieffekt, ITA_Lukket, ITA_Xeffekt, ITA_Meffekt, ITA_NXeffekt, ITA_Neteffekt,ITA_Lukket_Konklusion, ITA_Def),ncol=9,byrow=TRUE)
colnames(ITA_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(ITA_regtab) <- c("ITA")
ITA_regtab <- as.table(ITA_regtab)
ITA_regtab
## consumption investment Lukket neteffekt
## ITA -0.307364904852754 0.405997101186717 0.0986321963339636
## exports imports netexports
## ITA 0.303108219521421 -0.38189092697295 0.684999146494371
## neteffect Lukket konklusion Konklusion
## ITA 0.783631342828335 Profit-led domestic Profit-led
ITA_smoke <- matrix(c(mean(ITA$C/ITA$R), mean(ITA$C/ITA$W), mean(ITA$I/ITA$R), ITA_CR, ITA_CW, ITA_iPS, ITA_ePULC, (1/(1-ITA_ePULC)), ITA_eXP, ITA_ePX, ITA_eMP, mean(ITA$Yf/ITA$Y), mean(ITA$X/ITA$Y), mean(ITA$rulc), (mean(ITA$X/ITA$Y)/mean(ITA$rulc))),ncol=15,byrow=TRUE)
colnames(ITA_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(ITA_smoke) <- c("ITA")
ITA_smoke <- as.table(ITA_smoke)
ITA_smoke
## C/R C/W I/R CR CW iPS
## ITA 1.7474412 1.0298775 0.5286747 0.1914205 0.6232401 0.7679526
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## ITA 0.8642218 7.3649544 -0.3009952 0.4312491 0.1987966 0.9234565
## X/Y RULC (X/Y)/rulc
## ITA 0.2003142 0.5834293 0.3433392
summary(ITA_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$C_dl ~ ITA$R_dl + ITA$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.021441 -0.006667 -0.000948 0.006760 0.034950
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.007513 0.001942 3.869 0.00035 ***
## R_dl 0.191420 0.044181 4.333 0.0000816058 ***
## W_dl 0.623240 0.091543 6.808 0.0000000196 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01176 on 45 degrees of freedom
## Multiple R-squared: 0.6899, Adjusted R-squared: 0.6761
## F-statistic: 50.05 on 2 and 45 DF, p-value: 0.00000000000363
summary(ITA_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$I_dl ~ ITA$PS_l + ITA$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12215 -0.01624 0.00318 0.03276 0.05995
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 3.28305 0.86070 3.814 0.000413 ***
## PS_l 0.76795 0.20024 3.835 0.000388 ***
## Y_l -0.34668 0.09226 -3.758 0.000491 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04254 on 45 degrees of freedom
## Multiple R-squared: 0.2476, Adjusted R-squared: 0.2142
## F-statistic: 7.404 on 2 and 45 DF, p-value: 0.00166
summary(ITA_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$P_dl ~ L(ITA$ulc_dl) + ITA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.033833 -0.007440 -0.000325 0.007559 0.034776
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009362 0.002721 3.440 0.00126 **
## L(ulc_dl) 0.864222 0.043291 19.963 < 0.0000000000000002 ***
## Pm_dl 0.072499 0.026570 2.729 0.00904 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01332 on 45 degrees of freedom
## Multiple R-squared: 0.9499, Adjusted R-squared: 0.9477
## F-statistic: 426.9 on 2 and 45 DF, p-value: < 0.00000000000000022
summary(ITA_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$Px_dl ~ ITA$ulc_dl + ITA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.053668 -0.010467 -0.000669 0.010284 0.031727
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.00206 0.00321 0.642 0.524
## ulc_dl 0.43125 0.05107 8.445 0.0000000000784 ***
## Pm_dl 0.51046 0.03134 16.286 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01572 on 45 degrees of freedom
## Multiple R-squared: 0.9537, Adjusted R-squared: 0.9516
## F-statistic: 463.3 on 2 and 45 DF, p-value: < 0.00000000000000022
summary(ITA_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$X_dl ~ L(ITA$dPxdPm) + ITA$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.117011 -0.018174 0.004913 0.023422 0.061843
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.02212 0.01087 -2.035 0.0478 *
## L(dPxdPm) -0.30100 0.14598 -2.062 0.0450 *
## Yrw_dl 2.24011 0.36224 6.184 0.000000166 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03791 on 45 degrees of freedom
## Multiple R-squared: 0.5435, Adjusted R-squared: 0.5232
## F-statistic: 26.78 on 2 and 45 DF, p-value: 0.00000002179
summary(ITA_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = ITA$M_dl ~ ITA$dPdPm + L(ITA$Y_dl) + L(ITA$M_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.059856 -0.020334 -0.002547 0.023899 0.061153
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.304420 0.055907 -5.445 0.00000219 ***
## dPdPm 0.198797 0.068006 2.923 0.00545 **
## L(Y_dl) 3.090634 0.240989 12.825 < 0.0000000000000002 ***
## L(M_l) 0.052148 0.009732 5.359 0.00000293 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03037 on 44 degrees of freedom
## Multiple R-squared: 0.792, Adjusted R-squared: 0.7779
## F-statistic: 55.86 on 3 and 44 DF, p-value: 0.000000000000004766
LUX_df[!complete.cases(LUX_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.4988019 -0.6955462 NA 0.5011981 -0.6907539 NA
## 1961 0.5194321 -0.6550191 0.040527040 0.4805679 -0.7327868 -0.042032871
## 1962 0.5152872 -0.6630309 -0.008011806 0.4847128 -0.7241987 0.008588151
## 1963 0.5183046 -0.6571922 0.005838757 0.4816954 -0.7304433 -0.006244663
## 1964 0.5196929 -0.6545172 0.002675014 0.4803071 -0.7333296 -0.002886331
## 1965 0.5234124 -0.6473856 0.007131580 0.4765876 -0.7411037 -0.007774101
## 1966 0.5241397 -0.6459971 0.001388464 0.4758603 -0.7426309 -0.001527105
## 1967 0.5300307 -0.6348203 0.011176777 0.4699693 -0.7550879 -0.012457060
## 1968 0.5105651 -0.6722371 -0.037416735 0.4894349 -0.7145039 0.040584042
## 1969 0.4731526 -0.7483373 -0.076100208 0.5268474 -0.6408444 0.073659504
## 1970 0.4775057 -0.7391792 0.009158053 0.5224943 -0.6491412 -0.008296790
## 1971 0.5273993 -0.6397974 0.099381807 0.4726007 -0.7495043 -0.100363171
## 1972 0.5307783 -0.6334109 0.006386508 0.4692217 -0.7566798 -0.007175519
## 1973 0.4945980 -0.7040100 -0.070599115 0.5054020 -0.6824011 0.074278785
## 1974 0.5058978 -0.6814207 0.022589376 0.4941022 -0.7050129 -0.022611787
## 1975 0.6310958 -0.4602976 0.221123087 0.3689042 -0.9972184 -0.292205502
## 1976 0.6030175 -0.5058090 -0.045511461 0.3969825 -0.9238631 0.073355224
## 1977 0.6438736 -0.4402529 0.065556117 0.3561264 -1.0324694 -0.108606306
## 1978 0.6242391 -0.4712218 -0.030968849 0.3757609 -0.9788023 0.053667110
## 1979 0.6136454 -0.4883380 -0.017116240 0.3863546 -0.9509997 0.027802582
## 1980 0.6273909 -0.4661854 0.022152581 0.3726091 -0.9872255 -0.036225768
## 1981 0.6342630 -0.4552916 0.010893780 0.3657370 -1.0058407 -0.018615174
## 1982 0.6084826 -0.4967870 -0.041495352 0.3915174 -0.9377253 0.068115413
## 1983 0.6008704 -0.5093761 -0.012589078 0.3991296 -0.9184690 0.019256264
## 1984 0.5882311 -0.5306354 -0.021259310 0.4117689 -0.8872930 0.031175998
## 1985 0.5871353 -0.5325001 -0.001864684 0.4128647 -0.8846352 0.002657771
## 1986 0.5724650 -0.5578038 -0.025303696 0.4275350 -0.8497190 0.034916223
## 1987 0.5879928 -0.5310406 0.026763168 0.4120072 -0.8867144 -0.036995415
## 1988 0.5629703 -0.5745284 -0.043487812 0.4370297 -0.8277541 0.058960307
## 1989 0.5551639 -0.5884920 -0.013963566 0.4448361 -0.8100493 0.017704840
## 1990 0.5619834 -0.5762830 0.012208954 0.4380166 -0.8254984 -0.015449123
## 2019 0.5878552 -0.5312747 -0.006239207 0.4121448 -0.8863804 0.008967082
## 2020 0.6308182 -0.4607376 0.070537060 0.3691818 -0.9964660 -0.110085541
## 2021 0.6158321 -0.4847809 -0.024043231 0.3841679 -0.9566757 0.039790303
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 7.21826 1.976614 NA 8972954298201 29.82524 NA
## 1961 7.49464 2.014188 0.037574172 9392160094555 29.87090 0.0456603337
## 1962 7.59653 2.027692 0.013503466 9947583962117 29.92835 0.0574543950
## 1963 7.85778 2.061504 0.033812560 10487864329066 29.98124 0.0528891067
## 1964 8.47593 2.137230 0.075726258 11171673228138 30.04440 0.0631625879
## 1965 8.63931 2.156323 0.019092337 11783269241258 30.09770 0.0532992660
## 1966 8.73482 2.167317 0.010994618 12495764387391 30.15641 0.0587090734
## 1967 8.75369 2.169475 0.002157989 13074789943977 30.20171 0.0452962065
## 1968 9.12003 2.210473 0.040997768 13891600097408 30.26231 0.0605984036
## 1969 10.02955 2.305536 0.095062642 14691611542523 30.31830 0.0559923396
## 1970 10.20043 2.322430 0.016894141 15070345758894 30.34375 0.0254522684
## 1971 10.47250 2.348753 0.026322898 15662417741194 30.38229 0.0385351124
## 1972 11.16349 2.412649 0.063895858 16533554718573 30.43641 0.0541278670
## 1973 12.09148 2.492501 0.079852440 17577842133568 30.49766 0.0612472040
## 1974 12.60083 2.533763 0.041261612 17801533619427 30.51031 0.0126454728
## 1975 11.77278 2.465790 -0.067972598 17775055167792 30.50882 -0.0014885326
## 1976 12.07114 2.490817 0.025027393 18655634848762 30.55717 0.0483521578
## 1977 12.26063 2.506393 0.015575836 19380216731798 30.59527 0.0381045526
## 1978 12.76025 2.546335 0.039941554 20172296744202 30.63533 0.0400574251
## 1979 13.05955 2.569520 0.023184797 21008446068707 30.67595 0.0406143358
## 1980 13.16937 2.577894 0.008374012 21323770969290 30.69084 0.0148979078
## 1981 13.09681 2.572369 -0.005524990 21751944285472 30.71072 0.0198806876
## 1982 13.24498 2.583619 0.011249924 21741376022936 30.71024 -0.0004859718
## 1983 13.64088 2.613071 0.029452554 22335831642345 30.73721 0.0269750148
## 1984 14.48483 2.673102 0.060030728 23355455128792 30.78185 0.0446383921
## 1985 14.90754 2.701867 0.028765230 24193825157117 30.81712 0.0352668606
## 1986 16.39589 2.797031 0.095163568 24981759303111 30.84917 0.0320484889
## 1987 17.04378 2.835785 0.038754634 25865374329707 30.88393 0.0347592451
## 1988 18.48625 2.917027 0.081241885 27112774969139 30.93103 0.0470998421
## 1989 20.29760 3.010503 0.093475440 28169617618380 30.96927 0.0382389898
## 1990 21.37642 3.062288 0.051785793 29063270330458 31.00050 0.0312311813
## 2019 58.46538 4.068435 0.022710076 NA NA NA
## 2020 55.31731 4.013086 -0.055348905 NA NA NA
## 2021 58.49279 4.068903 0.055817619 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 0.057275 7.160985 1.968648 NA 2.79500 1.027832
## 1961 0.058923 7.435717 2.006295 0.037647470 2.93356 1.076217
## 1962 0.059508 7.537022 2.019827 0.013532133 3.06347 1.119548
## 1963 0.061721 7.796059 2.053618 0.033791206 3.20391 1.164372
## 1964 0.069549 8.406381 2.128991 0.075372711 3.49843 1.252314
## 1965 0.079287 8.560023 2.147103 0.018111817 3.63876 1.291643
## 1966 0.082583 8.652237 2.157818 0.010715023 3.69796 1.307781
## 1967 0.084839 8.668851 2.159736 0.001918356 3.69696 1.307511
## 1968 0.089631 9.030399 2.200597 0.040860296 3.85591 1.349607
## 1969 0.097330 9.932220 2.295784 0.095187466 4.05688 1.400414
## 1970 0.117369 10.083061 2.310857 0.015072869 4.30551 1.459896
## 1971 0.132484 10.340016 2.336021 0.025164529 4.54745 1.514567
## 1972 0.160504 11.002986 2.398167 0.062145274 4.76773 1.561870
## 1973 0.193750 11.897730 2.476348 0.078180935 5.04215 1.617833
## 1974 0.217041 12.383789 2.516388 0.040040653 5.26903 1.661846
## 1975 0.246513 11.526267 2.444629 -0.071759761 5.54692 1.713243
## 1976 0.277591 11.793549 2.467553 0.022924169 5.72107 1.744156
## 1977 0.298952 11.961678 2.481708 0.014155353 5.85183 1.766754
## 1978 0.340222 12.420028 2.519310 0.037602291 6.02444 1.795825
## 1979 0.354513 12.705037 2.541999 0.022688198 6.23721 1.830533
## 1980 0.412569 12.756801 2.546065 0.004066012 6.41262 1.858268
## 1981 0.445489 12.651321 2.537762 -0.008302905 6.52415 1.875511
## 1982 0.523041 12.721939 2.543328 0.005566347 6.54986 1.879444
## 1983 0.653465 12.987415 2.563981 0.020652828 6.58210 1.884354
## 1984 0.707812 13.777018 2.623002 0.059021030 6.67726 1.898708
## 1985 0.762441 14.145099 2.649368 0.026366362 6.85476 1.924943
## 1986 0.819339 15.576551 2.745767 0.096398439 7.07802 1.956994
## 1987 0.858073 16.185707 2.784129 0.038361926 7.40145 2.001676
## 1988 0.940358 17.545892 2.864820 0.080691280 7.84276 2.059591
## 1989 1.082249 19.215351 2.955709 0.090889642 8.22017 2.106591
## 1990 1.177881 20.198539 3.005610 0.049900784 8.52617 2.143140
## 2019 7.514090 50.951290 3.930870 0.020213606 17.61225 2.868595
## 2020 6.852169 48.465141 3.880845 -0.050025281 16.88310 2.826313
## 2021 7.731728 50.761062 3.927130 0.046284767 17.65297 2.870904
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA 3.571913 1.273101 NA 3.589072 1.277894
## 1961 0.0483845960 3.862350 1.351276 0.078174510 3.573367 1.273508
## 1962 0.0433315579 3.883731 1.356796 0.005520327 3.653291 1.295628
## 1963 0.0448236785 4.040733 1.396426 0.039629963 3.755326 1.323175
## 1964 0.0879423575 4.368737 1.474474 0.078047724 4.037644 1.395661
## 1965 0.0393286678 4.480422 1.499717 0.025243397 4.079601 1.405999
## 1966 0.0161383520 4.534980 1.511821 0.012103487 4.117257 1.415187
## 1967 -0.0002704559 4.594757 1.524916 0.013095133 4.074094 1.404648
## 1968 0.0420961759 4.610607 1.528359 0.003443562 4.419792 1.486093
## 1969 0.0508071691 4.699456 1.547447 0.019087257 5.232764 1.654940
## 1970 0.0594813925 4.814719 1.571678 0.024230922 5.268342 1.661716
## 1971 0.0546710385 5.453317 1.696224 0.124546336 4.886699 1.586517
## 1972 0.0473036643 5.840146 1.764756 0.068531782 5.162840 1.641487
## 1973 0.0559622778 5.884593 1.772338 0.007581820 6.013137 1.793947
## 1974 0.0440137065 6.264931 1.834968 0.062630029 6.118858 1.811375
## 1975 0.0513965339 7.274179 1.984331 0.149363326 4.252088 1.447410
## 1976 0.0309130321 7.111717 1.961744 -0.022587291 4.681832 1.543690
## 1977 0.0225985820 7.701808 2.041455 0.079711470 4.259870 1.449239
## 1978 0.0290700962 7.753067 2.048089 0.006633442 4.666961 1.540508
## 1979 0.0347084380 7.796388 2.053661 0.005571958 4.908649 1.590999
## 1980 0.0277349568 8.003501 2.079879 0.026218593 4.753300 1.558839
## 1981 0.0172427528 8.024264 2.082470 0.002590875 4.627057 1.531921
## 1982 0.0039329988 7.741078 2.046541 -0.035929005 4.980861 1.605603
## 1983 0.0049101680 7.803753 2.054605 0.008063750 5.183662 1.645512
## 1984 0.0143538804 8.104070 2.092366 0.037761720 5.672948 1.735709
## 1985 0.0262355777 8.305086 2.116868 0.024501678 5.840013 1.764733
## 1986 0.0320509061 8.917030 2.187963 0.071094742 6.659521 1.896048
## 1987 0.0446817194 9.517079 2.253088 0.065125095 6.668628 1.897414
## 1988 0.0579148863 9.877816 2.290291 0.037203467 7.668076 2.037066
## 1989 0.0470000769 10.667668 2.367218 0.076926077 8.547683 2.145660
## 1990 0.0365493670 11.351243 2.429327 0.062109738 8.847296 2.180112
## 2019 0.0276746410 29.951979 3.399595 0.013974399 20.999311 3.044490
## 2020 -0.0422815611 30.572691 3.420107 0.020511779 17.892450 2.884379
## 2021 0.0445909196 31.260293 3.442349 0.022241536 19.500769 2.970454
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA 1.44432 0.3676386 NA 0.16996 -1.77219216
## 1961 -0.004385401 1.57499 0.4542489 0.0866103005 0.19703 -1.62439928
## 1962 0.022120284 1.69740 0.5290977 0.0748487455 0.22206 -1.50480766
## 1963 0.027546543 1.93805 0.6616823 0.1325846444 0.27485 -1.29152978
## 1964 0.072486379 2.36656 0.8614374 0.1997551110 0.35189 -1.04443665
## 1965 0.010337716 2.03780 0.7118708 -0.1495666294 0.30596 -1.18430090
## 1966 0.009187918 1.93398 0.6595801 -0.0522907388 0.30533 -1.18636212
## 1967 -0.010538704 1.78054 0.5769167 -0.0826633666 0.27662 -1.28511056
## 1968 0.081444339 1.70635 0.5343566 -0.0425601028 0.27902 -1.27647182
## 1969 0.168846969 1.88555 0.6342196 0.0998629692 0.32561 -1.12205493
## 1970 0.006776079 2.02676 0.7064385 0.0722189034 0.39552 -0.92755392
## 1971 -0.075198642 2.24267 0.8076671 0.1012286614 0.49501 -0.70317731
## 1972 0.054969755 2.40006 0.8754937 0.0678266167 0.54689 -0.60350759
## 1973 0.152459720 2.68394 0.9872859 0.1117921271 0.65255 -0.42686751
## 1974 0.017428866 2.49675 0.9149899 -0.0722959780 0.71611 -0.33392149
## 1975 -0.363965262 2.31122 0.8377755 -0.0772143625 0.74921 -0.28873596
## 1976 0.096279393 2.21362 0.7946292 -0.0431463391 0.77400 -0.25618341
## 1977 -0.094450954 2.21187 0.7938383 -0.0007908729 0.80044 -0.22259370
## 1978 0.091269401 2.23534 0.8043933 0.0105550302 0.84042 -0.17385351
## 1979 0.050490780 2.31961 0.8413991 0.0370057263 0.92724 -0.07554285
## 1980 -0.032159756 2.61421 0.9609619 0.1195628805 1.12212 0.11521975
## 1981 -0.026918078 2.42040 0.8839328 -0.0770291329 1.12165 0.11480082
## 1982 0.073681760 2.40898 0.8792034 -0.0047293944 1.23538 0.21137862
## 1983 0.039909092 2.12558 0.7540447 -0.1251587151 1.15513 0.14421289
## 1984 0.090197028 2.12818 0.7552672 0.0012224481 1.20884 0.18966122
## 1985 0.029024133 1.92565 0.6552636 -0.1000035813 1.12928 0.12158026
## 1986 0.131314662 2.64082 0.9710895 0.3158259019 1.57543 0.45452825
## 1987 0.001366512 3.10950 1.1344619 0.1633724666 1.88980 0.63647100
## 1988 0.139651587 3.46607 1.2430214 0.1085594457 2.11406 0.74861027
## 1989 0.108594483 3.70522 1.3097426 0.0667212489 2.35997 0.85864891
## 1990 0.034451661 3.83025 1.3429301 0.0331874390 2.58238 0.94871145
## 2019 0.029180688 10.24223 2.3265194 0.0387373025 10.72144 2.37224547
## 2020 -0.160110822 9.01537 2.1989309 -0.1275884708 9.49145 2.25039139
## 2021 0.086075070 9.78152 2.2804949 0.0815639927 10.46026 2.34758331
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA NA NA NA NA NA
## 1961 0.1477928862 NA NA NA NA NA
## 1962 0.1195916142 NA NA NA NA NA
## 1963 0.2132778787 NA NA NA NA NA
## 1964 0.2470931325 NA NA NA NA NA
## 1965 -0.1398642523 NA NA NA NA NA
## 1966 -0.0020612155 NA NA NA NA NA
## 1967 -0.0987484357 NA NA NA NA NA
## 1968 0.0086387406 NA NA NA NA NA
## 1969 0.1544168823 NA NA NA NA NA
## 1970 0.1945010086 NA NA NA NA NA
## 1971 0.2243766096 NA NA NA NA NA
## 1972 0.0996697209 NA NA NA NA NA
## 1973 0.1766400793 NA NA NA NA NA
## 1974 0.0929460218 NA NA NA NA NA
## 1975 0.0451855316 NA NA NA NA NA
## 1976 0.0325525555 NA NA NA NA NA
## 1977 0.0335897029 NA NA NA NA NA
## 1978 0.0487401904 NA NA NA NA NA
## 1979 0.0983106649 NA NA NA NA NA
## 1980 0.1907626005 NA NA NA NA NA
## 1981 -0.0004189378 NA NA NA NA NA
## 1982 0.0965777996 NA NA NA NA NA
## 1983 -0.0671657233 NA NA NA NA NA
## 1984 0.0454483303 NA NA NA NA NA
## 1985 -0.0680809606 NA NA NA NA NA
## 1986 0.3329479894 NA NA NA NA NA
## 1987 0.1819427525 NA NA NA NA NA
## 1988 0.1121392659 NA NA NA NA NA
## 1989 0.1100386378 NA NA NA NA NA
## 1990 0.0900625472 2.180624 0.7796111 NA 0.8444241 -0.1691004
## 2019 0.0600675408 7.989190 2.0780894 0.03515882 0.7451602 -0.2941561
## 2020 -0.1218540816 6.420173 1.8594451 -0.21864431 0.6764165 -0.3909463
## 2021 0.0971919216 7.422996 2.0045827 0.14513768 0.7096378 -0.3430006
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA -4.8236559 1.499057
## 1974 NA NA NA NA -8.3011186 0.000000
## 1975 NA NA NA NA 7.6507378 2.830377
## 1976 NA NA NA NA -4.4429477 1.580662
## 1977 NA NA NA NA 5.7998091 2.714756
## 1978 NA NA NA NA 1.4268196 2.372851
## 1979 NA NA NA NA 0.4001473 2.272256
## 1980 NA NA NA NA -0.4460273 2.180993
## 1981 NA NA NA NA 1.3976147 2.370125
## 1982 NA NA NA NA -0.4163658 2.184337
## 1983 NA NA NA NA 2.8284421 2.495646
## 1984 NA NA NA NA 5.6054546 2.701802
## 1985 NA NA NA NA 6.3422351 2.750046
## 1986 NA NA NA NA 8.6910075 2.889934
## 1987 NA NA NA NA 7.9025780 2.845124
## 1988 NA NA NA NA 4.2847181 2.609028
## 1989 NA NA NA NA 3.5371176 2.552428
## 1990 NA 3.234356 1.173830 NA 5.8543825 2.718364
## 2019 -0.02490872 7.632102 2.032363 0.01382859 -3.3968661 1.775673
## 2020 -0.09679023 6.098145 1.807985 -0.22437870 NA NA
## 2021 0.04794576 6.941336 1.937494 0.12950976 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 12.28964 2.508757 NA 13.15834 2.577056
## 1961 NA 11.84097 2.471565 -0.0371913779 13.34761 2.591337
## 1962 NA 12.30168 2.509736 0.0381706911 13.45134 2.599079
## 1963 NA 12.68838 2.540687 0.0309508694 13.61538 2.611200
## 1964 NA 13.42839 2.597371 0.0566846956 13.90198 2.632031
## 1965 NA 13.80415 2.624969 0.0275979887 14.14332 2.649242
## 1966 NA 14.34685 2.663530 0.0385610801 14.33796 2.662910
## 1967 NA 14.40830 2.667804 0.0042738010 14.23970 2.656034
## 1968 NA 15.13064 2.716722 0.0489175823 14.24436 2.656361
## 1969 NA 15.93197 2.768328 0.0516059276 14.68678 2.686948
## 1970 NA 18.33610 2.908872 0.1405441068 15.68196 2.752511
## 1971 NA 18.18681 2.900697 -0.0081752367 16.48198 2.802268
## 1972 NA 19.23961 2.956971 0.0562745336 16.46468 2.801217
## 1973 NA 21.58728 3.072104 0.1151328652 17.94875 2.887521
## 1974 -1.49905652 25.25295 3.228943 0.1568388409 21.97326 3.089826
## 1975 2.83037735 25.03696 3.220353 -0.0085897961 24.20974 3.186755
## 1976 -1.24971534 28.09540 3.335606 0.1152525841 25.70919 3.246849
## 1977 1.13409417 28.42473 3.347260 0.0116538814 26.67858 3.283861
## 1978 -0.34190479 29.88292 3.397287 0.0500273492 27.15054 3.301397
## 1979 -0.10059500 31.78180 3.458894 0.0616069669 29.29071 3.377270
## 1980 -0.09126380 34.29935 3.535127 0.0762326174 31.52237 3.450697
## 1981 0.18913277 36.76274 3.604485 0.0693582169 34.70687 3.546938
## 1982 -0.18578871 40.73730 3.707144 0.1026592970 39.49562 3.676190
## 1983 0.31130887 43.51505 3.773107 0.0659627730 42.63360 3.752643
## 1984 0.20615676 45.43297 3.816238 0.0431311887 45.79770 3.824234
## 1985 0.04824387 46.78634 3.845591 0.0293533441 47.21640 3.854741
## 1986 0.13988808 46.74717 3.844754 -0.0008376549 46.41687 3.837663
## 1987 -0.04480994 46.77638 3.845378 0.0006246470 45.85479 3.825480
## 1988 -0.23609645 48.07504 3.872763 0.0273848311 46.24080 3.833863
## 1989 -0.05659991 50.00798 3.912183 0.0394194117 48.01768 3.871569
## 1990 0.16593565 51.26728 3.937053 0.0248700890 48.76607 3.887035
## 2019 -0.22541557 108.63923 4.688033 0.0333582821 109.48869 4.695821
## 2020 NA 109.04099 4.691724 0.0036912280 107.49573 4.677451
## 2021 NA 112.04957 4.718941 0.0272175677 111.65578 4.715421
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 14.41922 2.668562 NA 5.2755 1.663073
## 1961 0.014281353 13.98547 2.638019 -0.0305432527 5.4593 1.697321
## 1962 0.007741677 13.75153 2.621150 -0.0168685821 5.3722 1.681238
## 1963 0.012120886 13.74475 2.620657 -0.0004934485 5.5750 1.718292
## 1964 0.020831467 14.04840 2.642508 0.0218514724 6.3145 1.842849
## 1965 0.017210798 14.25012 2.656765 0.0142568833 6.6818 1.899387
## 1966 0.013668394 14.36394 2.664721 0.0079553845 6.6688 1.897440
## 1967 -0.006876826 14.41448 2.668234 0.0035129970 6.7983 1.916673
## 1968 0.000327327 14.60501 2.681365 0.0131311266 7.5283 2.018669
## 1969 0.030586991 15.56022 2.744717 0.0633527037 8.5648 2.147661
## 1970 0.065562766 17.61548 2.868778 0.1240606306 9.3381 2.234103
## 1971 0.049757203 17.12603 2.840599 -0.0281787550 9.6997 2.272095
## 1972 -0.001050723 17.24883 2.847745 0.0071453044 10.2119 2.323554
## 1973 0.086303322 19.83796 2.987598 0.1398529276 11.6303 2.453614
## 1974 0.202305727 25.08943 3.222447 0.2348492006 12.8802 2.555691
## 1975 0.096928841 24.82946 3.212031 -0.0104157615 10.8623 2.385298
## 1976 0.060093569 26.96982 3.294718 0.0826874213 10.9650 2.394708
## 1977 0.037012467 26.20661 3.266012 -0.0287068460 11.4294 2.436189
## 1978 0.017535727 26.91620 3.292729 0.0267169675 11.7435 2.463300
## 1979 0.075873603 28.99550 3.367140 0.0744119770 12.8784 2.555551
## 1980 0.073427008 31.17264 3.439541 0.0724004001 12.6920 2.540972
## 1981 0.096240030 34.17225 3.531414 0.0918729785 12.0798 2.491535
## 1982 0.129252138 39.46049 3.675300 0.1438861813 12.0419 2.488392
## 1983 0.076453087 41.80174 3.732938 0.0576380142 12.6789 2.539939
## 1984 0.071591083 43.98817 3.783921 0.0509825801 14.9648 2.705701
## 1985 0.030507405 45.72556 3.822658 0.0387368860 16.3913 2.796751
## 1986 -0.017078195 44.65323 3.798927 -0.0237308145 16.8799 2.826124
## 1987 -0.012183380 43.70270 3.777410 -0.0215169143 17.4403 2.858784
## 1988 0.008382948 44.56519 3.796953 0.0195433056 19.3715 2.963803
## 1989 0.037706601 46.47566 3.838929 0.0419756292 21.8101 3.082373
## 1990 0.015465570 46.54239 3.840363 0.0014347089 23.0287 3.136741
## 2019 0.031021989 109.95006 4.700026 0.0343889001 120.5930 4.792421
## 2020 -0.018370168 107.89456 4.681154 -0.0188718427 106.7096 4.670111
## 2021 0.037969596 112.16483 4.719969 0.0388150522 115.7186 4.751161
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA 4.5061 1.505432 NA 0.4948441 -0.7035126
## 1961 0.034247115 4.8366 1.576212 0.070779960 0.5153483 -0.6629122
## 1962 -0.016083068 4.9901 1.607456 0.031243955 0.5112506 -0.6708954
## 1963 0.037054809 5.1458 1.638181 0.030724898 0.5142334 -0.6650780
## 1964 0.124556259 5.8457 1.765706 0.127525500 0.5154286 -0.6627565
## 1965 0.056538836 6.1062 1.809305 0.043598300 0.5186088 -0.6566054
## 1966 -0.001947479 5.9520 1.783727 -0.025577351 0.5191842 -0.6554966
## 1967 0.019232647 5.6672 1.734695 -0.049032129 0.5248938 -0.6445594
## 1968 0.101996672 6.1855 1.822208 0.087512675 0.5055473 -0.6821136
## 1969 0.128991528 6.8772 1.928212 0.106003749 0.4685610 -0.7580890
## 1970 0.086442025 8.1834 2.102108 0.173896120 0.4720114 -0.7507522
## 1971 0.037992152 8.8361 2.178846 0.076737891 0.5207273 -0.6525288
## 1972 0.051458750 9.0708 2.205060 0.026214860 0.5231470 -0.6478929
## 1973 0.130060055 10.0919 2.311733 0.106672659 0.4866727 -0.7201635
## 1974 0.102077487 10.6827 2.368626 0.056892489 0.4971840 -0.6987951
## 1975 -0.170393170 9.7200 2.274186 -0.094439992 0.6178812 -0.4814591
## 1976 0.009410303 9.8320 2.285642 0.011456754 0.5891504 -0.5290738
## 1977 0.041480601 9.7930 2.281668 -0.003974528 0.6281739 -0.4649382
## 1978 0.027110913 10.4772 2.349201 0.067533623 0.6075953 -0.4982463
## 1979 0.092251593 11.1487 2.411323 0.062121432 0.5969875 -0.5158591
## 1980 -0.014579616 11.5822 2.449469 0.038146538 0.6077361 -0.4980146
## 1981 -0.049437238 11.2504 2.420404 -0.029065753 0.6126885 -0.4898987
## 1982 -0.003142401 11.2176 2.417484 -0.002919710 0.5844538 -0.5370776
## 1983 0.051546960 11.3577 2.429896 0.012411955 0.5720857 -0.5584664
## 1984 0.165761582 12.9374 2.560122 0.130226414 0.5594867 -0.5807354
## 1985 0.091049930 13.8371 2.627353 0.067231049 0.5571064 -0.5849990
## 1986 0.029372859 14.0743 2.644350 0.016997049 0.5438576 -0.6090678
## 1987 0.032660055 15.1026 2.714867 0.070516475 0.5583902 -0.5826974
## 1988 0.105019294 16.6810 2.814270 0.099403433 0.5343331 -0.6267358
## 1989 0.118570251 18.2070 2.901806 0.087535788 0.5255630 -0.6432851
## 1990 0.054368099 19.1172 2.950588 0.048782318 0.5310170 -0.6329612
## 2019 0.008325256 100.2234 4.607402 0.009080912 0.5123028 -0.6688394
## 2020 -0.122310113 88.1487 4.479025 -0.128376533 0.5526786 -0.5929787
## 2021 0.081050256 95.9466 4.563792 0.084766626 0.5344299 -0.6265548
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA 6.081455 1.805244 NA 54.05614 3.990023
## 1961 0.040600338 6.102222 1.808653 0.003408960 55.17894 4.010581
## 1962 -0.007983139 6.289242 1.838841 0.030187552 55.05475 4.008328
## 1963 0.005817403 6.524790 1.875609 0.036768273 55.97574 4.024918
## 1964 0.002321467 6.921378 1.934615 0.059006162 58.45187 4.068204
## 1965 0.006151060 7.158955 1.968364 0.033749049 58.47789 4.068649
## 1966 0.001108869 7.448658 2.008034 0.039669949 58.25234 4.064784
## 1967 0.010937143 7.562826 2.023245 0.015210944 58.31741 4.065901
## 1968 -0.037554206 7.649255 2.034608 0.011363376 60.67937 4.105604
## 1969 -0.075975385 7.465100 2.010239 -0.024369457 65.99976 4.189651
## 1970 0.007336781 8.654849 2.158120 0.147880888 65.96162 4.189073
## 1971 0.098223439 9.470369 2.248168 0.090048202 65.85083 4.187392
## 1972 0.004635924 10.065144 2.309078 0.060910457 68.28263 4.223655
## 1973 -0.072270620 10.505938 2.351941 0.042862245 72.28117 4.280564
## 1974 0.021368417 12.555362 2.530148 0.178207258 73.34699 4.295201
## 1975 0.217335924 15.469866 2.738894 0.208746128 67.29560 4.209095
## 1976 -0.047614684 16.552413 2.806532 0.067637900 68.22709 4.222842
## 1977 0.064135634 17.855675 2.882321 0.075789515 68.45382 4.226159
## 1978 -0.033308112 18.156718 2.899041 0.016719237 70.59375 4.256942
## 1979 -0.017612839 18.973339 2.943035 0.043994128 71.22158 4.265796
## 1980 0.017844581 20.844955 3.037112 0.094077199 70.49352 4.255521
## 1981 0.008115865 22.524104 3.114586 0.077474082 69.13414 4.236049
## 1982 -0.047178929 23.809066 3.170066 0.055480368 69.14181 4.236160
## 1983 -0.021388804 24.894338 3.214640 0.044573969 70.77395 4.259491
## 1984 -0.022269008 25.419143 3.235503 0.020862181 74.45336 4.310173
## 1985 -0.004263552 26.064972 3.260592 0.025089792 75.99758 4.330702
## 1986 -0.024068826 25.423803 3.235686 -0.024906481 81.63899 4.402307
## 1987 0.026370460 26.119469 3.262681 0.026995107 82.39635 4.411541
## 1988 -0.044038417 25.688088 3.246027 -0.016653586 86.44927 4.459558
## 1989 -0.016549363 26.282346 3.268897 0.022870048 91.57275 4.517134
## 1990 0.010323946 27.223797 3.304091 0.035194035 92.68109 4.529164
## 2019 -0.008735677 55.656185 4.019193 0.024622605 99.25194 4.597661
## 2020 0.075860684 60.264615 4.098745 0.079551912 92.91825 4.531720
## 2021 -0.033576083 59.882637 4.092387 -0.006358516 95.89754 4.563280
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA 1.355119
## 1961 0.0205582150 -0.0448246056 -0.051472731 1.373768
## 1962 -0.0022531541 -0.0246102594 0.030429014 1.364083
## 1963 0.0165902279 -0.0126143342 0.018829984 1.364355
## 1964 0.0432851655 0.0010200051 0.035853228 1.434674
## 1965 0.0004451442 -0.0029539147 0.010387191 1.480211
## 1966 -0.0038645617 -0.0057130090 0.024892687 1.444884
## 1967 0.0011165608 0.0103898232 0.011150627 1.424028
## 1968 0.0397029905 0.0128037996 0.048590255 1.503701
## 1969 0.0840473620 0.0327657127 0.021018937 1.539650
## 1970 -0.0005780980 0.0584978650 0.074981341 1.717722
## 1971 -0.0016809782 -0.0779359577 -0.057932439 1.769950
## 1972 0.0362634238 0.0081960271 0.057325256 1.727300
## 1973 0.0569082343 0.0535496054 0.028829543 1.796488
## 1974 0.0146377395 0.0325434735 -0.045466886 1.869948
## 1975 -0.0861066339 -0.1073446028 -0.105518637 1.748296
## 1976 0.0137468849 0.0225938524 0.055159015 1.722870
## 1977 0.0033176296 -0.0657193133 -0.025358586 1.730939
## 1978 0.0307822509 0.0091812406 0.032491622 1.741400
## 1979 0.0088543054 -0.0014616260 -0.014266636 1.839811
## 1980 -0.0102750334 -0.0010266082 0.002805609 1.843232
## 1981 -0.0194722087 -0.0043670519 -0.026881814 1.781365
## 1982 0.0001110518 0.0146340428 -0.026592841 1.756099
## 1983 0.0233313908 -0.0188150732 -0.010490314 1.762100
## 1984 0.0506818518 -0.0206085029 -0.028459894 1.926305
## 1985 0.0205286173 0.0082294810 -0.001154061 2.027726
## 1986 0.0716054593 -0.0066526192 0.016240540 1.887924
## 1987 0.0092341525 -0.0093335345 0.012808027 1.909371
## 1988 0.0480165783 0.0111603581 0.019001884 1.950233
## 1989 0.0575759786 0.0042690287 0.001712811 1.971519
## 1990 0.0120307117 -0.0140308614 0.009404519 1.971607
## 2019 -0.0075802206 0.0033669116 0.002336294 3.776874
## 2020 -0.0659413702 -0.0005016747 0.022061396 3.522556
## 2021 0.0315602043 0.0008454560 -0.010752028 3.618655
## 2022 NA NA NA NA
LUX <- LUX_df[32:59,]
LUX[!complete.cases(LUX),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
LUX %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1991 0.5568510 -0.5854575 -0.009174496 0.4431490 -0.8138493 0.011649100
## 1992 0.5778601 -0.5484235 0.037034025 0.4221399 -0.8624185 -0.048569188
## 1993 0.5719554 -0.5586942 -0.010270699 0.4280446 -0.8485280 0.013890510
## 1994 0.5650795 -0.5707888 -0.012094576 0.4349205 -0.8325921 0.015935848
## 1995 0.5668586 -0.5676453 0.003143434 0.4331414 -0.8366911 -0.004098988
## 1996 0.5620819 -0.5761076 -0.008462317 0.4379181 -0.8257235 0.010967669
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1991 23.22420 3.145195 0.08290639 29502989566983 31.01551 0.01501641
## 1992 23.64680 3.163228 0.01803296 30117227071322 31.03612 0.02060574
## 1993 24.64021 3.204380 0.04115186 30484582609607 31.04824 0.01212373
## 1994 25.58161 3.241874 0.03749407 31457961235736 31.07967 0.03143102
## 1995 25.94806 3.256097 0.01422311 32377575946213 31.10849 0.02881399
## 1996 26.30833 3.269886 0.01378877 33336579305130 31.13768 0.02918919
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1991 1.307731 21.91647 3.087238 0.08162809 9.12445 2.210958 0.06781737
## 1992 1.463671 22.18313 3.099332 0.01209368 8.91017 2.187193 -0.02376430
## 1993 1.688851 22.95136 3.133377 0.03404511 9.09195 2.207389 0.02019609
## 1994 1.810272 23.77134 3.168481 0.03510342 9.45962 2.247032 0.03964281
## 1995 1.792510 24.15555 3.184514 0.01603360 9.63720 2.265631 0.01859840
## 1996 1.870370 24.43796 3.196138 0.01162349 9.83036 2.285476 0.01984495
## W W_l W_dl R R_l R_dl It
## 1991 12.20421 2.501781 0.072453592 9.712261 2.273389 0.09327719 4.43386
## 1992 12.81875 2.550909 0.049127707 9.364384 2.236914 -0.03647551 3.76546
## 1993 13.12715 2.574683 0.023774406 9.824204 2.284849 0.04793562 4.54080
## 1994 13.43270 2.597692 0.023008843 10.338641 2.335888 0.05103927 4.54273
## 1995 13.69278 2.616869 0.019177032 10.462768 2.347823 0.01193461 4.47383
## 1996 13.73614 2.620030 0.003161177 10.701824 2.370414 0.02259116 4.28572
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1991 1.489271 0.1463404613 3.07633 1.123737 0.175025874 2.616264
## 1992 1.325870 -0.1634005048 2.75177 1.012244 -0.111492987 2.193094
## 1993 1.513103 0.1872331762 3.36981 1.214856 0.202612022 2.764039
## 1994 1.513528 0.0004249449 3.41989 1.229608 0.014752024 2.891372
## 1995 1.498245 -0.0152832879 3.41870 1.229260 -0.000348025 2.837470
## 1996 1.455289 -0.0429562991 3.31610 1.198789 -0.030470968 2.646900
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1991 0.9617473 0.18213627 0.8504497 -0.1619900 0.007110398 3.770775
## 1992 0.7853133 -0.17643401 0.7969758 -0.2269310 -0.064941027 3.000980
## 1993 1.0166930 0.23137968 0.8202359 -0.1981633 0.028767662 3.724527
## 1994 1.0617311 0.04503811 0.8454576 -0.1678773 0.030286090 3.840686
## 1995 1.0429128 -0.01881832 0.8299851 -0.1863476 -0.018470295 3.713212
## 1996 0.9733891 -0.06952367 0.7981967 -0.2254002 -0.039052698 3.420847
## I_l I_dl r r_l r_dl P P_l
## 1991 1.327281 0.15345086 6.223522 2.742428 0.02406488 52.20189 3.955119
## 1992 1.098939 -0.22834153 4.030631 2.590148 -0.15228012 54.14853 3.991731
## 1993 1.314940 0.21600084 0.441241 2.276483 -0.31366499 57.38250 4.049739
## 1994 1.345651 0.03071104 3.483866 2.548271 0.27178806 59.41540 4.084553
## 1995 1.311897 -0.03375358 4.786588 2.645303 0.09703116 60.80085 4.107604
## 1996 1.229888 -0.08200900 1.753455 2.402844 -0.24245829 63.52950 4.151504
## P_dl Pm Pm_l Pm_dl Px Px_l Px_dl
## 1991 0.01806604 49.97283 3.911479 0.02444467 47.10526 3.852385 0.01202115
## 1992 0.03661217 51.34031 3.938476 0.02699675 47.93871 3.869923 0.01753868
## 1993 0.05800856 52.97333 3.969789 0.03131239 50.66791 3.925293 0.05536944
## 1994 0.03481400 54.08138 3.990490 0.02070136 52.25304 3.956098 0.03080543
## 1995 0.02305027 54.76796 4.003105 0.01261549 53.05461 3.971322 0.01522353
## 1996 0.04390063 56.71979 4.038123 0.03501769 56.36498 4.031848 0.06052641
## X X_l X_dl M M_l M_dl rulc
## 1991 25.1439 3.224615 0.08787406 20.8625 3.037953 0.08736484 0.5254953
## 1992 25.8306 3.251560 0.02694451 20.2169 3.006519 -0.03143440 0.5420922
## 1993 27.0598 3.298049 0.04648940 21.2725 3.057415 0.05089627 0.5327534
## 1994 29.1408 3.372139 0.07409002 22.7001 3.122369 0.06495417 0.5250919
## 1995 30.4727 3.416831 0.04469195 23.6615 3.163849 0.04147992 0.5276996
## 1996 31.5870 3.452746 0.03591444 24.7250 3.207815 0.04396562 0.5221212
## rulc_l rulc_dl ulc ulc_l ulc_dl Tau
## 1991 -0.6434140 -0.010452801 27.43185 3.311705 0.007613242 96.45229
## 1992 -0.6123192 0.031094746 29.35350 3.379412 0.067706913 95.45884
## 1993 -0.6296967 -0.017377456 30.57072 3.420043 0.040631099 96.58565
## 1994 -0.6441819 -0.014485229 31.19855 3.440372 0.020328775 97.08786
## 1995 -0.6392280 0.004953918 32.08458 3.468376 0.028004188 95.58329
## 1996 -0.6498556 -0.010627595 33.17010 3.501649 0.033273037 94.33952
## Tau_l Tau_dl dPxdPm dPdPm Trade
## 1991 4.569048 0.039884041 -0.012423520 -0.006378623 1.980968
## 1992 4.558695 -0.010353326 -0.009458072 0.009615413 1.947304
## 1993 4.570430 0.011735057 0.024057053 0.026696166 1.961521
## 1994 4.575616 0.005186201 0.010104071 0.014112647 2.026491
## 1995 4.559998 -0.015618420 0.002608038 0.010434776 2.086252
## 1996 4.546900 -0.013097763 0.025508721 0.008882938 2.140463
LUX %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1991 0.5568510 -0.5854575 -0.009174496 0.4431490 -0.8138493 0.011649100
## 1992 0.5778601 -0.5484235 0.037034025 0.4221399 -0.8624185 -0.048569188
## 1993 0.5719554 -0.5586942 -0.010270699 0.4280446 -0.8485280 0.013890510
## 1994 0.5650795 -0.5707888 -0.012094576 0.4349205 -0.8325921 0.015935848
## 1995 0.5668586 -0.5676453 0.003143434 0.4331414 -0.8366911 -0.004098988
## 1996 0.5620819 -0.5761076 -0.008462317 0.4379181 -0.8257235 0.010967669
## 1997 0.5702936 -0.5616040 0.014503692 0.4297064 -0.8446531 -0.018929651
## 1998 0.5838419 -0.5381251 0.023478837 0.4161581 -0.8766900 -0.032036846
## 1999 0.5599417 -0.5799226 -0.041797484 0.4400583 -0.8208481 0.055841882
## 2000 0.5659082 -0.5693234 0.010599221 0.4340918 -0.8344993 -0.013651209
## 2001 0.5967344 -0.5162832 0.053040206 0.4032656 -0.9081598 -0.073660571
## 2002 0.6005461 -0.5099158 0.006367348 0.3994539 -0.9176570 -0.009497133
## 2003 0.5944161 -0.5201757 -0.010259859 0.4055839 -0.9024275 0.015229438
## 2004 0.5978861 -0.5143550 0.005820638 0.4021139 -0.9110198 -0.008592301
## 2005 0.5951463 -0.5189480 -0.004592978 0.4048537 -0.9042295 0.006790338
## 2006 0.5672730 -0.5669146 -0.047966599 0.4327270 -0.8376482 0.066581290
## 2007 0.5623606 -0.5756120 -0.008697403 0.4376394 -0.8263600 0.011288258
## 2008 0.5864020 -0.5337496 0.041862385 0.4135980 -0.8828609 -0.056500941
## 2009 0.6214678 -0.4756712 0.058078412 0.3785322 -0.9714541 -0.088593155
## 2010 0.5924356 -0.5235131 -0.047841912 0.4075644 -0.8975563 0.073897787
## 2011 0.5789879 -0.5464737 -0.022960578 0.4210121 -0.8650937 0.032462590
## 2012 0.5932931 -0.5220667 0.024407052 0.4067069 -0.8996626 -0.034568923
## 2013 0.5858840 -0.5346335 -0.012566839 0.4141160 -0.8816091 0.018053513
## 2014 0.5824287 -0.5405485 -0.005914953 0.4175713 -0.8733000 0.008309053
## 2015 0.5753499 -0.5527768 -0.012228372 0.4246501 -0.8564898 0.016810196
## 2016 0.5662473 -0.5687244 -0.015947577 0.4337527 -0.8352807 0.021209165
## 2017 0.5824845 -0.5404528 0.028271629 0.4175155 -0.8734335 -0.038152830
## 2018 0.5915344 -0.5250355 0.015417302 0.4084656 -0.8953475 -0.021914021
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1991 23.22420 3.145195 0.082906393 29502989566983 31.01551 0.015016410
## 1992 23.64680 3.163228 0.018032961 30117227071322 31.03612 0.020605737
## 1993 24.64021 3.204380 0.041151862 30484582609607 31.04824 0.012123732
## 1994 25.58161 3.241874 0.037494073 31457961235736 31.07967 0.031431023
## 1995 25.94806 3.256097 0.014223114 32377575946213 31.10849 0.028813992
## 1996 26.30833 3.269886 0.013788771 33336579305130 31.13768 0.029189189
## 1997 27.81046 3.325412 0.055526590 34449596402777 31.17052 0.032842010
## 1998 29.49151 3.384102 0.058690216 35385500228574 31.19732 0.026804856
## 1999 31.99269 3.465507 0.081405014 36539548332899 31.22942 0.032093052
## 2000 34.62882 3.544686 0.079178844 38012496116073 31.26894 0.039519761
## 2001 35.50561 3.569691 0.025004429 38576746786478 31.28367 0.014734729
## 2002 36.86174 3.607174 0.037483445 39155938473972 31.29857 0.014902416
## 2003 37.46232 3.623336 0.016161471 40002939538161 31.31997 0.021400844
## 2004 38.81553 3.658820 0.035484796 41323830939012 31.35246 0.032486414
## 2005 40.04693 3.690052 0.031231592 42512707693407 31.38082 0.028363682
## 2006 42.12075 3.740540 0.050488477 43836386267781 31.41149 0.030661173
## 2007 45.63975 3.820779 0.080238554 45057642775778 31.43896 0.027478411
## 2008 45.05575 3.807901 -0.012878435 45232746742258 31.44284 0.003878689
## 2009 43.09195 3.763336 -0.044564407 43734708332404 31.40916 -0.033679282
## 2010 45.18836 3.810840 0.047503327 45057290784189 31.43896 0.029792781
## 2011 46.33580 3.835915 0.025075349 45927664088421 31.45809 0.019132830
## 2012 46.17246 3.832384 -0.003531364 46539696139219 31.47133 0.013237990
## 2013 47.85977 3.868275 0.035891760 47221593912969 31.48587 0.014545657
## 2014 49.91620 3.910346 0.042070323 48181490036077 31.50600 0.020123637
## 2015 52.06581 3.952508 0.042162896 49311094206702 31.52917 0.023174167
## 2016 54.44761 3.997239 0.044730460 50160688588193 31.54625 0.017082534
## 2017 55.42831 4.015090 0.017851519 51317725789270 31.56906 0.022804600
## 2018 57.15259 4.045725 0.030634234 52466902910267 31.59120 0.022146326
## Tax Yf Yf_l Yf_dl C C_l
## 1991 1.307731 21.91647 3.087238 0.08162809 9.12445 2.210958
## 1992 1.463671 22.18313 3.099332 0.01209368 8.91017 2.187193
## 1993 1.688851 22.95136 3.133377 0.03404511 9.09195 2.207389
## 1994 1.810272 23.77134 3.168481 0.03510342 9.45962 2.247032
## 1995 1.792510 24.15555 3.184514 0.01603360 9.63720 2.265631
## 1996 1.870370 24.43796 3.196138 0.01162349 9.83036 2.285476
## 1997 2.099760 25.71070 3.246907 0.05076959 10.08977 2.311522
## 1998 2.290980 27.20053 3.303236 0.05632921 10.31621 2.333716
## 1999 2.654410 29.33828 3.378893 0.07565669 10.93400 2.391877
## 2000 3.084000 31.54482 3.451409 0.07251624 11.39874 2.433503
## 2001 3.062880 32.44273 3.479476 0.02806699 11.83387 2.470966
## 2002 3.115040 33.74670 3.518883 0.03940625 12.35964 2.514436
## 2003 3.262270 34.20005 3.532227 0.01334447 12.64286 2.537093
## 2004 3.692860 35.12267 3.558847 0.02661968 12.75544 2.545958
## 2005 4.060750 35.98618 3.583135 0.02428818 12.74502 2.545141
## 2006 4.298700 37.82205 3.632892 0.04975729 13.09748 2.572420
## 2007 4.849270 40.79048 3.708449 0.07555645 13.39807 2.595111
## 2008 4.741330 40.31442 3.696709 -0.01173950 13.57829 2.608472
## 2009 4.623550 38.46840 3.649837 -0.04687210 13.73804 2.620169
## 2010 4.938680 40.24968 3.695102 0.04526493 13.90351 2.632141
## 2011 5.320970 41.01483 3.713934 0.01883166 14.11102 2.646956
## 2012 5.676760 40.49570 3.701196 -0.01273791 14.52266 2.675710
## 2013 6.009410 41.85036 3.734100 0.03290460 14.81428 2.695592
## 2014 6.573870 43.34233 3.769130 0.03502936 15.41656 2.735442
## 2015 6.226000 45.83981 3.825153 0.05602317 15.69291 2.753209
## 2016 6.418610 48.02900 3.871805 0.04665207 16.22907 2.786804
## 2017 6.665710 48.76260 3.886964 0.01515863 16.57993 2.808193
## 2018 7.220870 49.93172 3.910656 0.02369285 17.13152 2.840920
## C_dl W W_l W_dl R R_l
## 1991 0.0678173665 12.20421 2.501781 0.072453592 9.712261 2.273389
## 1992 -0.0237643027 12.81875 2.550909 0.049127707 9.364384 2.236914
## 1993 0.0201960856 13.12715 2.574683 0.023774406 9.824204 2.284849
## 1994 0.0396428065 13.43270 2.597692 0.023008843 10.338641 2.335888
## 1995 0.0185983969 13.69278 2.616869 0.019177032 10.462768 2.347823
## 1996 0.0198449461 13.73614 2.620030 0.003161177 10.701824 2.370414
## 1997 0.0260464832 14.66265 2.685303 0.065273278 11.048052 2.402254
## 1998 0.0221944053 15.88081 2.765111 0.079808048 11.319722 2.426547
## 1999 0.0581607559 16.42773 2.798971 0.033859206 12.910554 2.558045
## 2000 0.0416256225 17.85147 2.882086 0.083115464 13.693347 2.616910
## 2001 0.0374629359 19.35969 2.963193 0.081107195 13.083037 2.571317
## 2002 0.0434705665 20.26645 3.008967 0.045773602 13.480250 2.601226
## 2003 0.0226563036 20.32906 3.012051 0.003084613 13.870989 2.629800
## 2004 0.0088652183 20.99936 3.044492 0.032440323 14.123315 2.647827
## 2005 -0.0008172402 21.41704 3.064187 0.019695207 14.569138 2.678905
## 2006 0.0272792382 21.45543 3.065978 0.001790691 16.366623 2.795244
## 2007 0.0226908214 22.93896 3.132837 0.066859052 17.851522 2.882089
## 2008 0.0133615270 23.64046 3.162960 0.030122886 16.673962 2.813848
## 2009 0.0116964337 23.90687 3.174166 0.011206315 14.561529 2.678383
## 2010 0.0119726988 23.84534 3.171589 -0.002576983 16.404338 2.797546
## 2011 0.0148147262 23.74709 3.167460 -0.004128923 17.267740 2.848840
## 2012 0.0287541358 24.02582 3.179129 0.011669139 16.469879 2.801533
## 2013 0.0198813922 24.51946 3.199467 0.020337764 17.330905 2.852491
## 2014 0.0398506759 25.24382 3.228581 0.029114404 18.098512 2.895830
## 2015 0.0177667617 26.37393 3.272376 0.043794800 19.465878 2.968663
## 2016 0.0335950606 27.19629 3.303081 0.030704490 20.832709 3.036524
## 2017 0.0213888492 28.40346 3.346511 0.043430259 20.359143 3.013530
## 2018 0.0327271139 29.53633 3.385621 0.039110148 20.395391 3.015309
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1991 0.093277188 4.43386 1.489271 0.1463404613 3.07633 1.123737
## 1992 -0.036475506 3.76546 1.325870 -0.1634005048 2.75177 1.012244
## 1993 0.047935616 4.54080 1.513103 0.1872331762 3.36981 1.214856
## 1994 0.051039267 4.54273 1.513528 0.0004249449 3.41989 1.229608
## 1995 0.011934610 4.47383 1.498245 -0.0152832879 3.41870 1.229260
## 1996 0.022591163 4.28572 1.455289 -0.0429562991 3.31610 1.198789
## 1997 0.031839935 4.55763 1.516803 0.0615141856 3.61739 1.285753
## 1998 0.024292365 5.05808 1.620987 0.1041842131 4.00200 1.386794
## 1999 0.131498571 5.96456 1.785835 0.1648483246 4.74084 1.556214
## 2000 0.058865035 5.70923 1.742084 -0.0437511258 4.66677 1.540467
## 2001 -0.045593582 6.05837 1.801441 0.0593566236 5.11457 1.632093
## 2002 0.029909121 6.15571 1.817380 0.0159393194 5.26029 1.660186
## 2003 0.028573910 6.20517 1.825383 0.0080027092 5.33614 1.674503
## 2004 0.018027384 6.57544 1.883341 0.0579586804 5.68335 1.737541
## 2005 0.031078523 6.50868 1.873137 -0.0102048253 5.73695 1.746928
## 2006 0.116338580 6.72303 1.905539 0.0324022751 5.95418 1.784093
## 2007 0.086844712 7.56547 2.023594 0.1180555278 6.84708 1.923822
## 2008 -0.068240441 8.46913 2.136428 0.1128333144 7.72775 2.044818
## 2009 -0.135465251 7.41481 2.003479 -0.1329484364 6.80570 1.917760
## 2010 0.119162716 7.67688 2.038213 0.0347338631 7.07458 1.956508
## 2011 0.051294245 8.72813 2.166551 0.1283379284 8.27846 2.113657
## 2012 -0.047306836 9.26164 2.225881 0.0593299958 8.89435 2.185416
## 2013 0.050958116 9.37656 2.238213 0.0123318192 9.07334 2.205340
## 2014 0.043338409 10.26914 2.329143 0.0909303234 9.94861 2.297433
## 2015 0.072833368 9.48150 2.249343 -0.0798007498 9.48150 2.249343
## 2016 0.067861233 9.91667 2.294217 0.0448746479 9.95157 2.297730
## 2017 -0.022994199 10.47604 2.349091 0.0548735654 10.65844 2.366352
## 2018 0.001778826 9.85306 2.287782 -0.0613086781 10.09639 2.312178
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1991 0.175025874 2.616264 0.9617473 0.182136272 0.8504497 -0.1619900
## 1992 -0.111492987 2.193094 0.7853133 -0.176434014 0.7969758 -0.2269310
## 1993 0.202612022 2.764039 1.0166930 0.231379684 0.8202359 -0.1981633
## 1994 0.014752024 2.891372 1.0617311 0.045038114 0.8454576 -0.1678773
## 1995 -0.000348025 2.837470 1.0429128 -0.018818320 0.8299851 -0.1863476
## 1996 -0.030470968 2.646900 0.9733891 -0.069523666 0.7981967 -0.2254002
## 1997 0.086963378 2.920470 1.0717446 0.098355418 0.8073418 -0.2140082
## 1998 0.101041465 3.123060 1.1388133 0.067068728 0.7803748 -0.2479809
## 1999 0.169420099 3.786820 1.3315266 0.192713326 0.7987656 -0.2246877
## 2000 -0.015747152 3.730720 1.3166012 -0.014925372 0.7994223 -0.2238659
## 2001 0.091626146 4.015830 1.3902441 0.073642806 0.7851745 -0.2418493
## 2002 0.028092829 3.978530 1.3809124 -0.009331646 0.7563328 -0.2792738
## 2003 0.014316387 3.983290 1.3821081 0.001195707 0.7464740 -0.2923944
## 2004 0.063038302 4.236590 1.4437587 0.061650589 0.7454389 -0.2937821
## 2005 0.009386863 4.082350 1.4066728 -0.037085897 0.7115889 -0.3402549
## 2006 0.037165784 4.708360 1.5493397 0.142666849 0.7907655 -0.2347538
## 2007 0.139728790 5.422010 1.6904666 0.141126943 0.7918719 -0.2333557
## 2008 0.120995462 6.249380 1.8324823 0.142015663 0.8086933 -0.2123355
## 2009 -0.127057250 5.148940 1.6387909 -0.193691391 0.7565629 -0.2789696
## 2010 0.038747581 5.098490 1.6289444 -0.009846451 0.7206774 -0.3275637
## 2011 0.157148883 6.420920 1.8595614 0.230616992 0.7756177 -0.2540956
## 2012 0.071759283 7.075050 1.9565745 0.097013101 0.7954544 -0.2288417
## 2013 0.019924200 7.367810 1.9971205 0.040546001 0.8120284 -0.2082199
## 2014 0.092092400 8.055950 2.0864109 0.089290437 0.8097563 -0.2110219
## 2015 -0.048090311 7.391380 2.0003145 -0.086096492 0.7795581 -0.2490281
## 2016 0.048387796 7.799710 2.0540866 0.053772097 0.7837668 -0.2436438
## 2017 0.068621739 8.299330 2.1161748 0.062088235 0.7786627 -0.2501773
## 2018 -0.054174132 7.713180 2.0429306 -0.073244235 0.7639542 -0.2692474
## Ips_dl I I_l I_dl r r_l
## 1991 0.0071103978 3.770775 1.327281 0.153450859 6.2235217 2.742428
## 1992 -0.0649410267 3.000980 1.098939 -0.228341531 4.0306305 2.590148
## 1993 0.0287676617 3.724527 1.314940 0.216000838 0.4412410 2.276483
## 1994 0.0302860903 3.840686 1.345651 0.030711035 3.4838661 2.548271
## 1995 -0.0184702949 3.713212 1.311897 -0.033753583 4.7865884 2.645303
## 1996 -0.0390526979 3.420847 1.229888 -0.082008997 1.7534554 2.402844
## 1997 0.0113920406 3.679565 1.302795 0.072906226 6.6234300 2.767862
## 1998 -0.0339727367 3.947198 1.373006 0.070211476 6.8713568 2.783311
## 1999 0.0232932273 4.764285 1.561148 0.188141552 -1.0781580 2.106930
## 2000 0.0008217794 4.564086 1.518218 -0.042929346 3.2838918 2.532506
## 2001 -0.0179833395 4.756878 1.559592 0.041373284 4.3829549 2.616233
## 2002 -0.0374244754 4.655766 1.538106 -0.021485156 2.9693085 2.507192
## 2003 -0.0131206802 4.631998 1.532988 -0.005117971 0.6205222 2.294718
## 2004 -0.0013877131 4.901589 1.589559 0.056570967 -0.1116467 2.218058
## 2005 -0.0464727600 4.631505 1.532882 -0.056677585 -1.7137835 2.026480
## 2006 0.1055010654 5.316340 1.670785 0.137903340 -3.4900033 1.759773
## 2007 0.0013981532 5.990883 1.790239 0.119453681 2.9262754 2.503679
## 2008 0.0210202009 6.848929 1.924092 0.133853515 0.6991311 2.302610
## 2009 -0.0666341404 5.609770 1.724510 -0.199582577 2.7929329 2.492714
## 2010 -0.0485940322 5.532554 1.710650 -0.013860169 -0.4311163 2.182675
## 2011 0.0734681092 6.769692 1.912456 0.201806038 -1.7691504 2.019156
## 2012 0.0252538181 7.367212 1.997039 0.084583814 -0.7181340 2.149782
## 2013 0.0206218012 7.614033 2.029993 0.032953620 0.1515135 2.246293
## 2014 -0.0028019622 8.315501 2.118121 0.088128361 -1.3589660 2.072184
## 2015 -0.0380061812 7.391380 2.000314 -0.117806931 0.1856325 2.249896
## 2016 0.0053843011 7.772357 2.050573 0.050258949 -0.5167036 2.172979
## 2017 -0.0065335038 8.157302 2.098913 0.048340062 -1.1565808 2.097347
## 2018 -0.0190701024 7.527287 2.018535 -0.080378780 -1.9040157 2.001088
## r_dl P P_l P_dl Pm Pm_l
## 1991 0.02406488 52.20189 3.955119 0.018066043 49.97283 3.911479
## 1992 -0.15228012 54.14853 3.991731 0.036612167 51.34031 3.938476
## 1993 -0.31366499 57.38250 4.049739 0.058008555 52.97333 3.969789
## 1994 0.27178806 59.41540 4.084553 0.034814004 54.08138 3.990490
## 1995 0.09703116 60.80085 4.107604 0.023050270 54.76796 4.003105
## 1996 -0.24245829 63.52950 4.151504 0.043900632 56.71979 4.038123
## 1997 0.36501758 62.91971 4.141859 -0.009644910 60.16713 4.097126
## 1998 0.01544889 61.65900 4.121619 -0.020240228 61.86572 4.124966
## 1999 -0.67638043 65.23565 4.178006 0.056386938 63.87615 4.156946
## 2000 0.42557614 66.64801 4.199425 0.021419080 70.78167 4.259600
## 2001 0.08372618 66.95260 4.203985 0.004559732 68.62574 4.228668
## 2002 -0.10904057 68.07793 4.220653 0.016668149 67.60921 4.213744
## 2003 -0.21247376 69.90435 4.247128 0.026474734 66.42272 4.196039
## 2004 -0.07665984 71.96998 4.276249 0.029121286 70.63656 4.257548
## 2005 -0.19157805 74.98962 4.317350 0.041100566 76.23545 4.333827
## 2006 -0.26670791 80.26555 4.385340 0.067990781 80.99913 4.394438
## 2007 0.74390633 81.46160 4.400132 0.014791263 86.49597 4.460098
## 2008 -0.20106878 84.62534 4.438234 0.038101979 84.91424 4.441642
## 2009 0.19010366 85.80842 4.452117 0.013883392 80.42858 4.387370
## 2010 -0.31003866 88.91186 4.487646 0.035528409 83.65851 4.426743
## 2011 -0.16351867 93.15616 4.534277 0.046631672 87.62848 4.473106
## 2012 0.13062532 95.53769 4.559521 0.025243612 91.33458 4.514529
## 2013 0.09651152 97.15793 4.576338 0.016816969 93.49174 4.537873
## 2014 -0.17410888 99.81631 4.603332 0.026993858 95.26371 4.556649
## 2015 0.17771186 100.00000 4.605170 0.001838568 100.00000 4.605170
## 2016 -0.07691708 100.77069 4.612847 0.007677312 98.40442 4.589086
## 2017 -0.07563163 102.50035 4.629866 0.017018684 104.02158 4.644598
## 2018 -0.09625907 105.07499 4.654674 0.024808133 106.14428 4.664799
## Pm_dl Px Px_l Px_dl X X_l
## 1991 0.02444467 47.10526 3.852385 0.012021146 25.1439 3.224615
## 1992 0.02699675 47.93871 3.869923 0.017538683 25.8306 3.251560
## 1993 0.03131239 50.66791 3.925293 0.055369443 27.0598 3.298049
## 1994 0.02070136 52.25304 3.956098 0.030805428 29.1408 3.372139
## 1995 0.01261549 53.05461 3.971322 0.015223532 30.4727 3.416831
## 1996 0.03501769 56.36498 4.031848 0.060526415 31.5870 3.452746
## 1997 0.05900312 57.79906 4.056972 0.025124373 35.0719 3.557400
## 1998 0.02783998 58.11551 4.062433 0.005460102 39.4809 3.675817
## 1999 0.03197974 61.60598 4.120759 0.058326467 44.3220 3.791481
## 2000 0.10265412 66.99893 4.204677 0.083917620 51.1493 3.934749
## 2001 -0.03093241 64.74386 4.170439 -0.034237736 54.1352 3.991485
## 2002 -0.01492343 64.13425 4.160979 -0.009460293 55.5485 4.017257
## 2003 -0.01770504 63.68476 4.153945 -0.007033349 57.1171 4.045104
## 2004 0.06150871 67.58532 4.213391 0.059445593 63.2554 4.147180
## 2005 0.07627860 72.72602 4.286699 0.073308314 66.7617 4.201130
## 2006 0.06061194 78.89376 4.368102 0.081403017 75.5273 4.324494
## 2007 0.06565935 83.27770 4.422181 0.054078580 81.6493 4.402433
## 2008 -0.01845603 82.84428 4.416963 -0.005218041 86.1171 4.455708
## 2009 -0.05427220 79.72897 4.378633 -0.038329761 76.0918 4.331941
## 2010 0.03937357 83.49119 4.424741 0.046108175 83.9844 4.430631
## 2011 0.04636292 87.92294 4.476461 0.051719575 87.3818 4.470287
## 2012 0.04142340 91.60031 4.517435 0.040973908 89.7863 4.497432
## 2013 0.02334360 93.78833 4.541040 0.023605792 94.5122 4.548729
## 2014 0.01877585 96.30286 4.567498 0.026457601 109.9972 4.700455
## 2015 0.04852127 100.00000 4.605170 0.037672168 115.1678 4.746390
## 2016 -0.01608447 98.90445 4.594154 -0.011015973 118.1815 4.772222
## 2017 0.05551263 103.86643 4.643106 0.048951564 119.0374 4.779438
## 2018 0.02020096 106.23327 4.665637 0.022531601 119.5932 4.784096
## X_dl M M_l M_dl rulc rulc_l
## 1991 0.087874058 20.8625 3.037953 0.087364836 0.5254953 -0.6434140
## 1992 0.026944513 20.2169 3.006519 -0.031434401 0.5420922 -0.6123192
## 1993 0.046489396 21.2725 3.057415 0.050896270 0.5327534 -0.6296967
## 1994 0.074090022 22.7001 3.122369 0.064954171 0.5250919 -0.6441819
## 1995 0.044691947 23.6615 3.163849 0.041479925 0.5276996 -0.6392280
## 1996 0.035914443 24.7250 3.207815 0.043965623 0.5221212 -0.6498556
## 1997 0.104654597 27.5516 3.316061 0.108245733 0.5272350 -0.6401089
## 1998 0.118416771 31.3657 3.445715 0.129654329 0.5384875 -0.6189911
## 1999 0.115664157 35.4141 3.567110 0.121395107 0.5134838 -0.6665369
## 2000 0.143267639 40.2579 3.695306 0.128196212 0.5155091 -0.6626003
## 2001 0.056735814 42.9206 3.759352 0.064045639 0.5452573 -0.6064975
## 2002 0.025771892 43.3822 3.770049 0.010697322 0.5497963 -0.5982073
## 2003 0.027847033 45.4190 3.815931 0.045881301 0.5426535 -0.6112842
## 2004 0.102076953 50.6901 3.925731 0.109800106 0.5410040 -0.6143287
## 2005 0.053949063 53.6118 3.981769 0.056038568 0.5347986 -0.6258651
## 2006 0.123364617 60.2512 4.098522 0.116753296 0.5093790 -0.6745629
## 2007 0.077939066 64.3104 4.163721 0.065198871 0.5026092 -0.6879424
## 2008 0.053274752 70.2499 4.252059 0.088337525 0.5246935 -0.6449410
## 2009 -0.123767492 60.6417 4.104983 -0.147076109 0.5547874 -0.5891703
## 2010 0.098690561 68.0232 4.219849 0.114866048 0.5276877 -0.6392506
## 2011 0.039655956 71.6517 4.271817 0.051968057 0.5124998 -0.6684549
## 2012 0.027145379 75.0625 4.318321 0.046504219 0.5203496 -0.6532544
## 2013 0.051296524 78.8888 4.368039 0.049718166 0.5123187 -0.6688084
## 2014 0.151725984 94.2461 4.545909 0.177870180 0.5057240 -0.6817643
## 2015 0.045935284 97.4492 4.579331 0.033421770 0.5065499 -0.6801324
## 2016 0.025831383 99.0392 4.595516 0.016184515 0.4994947 -0.6941584
## 2017 0.007216151 99.6545 4.601709 0.006193472 0.5124359 -0.6685796
## 2018 0.004658254 99.3174 4.598321 -0.003388421 0.5167977 -0.6601037
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1991 -0.010452801 27.43185 3.311705 0.0076132422 96.45229 4.569048
## 1992 0.031094746 29.35350 3.379412 0.0677069131 95.45884 4.558695
## 1993 -0.017377456 30.57072 3.420043 0.0406310989 96.58565 4.570430
## 1994 -0.014485229 31.19855 3.440372 0.0203287748 97.08786 4.575616
## 1995 0.004953918 32.08458 3.468376 0.0280041882 95.58329 4.559998
## 1996 -0.010627595 33.17010 3.501649 0.0332730370 94.33952 4.546900
## 1997 0.009746689 33.17347 3.501751 0.0001017782 96.58274 4.570400
## 1998 0.021117832 33.20260 3.502628 0.0008776032 98.49395 4.589995
## 1999 -0.047545808 33.49745 3.511469 0.0088411297 102.02984 4.625265
## 2000 0.003936620 34.35766 3.536825 0.0253557006 105.69200 4.660529
## 2001 0.056102766 36.50639 3.597487 0.0606624989 103.49311 4.639505
## 2002 0.008290157 37.42900 3.622446 0.0249583065 104.26580 4.646943
## 2003 -0.013076858 37.93384 3.635844 0.0133978761 103.46082 4.639193
## 2004 -0.003044473 38.93605 3.661920 0.0260768129 104.26842 4.646969
## 2005 -0.011536385 40.10434 3.691485 0.0295641805 104.61222 4.650260
## 2006 -0.048697786 40.88559 3.710778 0.0192929955 106.43625 4.667546
## 2007 -0.013379502 40.94335 3.712189 0.0014117620 110.82463 4.707949
## 2008 0.043001321 44.40236 3.793293 0.0811033000 104.67164 4.650828
## 2009 0.055770723 47.60543 3.862947 0.0696541145 98.35737 4.588608
## 2010 -0.050080310 46.91769 3.848395 -0.0145519013 100.89227 4.614053
## 2011 -0.029204272 47.74251 3.865822 0.0174274000 100.16590 4.606828
## 2012 0.015200503 49.71300 3.906266 0.0404441152 96.83194 4.572977
## 2013 -0.015553996 49.77582 3.907529 0.0012629732 97.67266 4.581622
## 2014 -0.012955919 50.47950 3.921567 0.0140379396 98.56712 4.590738
## 2015 0.001631904 50.65499 3.925038 0.0034704719 100.00000 4.605170
## 2016 -0.014025969 50.33442 3.918689 -0.0063486574 101.45561 4.619621
## 2017 0.025578740 52.52486 3.961287 0.0425974241 99.95636 4.604734
## 2018 0.008475914 54.30252 3.994571 0.0332840470 100.00715 4.605242
## Tau_dl dPxdPm dPdPm Trade
## 1991 0.0398840412 -0.0124235201 -0.0063786227 1.980968
## 1992 -0.0103533256 -0.0094580716 0.0096154129 1.947304
## 1993 0.0117350573 0.0240570535 0.0266961660 1.961521
## 1994 0.0051862014 0.0101040711 0.0141126474 2.026491
## 1995 -0.0156184202 0.0026080384 0.0104347761 2.086252
## 1996 -0.0130977633 0.0255087213 0.0088829383 2.140463
## 1997 0.0234998488 -0.0338787501 -0.0686480333 2.251797
## 1998 0.0195950757 -0.0223798828 -0.0480802134 2.402271
## 1999 0.0352702298 0.0263467233 0.0244071936 2.492322
## 2000 0.0352638767 -0.0187364959 -0.0812350354 2.639628
## 2001 -0.0210242220 -0.0033053278 0.0354921409 2.733534
## 2002 0.0074383898 0.0054631385 0.0315915805 2.683832
## 2003 -0.0077504235 0.0106716882 0.0441797714 2.737046
## 2004 0.0077755762 -0.0020631157 -0.0323874227 2.935565
## 2005 0.0032918322 -0.0029702826 -0.0351780313 3.005811
## 2006 0.0172858180 0.0207910814 0.0073788457 3.223554
## 2007 0.0404028372 -0.0115807667 -0.0508680830 3.198083
## 2008 -0.0571208569 0.0132379856 0.0565580058 3.470523
## 2009 -0.0622206653 0.0159424347 0.0681555878 3.173064
## 2010 0.0254458186 0.0067346094 -0.0038451567 3.363866
## 2011 -0.0072255034 0.0053566514 0.0002687482 3.432195
## 2012 -0.0338508853 -0.0004494884 -0.0161797846 3.570284
## 2013 0.0086447509 0.0002621939 -0.0065266291 3.623106
## 2014 0.0091160374 0.0076817518 0.0082180093 4.091724
## 2015 0.0144324506 -0.0108491038 -0.0466827034 4.083620
## 2016 0.0144511474 0.0050684997 0.0237617842 3.989536
## 2017 -0.0148876296 -0.0065610632 -0.0384939433 3.945491
## 2018 0.0005079667 0.0023306455 0.0046071774 3.830283
adf.LUX.WS <- adf.test((LUX$WS), alternative = c("stationary"), k = 2)
adf.LUX.PS <- adf.test((LUX$PS), alternative = c("stationary"), k = 2)
adf.LUX.Y <- adf.test((LUX$Y), alternative = c("stationary"), k = 2)
adf.LUX.Yrw <- adf.test((LUX$Yrw), alternative = c("stationary"), k = 2)
adf.LUX.r <- adf.test((LUX$r), alternative = c("stationary"), k = 2)
adf.LUX.R <- adf.test((LUX$R), alternative = c("stationary"), k = 2)
adf.LUX.Tau <- adf.test((LUX$Tau), alternative = c("stationary"), k = 2)
adf.LUX.rulc <- adf.test((LUX$rulc), alternative = c("stationary"), k = 2)
adf.LUX.ulc <- adf.test((LUX$ulc), alternative = c("stationary"), k = 2)
adf.LUX.P <- adf.test((LUX$P), alternative = c("stationary"), k = 2)
adf.LUX.Pm <- adf.test((LUX$Pm), alternative = c("stationary"), k = 2)
adf.LUX.Px <- adf.test((LUX$Px), alternative = c("stationary"), k = 2)
adf.LUX.X <- adf.test((LUX$X), alternative = c("stationary"), k = 2)
adf.LUX.M <- adf.test((LUX$M), alternative = c("stationary"), k = 2)
adf.LUX.I <- adf.test((LUX$I), alternative = c("stationary"), k = 2)
adf.LUX.C <- adf.test((LUX$C), alternative = c("stationary"), k = 2)
adf.LUX.Ipr <- adf.test((LUX$Ipr), alternative = c("stationary"), k = 2)
adf.LUX.Ips <- adf.test((LUX$Ips), alternative = c("stationary"), k = 2)
adf.LUX.It <- adf.test((LUX$It), alternative = c("stationary"), k = 2)
adf.LUX.Itcurr <- adf.test((LUX$Itcurr), alternative = c("stationary"), k = 2)
adf.LUX.Yf <- adf.test((LUX$Yf), alternative = c("stationary"), k = 2)
adf.LUX.W <- adf.test((LUX$W), alternative = c("stationary"), k = 2)
adf.LUX.WS.pval <- adf.LUX.WS$p.value
adf.LUX.PS.pval <- adf.LUX.PS$p.value
adf.LUX.Y.pval <- adf.LUX.Y$p.value
adf.LUX.Yrw.pval <- adf.LUX.Yrw$p.value
adf.LUX.r.pval <- adf.LUX.r$p.value
adf.LUX.R.pval <- adf.LUX.R$p.value
adf.LUX.Tau.pval <- adf.LUX.Tau$p.value
adf.LUX.rulc.pval <- adf.LUX.rulc$p.value
adf.LUX.ulc.pval <- adf.LUX.ulc$p.value
adf.LUX.P.pval <- adf.LUX.P$p.value
adf.LUX.Pm.pval <- adf.LUX.Pm$p.value
adf.LUX.Px.pval <- adf.LUX.Px$p.value
adf.LUX.X.pval <- adf.LUX.X$p.value
adf.LUX.M.pval <- adf.LUX.M$p.value
adf.LUX.I.pval <- adf.LUX.I$p.value
adf.LUX.C.pval <- adf.LUX.C$p.value
adf.LUX.Ipr.pval <- adf.LUX.Ipr$p.value
adf.LUX.Ips.pval <- adf.LUX.Ips$p.value
adf.LUX.It.pval <- adf.LUX.It$p.value
adf.LUX.Itcurr.pval <- adf.LUX.Itcurr$p.value
adf.LUX.Yf.pval <- adf.LUX.Yf$p.value
adf.LUX.W.pval <- adf.LUX.W$p.value
adf.LUX_non <- rbind(adf.LUX.WS.pval,adf.LUX.PS.pval,adf.LUX.Y.pval,adf.LUX.Yrw.pval,adf.LUX.r.pval,adf.LUX.R.pval,adf.LUX.Tau.pval,adf.LUX.rulc.pval,adf.LUX.ulc.pval,adf.LUX.P.pval,adf.LUX.Pm.pval,adf.LUX.Px.pval,adf.LUX.X.pval,adf.LUX.M.pval,adf.LUX.I.pval,adf.LUX.C.pval,adf.LUX.Ipr.pval,adf.LUX.Ips.pval,adf.LUX.It.pval,adf.LUX.Itcurr.pval,adf.LUX.Yf.pval,adf.LUX.W.pval)
colnames(adf.LUX_non) <- c("LUX")
rownames(adf.LUX_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.LUX_non
## LUX
## WS 0.51935623
## PS 0.51935623
## Y 0.56078934
## Yrw 0.58221481
## r 0.23964411
## R 0.42898513
## Tau 0.79306182
## rulc 0.42597467
## ulc 0.65272447
## P 0.63084399
## Pm 0.01645738
## Px 0.26011782
## X 0.09785622
## M 0.22132829
## I 0.23528469
## C 0.60717388
## Ipr 0.38445246
## Ips 0.38654048
## It 0.18997884
## Itcurr 0.38974675
## Yf 0.59722322
## W 0.47066208
adf.LUX.WS_dl <- adf.test((LUX$WS_dl), alternative = c("stationary"), k = 2)
adf.LUX.PS_dl <- adf.test((LUX$PS_dl), alternative = c("stationary"), k = 2)
adf.LUX.Y_dl <- adf.test((LUX$Y_dl), alternative = c("stationary"), k = 2)
adf.LUX.Yrw_dl <- adf.test((LUX$Yrw_dl), alternative = c("stationary"), k = 2)
adf.LUX.r_dl <- adf.test((LUX$r_dl), alternative = c("stationary"), k = 2)
adf.LUX.R_dl <- adf.test((LUX$R_dl), alternative = c("stationary"), k = 2)
adf.LUX.Tau_dl <- adf.test((LUX$Tau_dl), alternative = c("stationary"), k = 2)
adf.LUX.rulc_dl <- adf.test((LUX$rulc_dl), alternative = c("stationary"), k = 2)
adf.LUX.ulc_dl <- adf.test((LUX$ulc_dl), alternative = c("stationary"), k = 2)
adf.LUX.P_dl <- adf.test((LUX$P_dl), alternative = c("stationary"), k = 2)
adf.LUX.Pm_dl <- adf.test((LUX$Pm_dl), alternative = c("stationary"), k = 2)
adf.LUX.Px_dl <- adf.test((LUX$Px_dl), alternative = c("stationary"), k = 2)
adf.LUX.X_dl <- adf.test((LUX$X_dl), alternative = c("stationary"), k = 2)
adf.LUX.M_dl <- adf.test((LUX$M_dl), alternative = c("stationary"), k = 2)
adf.LUX.I_dl <- adf.test((LUX$I_dl), alternative = c("stationary"), k = 2)
adf.LUX.C_dl <- adf.test((LUX$C_dl), alternative = c("stationary"), k = 2)
adf.LUX.Ipr_dl <- adf.test((LUX$Ipr_dl), alternative = c("stationary"), k = 2)
adf.LUX.Ips_dl <- adf.test((LUX$Ips_dl), alternative = c("stationary"), k = 2)
adf.LUX.It_dl <- adf.test((LUX$It_dl), alternative = c("stationary"), k = 2)
adf.LUX.Itcurr_dl <- adf.test((LUX$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.LUX.Yf_dl <- adf.test((LUX$Yf_dl), alternative = c("stationary"), k = 2)
adf.LUX.W_dl <- adf.test((LUX$W_dl), alternative = c("stationary"), k = 2)
adf.LUX.WS_dl.pval <- adf.LUX.WS_dl$p.value
adf.LUX.PS_dl.pval <- adf.LUX.PS_dl$p.value
adf.LUX.Y_dl.pval <- adf.LUX.Y_dl$p.value
adf.LUX.Yrw_dl.pval <- adf.LUX.Yrw_dl$p.value
adf.LUX.r_dl.pval <- adf.LUX.r_dl$p.value
adf.LUX.R_dl.pval <- adf.LUX.R_dl$p.value
adf.LUX.Tau_dl.pval <- adf.LUX.Tau_dl$p.value
adf.LUX.rulc_dl.pval <- adf.LUX.rulc_dl$p.value
adf.LUX.ulc_dl.pval <- adf.LUX.ulc_dl$p.value
adf.LUX.P_dl.pval <- adf.LUX.P_dl$p.value
adf.LUX.Pm_dl.pval <- adf.LUX.Pm_dl$p.value
adf.LUX.Px_dl.pval <- adf.LUX.Px_dl$p.value
adf.LUX.X_dl.pval <- adf.LUX.X_dl$p.value
adf.LUX.M_dl.pval <- adf.LUX.M_dl$p.value
adf.LUX.I_dl.pval <- adf.LUX.I_dl$p.value
adf.LUX.C_dl.pval <- adf.LUX.C_dl$p.value
adf.LUX.Ipr_dl.pval <- adf.LUX.Ipr_dl$p.value
adf.LUX.Ips_dl.pval <- adf.LUX.Ips_dl$p.value
adf.LUX.It_dl.pval <- adf.LUX.It_dl$p.value
adf.LUX.Itcurr_dl.pval <- adf.LUX.Itcurr_dl$p.value
adf.LUX.Yf_dl.pval <- adf.LUX.Yf_dl$p.value
adf.LUX.W_dl.pval <- adf.LUX.W_dl$p.value
adf.LUX_dl <- rbind(adf.LUX.WS_dl.pval,adf.LUX.PS_dl.pval,adf.LUX.Y_dl.pval,adf.LUX.Yrw_dl.pval,adf.LUX.r_dl.pval,adf.LUX.R_dl.pval,adf.LUX.Tau_dl.pval,adf.LUX.rulc_dl.pval,adf.LUX.ulc_dl.pval,adf.LUX.P_dl.pval,adf.LUX.Pm_dl.pval,adf.LUX.Px_dl.pval,adf.LUX.X_dl.pval,adf.LUX.M_dl.pval,adf.LUX.I_dl.pval,adf.LUX.C_dl.pval,adf.LUX.Ipr_dl.pval,adf.LUX.Ips_dl.pval,adf.LUX.It_dl.pval,adf.LUX.Itcurr_dl.pval,adf.LUX.Yf_dl.pval,adf.LUX.W_dl.pval)
colnames(adf.LUX_dl) <- c("LUX")
rownames(adf.LUX_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.LUX_dl
## LUX
## dlog(WS) 0.04104442
## dlog(PS) 0.03516497
## dlog(Y) 0.36285493
## dlog(Yrw) 0.13486923
## dlog(r) 0.02020395
## dlog(R) 0.04906234
## dlog(Tau) 0.31007311
## dlog(rulc) 0.06859394
## dlog(ulc) 0.33126571
## dlog(P) 0.40769663
## dlog(Pm) 0.01346015
## dlog(Px) 0.01624743
## dlog(X) 0.08821310
## dlog(M) 0.13417461
## dlog(I) 0.01000000
## dlog(C) 0.50501592
## dlog(Ipr) 0.01000000
## dlog(Ips) 0.01490369
## dlog(It) 0.01796396
## dlog(Itcurr) 0.01207158
## dlog(Yf) 0.38175952
## dlog(W) 0.55150119
adf.LUX <- NULL
adf.LUX <- rbind(adf.LUX_non,adf.LUX_dl)
#Consumption (C)
LUX_consumption <- dynlm(LUX$C_dl~LUX$R_dl+LUX$W_dl)
LUX_CR <- summary(LUX_consumption)$coefficients["LUX$R_dl","Estimate"]
LUX_CW <- summary(LUX_consumption)$coefficients["LUX$W_dl","Estimate"]
LUX_Ceffekt <- (LUX_CR*mean(LUX$C/LUX$R))-(LUX_CW*mean(LUX$C/LUX$W))
summary(LUX_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$C_dl ~ LUX$R_dl + LUX$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.044084 -0.007362 0.000805 0.011281 0.027121
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.014015 0.005198 2.696 0.0124 *
## LUX$R_dl 0.118195 0.050826 2.325 0.0285 *
## LUX$W_dl 0.216102 0.115934 1.864 0.0741 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01576 on 25 degrees of freedom
## Multiple R-squared: 0.2594, Adjusted R-squared: 0.2002
## F-statistic: 4.379 on 2 and 25 DF, p-value: 0.02342
#Investments (I)
LUX_investment <- dynlm(LUX$I_dl~LUX$PS_dl+LUX$Y_l)
LUX_iPS <- summary(LUX_investment)$coefficients["LUX$PS_dl","Estimate"]
LUX_Ieffekt <- LUX_iPS*mean(LUX$I/LUX$R)
summary(LUX_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$I_dl ~ LUX$PS_dl + LUX$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21033 -0.07019 0.01351 0.07917 0.16629
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.063678 0.264001 0.241 0.8114
## LUX$PS_dl 1.130760 0.534300 2.116 0.0444 *
## LUX$Y_l -0.008462 0.072567 -0.117 0.9081
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1066 on 25 degrees of freedom
## Multiple R-squared: 0.152, Adjusted R-squared: 0.08417
## F-statistic: 2.241 on 2 and 25 DF, p-value: 0.1273
#Price deflator (P)
LUX_deflator <- dynlm(LUX$P_dl~L(LUX$ulc_dl)+LUX$Pm_dl)
LUX_ePULC <- summary(LUX_deflator)$coefficients["L(LUX$ulc_dl)","Estimate"]
LUX_ePULC <- 0
summary(LUX_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$P_dl ~ L(LUX$ulc_dl) + LUX$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.039551 -0.010265 -0.001849 0.011454 0.038311
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.014431 0.007007 2.060 0.050 *
## L(LUX$ulc_dl) 0.266138 0.165782 1.605 0.121
## LUX$Pm_dl 0.166873 0.113262 1.473 0.153
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01922 on 25 degrees of freedom
## Multiple R-squared: 0.1227, Adjusted R-squared: 0.05248
## F-statistic: 1.748 on 2 and 25 DF, p-value: 0.1948
#Export price deflator (Px)
LUX_exportdeflator <- dynlm(LUX$Px_dl~LUX$ulc_dl+LUX$Pm_dl)
LUX_ePX <- summary(LUX_exportdeflator)$coefficients["LUX$ulc_dl","Estimate"]
LUX_ePX <- 0
summary(LUX_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$Px_dl ~ LUX$ulc_dl + LUX$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0295169 -0.0068485 -0.0003027 0.0058401 0.0263902
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.003649 0.005064 0.721 0.478
## LUX$ulc_dl 0.073905 0.119813 0.617 0.543
## LUX$Pm_dl 0.864097 0.081856 10.556 0.000000000106 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01389 on 25 degrees of freedom
## Multiple R-squared: 0.8313, Adjusted R-squared: 0.8178
## F-statistic: 61.59 on 2 and 25 DF, p-value: 0.0000000002186
#Exports (X)
LUX_exports <- dynlm(LUX$X_dl~L(LUX$dPxdPm)+LUX$Yrw_dl)
LUX_eXP <- summary(LUX_exports)$coefficients["L(LUX$dPxdPm)","Estimate"]
LUX_Xeffekt <- -(LUX_eXP*LUX_ePX*(1/(1-LUX_ePULC))*mean(LUX$Yf/LUX$Y)*(mean(LUX$X/LUX$Y)/mean(LUX$rulc)))
summary(LUX_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$X_dl ~ L(LUX$dPxdPm) + LUX$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.058019 -0.022673 -0.005236 0.020022 0.096733
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.004498 0.013642 -0.330 0.744
## L(LUX$dPxdPm) -0.151753 0.504810 -0.301 0.766
## LUX$Yrw_dl 3.014212 0.544784 5.533 0.00000945 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03664 on 25 degrees of freedom
## Multiple R-squared: 0.577, Adjusted R-squared: 0.5432
## F-statistic: 17.05 on 2 and 25 DF, p-value: 0.00002134
#Imports (M)
LUX_imports <- dynlm(LUX$M_dl~LUX$dPdPm+L(LUX$Y_l))
LUX_eMP <- summary(LUX_imports)$coefficients["LUX$dPdPm","Estimate"]
LUX_Meffekt <- -(LUX_eMP*LUX_ePULC*(1/(1-LUX_ePULC))*mean(LUX$Yf/LUX$Y)*(mean(LUX$M/LUX$Y)/mean(LUX$rulc)))
summary(LUX_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$M_dl ~ LUX$dPdPm + L(LUX$Y_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.153896 -0.022403 -0.002019 0.029914 0.133789
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.15506 0.14481 1.071 0.2945
## LUX$dPdPm -0.68773 0.30444 -2.259 0.0329 *
## L(LUX$Y_l) -0.02694 0.03982 -0.677 0.5049
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05849 on 25 degrees of freedom
## Multiple R-squared: 0.1797, Adjusted R-squared: 0.1141
## F-statistic: 2.738 on 2 and 25 DF, p-value: 0.08408
names(LUX_consumption$coefficients) <- sub("LUX$","",names(LUX_consumption$coefficients),fixed=TRUE)
names(LUX_investment$coefficients) <- sub("LUX$","",names(LUX_investment$coefficients),fixed=TRUE)
names(LUX_deflator$coefficients) <- sub("LUX$","",names(LUX_deflator$coefficients),fixed=TRUE)
names(LUX_exportdeflator$coefficients) <- sub("LUX$","",names(LUX_exportdeflator$coefficients),fixed=TRUE)
names(LUX_exports$coefficients) <- sub("LUX$","",names(LUX_exports$coefficients),fixed=TRUE)
names(LUX_imports$coefficients) <- sub("LUX$","",names(LUX_imports$coefficients),fixed=TRUE)
LUX_Xeffekt
## [1] 0
LUX_Meffekt
## [1] 0
#Nettoeksport (NX)
LUX_NXeffekt <- LUX_Xeffekt - LUX_Meffekt
LUX_NXeffekt
## [1] 0
#Nettoeffekten
LUX_Neteffekt = LUX_Ceffekt + LUX_Ieffekt + LUX_NXeffekt
LUX_Neteffekt
## [1] 0.381941
LUX_Lukket <- LUX_Ceffekt + LUX_Ieffekt
LUX_Lukket_Konklusion <- ifelse(LUX_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
LUX_Lukket_Konklusion
## [1] "Profit-led domestic"
LUX_Def <- ifelse(LUX_Neteffekt > 0, "Profit-led", "Wage-led")
LUX_Def
## [1] "Profit-led"
summary(ur.df(y=LUX_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## 1 2 3 4 5 6
## -0.0081043 -0.0119393 0.0015483 -0.0146888 -0.0021121 -0.0041562
## 7 8 9 10 11 12
## -0.0022977 -0.0142295 0.0043651 -0.0090716 0.0030067 -0.0153710
## 13 14 15
## -0.0035417 0.0056896 0.0007975
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -3.852711 4.212103 -0.915 0.457
## z.diff.lag1 2.603724 3.821795 0.681 0.566
## z.diff.lag2 2.358851 3.472506 0.679 0.567
## z.diff.lag3 2.000365 3.148763 0.635 0.590
## z.diff.lag4 1.603111 2.688954 0.596 0.612
## z.diff.lag5 1.430571 2.458450 0.582 0.619
## z.diff.lag6 1.354567 2.183487 0.620 0.598
## z.diff.lag7 0.943172 2.051773 0.460 0.691
## z.diff.lag8 0.623040 1.589082 0.392 0.733
## z.diff.lag9 0.269173 1.213915 0.222 0.845
## z.diff.lag10 0.523506 1.022622 0.512 0.660
## z.diff.lag11 0.008177 0.876131 0.009 0.993
## z.diff.lag12 0.023037 0.457007 0.050 0.964
##
## Residual standard error: 0.02289 on 2 degrees of freedom
## Multiple R-squared: 0.7917, Adjusted R-squared: -0.5623
## F-statistic: 0.5847 on 13 and 2 DF, p-value: 0.7809
##
##
## Value of test-statistic is: -0.9147
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=LUX_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## 1 2 3 4 5 6
## 0.0100724 0.0710642 0.0211882 -0.0107811 0.1331393 0.0196878
## 7 8 9 10 11 12
## 0.0138215 0.0601706 0.0314888 0.0003012 0.0281061 -0.0767948
## 13 14 15
## -0.0094602 -0.0170233 -0.0785866
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -3.7863 5.5161 -0.686 0.563
## z.diff.lag1 2.9383 5.3007 0.554 0.635
## z.diff.lag2 2.9517 5.2689 0.560 0.632
## z.diff.lag3 2.8094 5.1208 0.549 0.638
## z.diff.lag4 3.0209 5.1198 0.590 0.615
## z.diff.lag5 2.9772 4.8784 0.610 0.604
## z.diff.lag6 2.7182 4.5014 0.604 0.607
## z.diff.lag7 2.3277 3.8983 0.597 0.611
## z.diff.lag8 1.6544 3.0983 0.534 0.647
## z.diff.lag9 1.2966 2.4891 0.521 0.654
## z.diff.lag10 1.4307 2.0813 0.687 0.563
## z.diff.lag11 0.3605 1.2649 0.285 0.802
## z.diff.lag12 -0.3037 0.6305 -0.482 0.678
##
## Residual standard error: 0.1447 on 2 degrees of freedom
## Multiple R-squared: 0.8716, Adjusted R-squared: 0.03734
## F-statistic: 1.045 on 13 and 2 DF, p-value: 0.5905
##
##
## Value of test-statistic is: -0.6864
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=LUX_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## 1 2 3 4 5 6 7
## -0.002906 -0.007126 -0.005919 -0.026051 -0.004279 0.007029 0.002195
## 8 9 10 11 12 13 14
## -0.018424 -0.019352 0.019248 0.030925 0.004606 -0.002870 0.004324
## 15
## 0.001876
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 3.534 3.175 1.113 0.382
## z.diff.lag1 -4.898 3.349 -1.463 0.281
## z.diff.lag2 -5.338 3.561 -1.499 0.273
## z.diff.lag3 -6.559 3.948 -1.662 0.238
## z.diff.lag4 -8.064 4.532 -1.779 0.217
## z.diff.lag5 -8.754 4.589 -1.908 0.197
## z.diff.lag6 -7.421 3.924 -1.891 0.199
## z.diff.lag7 -5.737 3.051 -1.881 0.201
## z.diff.lag8 -5.013 2.720 -1.843 0.207
## z.diff.lag9 -5.015 2.497 -2.009 0.182
## z.diff.lag10 -3.453 1.882 -1.834 0.208
## z.diff.lag11 -1.781 1.077 -1.654 0.240
## z.diff.lag12 -1.202 0.633 -1.899 0.198
##
## Residual standard error: 0.03833 on 2 degrees of freedom
## Multiple R-squared: 0.9264, Adjusted R-squared: 0.4477
## F-statistic: 1.935 on 13 and 2 DF, p-value: 0.3918
##
##
## Value of test-statistic is: 1.113
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=LUX_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## 1 2 3 4 5 6 7
## 0.033318 0.034172 0.012583 -0.062457 0.037749 -0.064244 -0.008724
## 8 9 10 11 12 13 14
## 0.056583 -0.017279 -0.005082 0.063445 0.030997 0.040639 -0.003450
## 15
## -0.025859
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -2.92513 3.46273 -0.845 0.487
## z.diff.lag1 0.91079 3.07111 0.297 0.795
## z.diff.lag2 0.43640 2.66211 0.164 0.885
## z.diff.lag3 0.28520 2.42886 0.117 0.917
## z.diff.lag4 0.09916 2.29982 0.043 0.970
## z.diff.lag5 -0.12074 2.19869 -0.055 0.961
## z.diff.lag6 -0.40584 2.04945 -0.198 0.861
## z.diff.lag7 -0.16203 1.84594 -0.088 0.938
## z.diff.lag8 0.85322 1.75440 0.486 0.675
## z.diff.lag9 1.24156 1.84596 0.673 0.571
## z.diff.lag10 0.73617 1.79911 0.409 0.722
## z.diff.lag11 0.73610 1.45348 0.506 0.663
## z.diff.lag12 0.02817 0.98424 0.029 0.980
##
## Residual standard error: 0.1068 on 2 degrees of freedom
## Multiple R-squared: 0.8781, Adjusted R-squared: 0.08602
## F-statistic: 1.109 on 13 and 2 DF, p-value: 0.5703
##
##
## Value of test-statistic is: -0.8447
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(LUX_consumption)
plot(LUX_investment)
plot(LUX_deflator)
plot(LUX_exportdeflator)
plot(LUX_exports)
plot(LUX_imports)
bptest(LUX_consumption)
##
## studentized Breusch-Pagan test
##
## data: LUX_consumption
## BP = 1.1772, df = 2, p-value = 0.5551
bptest(LUX_investment)
##
## studentized Breusch-Pagan test
##
## data: LUX_investment
## BP = 2.4151, df = 2, p-value = 0.2989
bptest(LUX_deflator)
##
## studentized Breusch-Pagan test
##
## data: LUX_deflator
## BP = 2.7783, df = 2, p-value = 0.2493
bptest(LUX_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: LUX_exportdeflator
## BP = 1.5502, df = 2, p-value = 0.4607
bptest(LUX_exports)
##
## studentized Breusch-Pagan test
##
## data: LUX_exports
## BP = 0.3241, df = 2, p-value = 0.8504
bptest(LUX_imports)
##
## studentized Breusch-Pagan test
##
## data: LUX_imports
## BP = 5.5276, df = 2, p-value = 0.06305
resettest(LUX_consumption)
##
## RESET test
##
## data: LUX_consumption
## RESET = 1.3538, df1 = 2, df2 = 23, p-value = 0.2781
resettest(LUX_investment)
##
## RESET test
##
## data: LUX_investment
## RESET = 0.065598, df1 = 2, df2 = 23, p-value = 0.9367
resettest(LUX_deflator)
##
## RESET test
##
## data: LUX_deflator
## RESET = 0.69726, df1 = 2, df2 = 23, p-value = 0.5082
resettest(LUX_exportdeflator)
##
## RESET test
##
## data: LUX_exportdeflator
## RESET = 0.55633, df1 = 2, df2 = 23, p-value = 0.5808
resettest(LUX_exports)
##
## RESET test
##
## data: LUX_exports
## RESET = 2.1696, df1 = 2, df2 = 23, p-value = 0.137
resettest(LUX_imports)
##
## RESET test
##
## data: LUX_imports
## RESET = 2.898, df1 = 2, df2 = 23, p-value = 0.07543
LUX_regtab <- matrix(c(LUX_Ceffekt, LUX_Ieffekt, LUX_Lukket, LUX_Xeffekt, LUX_Meffekt, LUX_NXeffekt, LUX_Neteffekt,LUX_Lukket_Konklusion, LUX_Def),ncol=9,byrow=TRUE)
colnames(LUX_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(LUX_regtab) <- c("LUX")
LUX_regtab <- as.table(LUX_regtab)
LUX_regtab
## consumption investment Lukket neteffekt exports
## LUX -0.0332165846869567 0.415157606845512 0.381941022158556 0
## imports netexports neteffect Lukket konklusion Konklusion
## LUX 0 0 0.381941022158556 Profit-led domestic Profit-led
LUX_smoke <- matrix(c(mean(LUX$C/LUX$R), mean(LUX$C/LUX$W), mean(LUX$I/LUX$R), LUX_CR, LUX_CW, LUX_iPS, LUX_ePULC, (1/(1-LUX_ePULC)), LUX_eXP, LUX_ePX, LUX_eMP, mean(LUX$Yf/LUX$Y), mean(LUX$X/LUX$Y), mean(LUX$rulc), (mean(LUX$X/LUX$Y)/mean(LUX$rulc))),ncol=15,byrow=TRUE)
colnames(LUX_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(LUX_smoke) <- c("LUX")
LUX_smoke <- as.table(LUX_smoke)
LUX_smoke
## C/R C/W I/R CR CW iPS
## LUX 0.8709657 0.6300752 0.3671491 0.1181951 0.2161019 1.1307602
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## LUX 0.0000000 1.0000000 -0.1517531 0.0000000 -0.6877307 0.9040526
## X/Y RULC (X/Y)/rulc
## LUX 1.6375686 0.5246002 3.1215554
summary(LUX_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$C_dl ~ LUX$R_dl + LUX$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.044084 -0.007362 0.000805 0.011281 0.027121
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.014015 0.005198 2.696 0.0124 *
## R_dl 0.118195 0.050826 2.325 0.0285 *
## W_dl 0.216102 0.115934 1.864 0.0741 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01576 on 25 degrees of freedom
## Multiple R-squared: 0.2594, Adjusted R-squared: 0.2002
## F-statistic: 4.379 on 2 and 25 DF, p-value: 0.02342
summary(LUX_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$I_dl ~ LUX$PS_dl + LUX$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.21033 -0.07019 0.01351 0.07917 0.16629
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.063678 0.264001 0.241 0.8114
## PS_dl 1.130760 0.534300 2.116 0.0444 *
## Y_l -0.008462 0.072567 -0.117 0.9081
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.1066 on 25 degrees of freedom
## Multiple R-squared: 0.152, Adjusted R-squared: 0.08417
## F-statistic: 2.241 on 2 and 25 DF, p-value: 0.1273
summary(LUX_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$P_dl ~ L(LUX$ulc_dl) + LUX$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.039551 -0.010265 -0.001849 0.011454 0.038311
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.014431 0.007007 2.060 0.050 *
## L(ulc_dl) 0.266138 0.165782 1.605 0.121
## Pm_dl 0.166873 0.113262 1.473 0.153
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01922 on 25 degrees of freedom
## Multiple R-squared: 0.1227, Adjusted R-squared: 0.05248
## F-statistic: 1.748 on 2 and 25 DF, p-value: 0.1948
summary(LUX_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$Px_dl ~ LUX$ulc_dl + LUX$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0295169 -0.0068485 -0.0003027 0.0058401 0.0263902
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.003649 0.005064 0.721 0.478
## ulc_dl 0.073905 0.119813 0.617 0.543
## Pm_dl 0.864097 0.081856 10.556 0.000000000106 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01389 on 25 degrees of freedom
## Multiple R-squared: 0.8313, Adjusted R-squared: 0.8178
## F-statistic: 61.59 on 2 and 25 DF, p-value: 0.0000000002186
summary(LUX_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$X_dl ~ L(LUX$dPxdPm) + LUX$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.058019 -0.022673 -0.005236 0.020022 0.096733
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.004498 0.013642 -0.330 0.744
## L(dPxdPm) -0.151753 0.504810 -0.301 0.766
## Yrw_dl 3.014212 0.544784 5.533 0.00000945 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03664 on 25 degrees of freedom
## Multiple R-squared: 0.577, Adjusted R-squared: 0.5432
## F-statistic: 17.05 on 2 and 25 DF, p-value: 0.00002134
summary(LUX_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 28
##
## Call:
## dynlm(formula = LUX$M_dl ~ LUX$dPdPm + L(LUX$Y_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.153896 -0.022403 -0.002019 0.029914 0.133789
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.15506 0.14481 1.071 0.2945
## dPdPm -0.68773 0.30444 -2.259 0.0329 *
## L(Y_l) -0.02694 0.03982 -0.677 0.5049
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05849 on 25 degrees of freedom
## Multiple R-squared: 0.1797, Adjusted R-squared: 0.1141
## F-statistic: 2.738 on 2 and 25 DF, p-value: 0.08408
NLD_df[!complete.cases(NLD_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.6246892 -0.4705010 NA 0.3753108 -0.9800008 NA
## 1961 0.6473721 -0.4348341 0.035666958 0.3526279 -1.0423418 -0.062341018
## 1962 0.6557791 -0.4219313 0.012902771 0.3442209 -1.0664717 -0.024129831
## 1963 0.6704313 -0.3998340 0.022097271 0.3295687 -1.1099705 -0.043498830
## 1964 0.6753044 -0.3925918 0.007242243 0.3246956 -1.1248671 -0.014896552
## 1965 0.6823731 -0.3821788 0.010413001 0.3176269 -1.1468777 -0.022010652
## 1966 0.7040509 -0.3509046 0.031274156 0.2959491 -1.2175678 -0.070690112
## 1967 0.6999513 -0.3567446 -0.005839939 0.3000487 -1.2038104 0.013757422
## 1968 0.6961662 -0.3621668 -0.005422247 0.3038338 -1.1912746 0.012535841
## 1969 0.7004978 -0.3559640 0.006202787 0.2995022 -1.2056336 -0.014359050
## 1970 0.7146329 -0.3359864 0.019977659 0.2853671 -1.2539787 -0.048345097
## 2019 0.6415022 -0.4439426 0.002708722 0.3584978 -1.0258328 -0.004828799
## 2020 0.6589239 -0.4171472 0.026795430 0.3410761 -1.0756497 -0.049816894
## 2021 0.6498134 -0.4310701 -0.013922854 0.3501866 -1.0492891 0.026360628
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl Tax
## 1960 152.5731 5.027644 NA NA NA NA 2.1518
## 1961 157.2464 5.057814 0.03017018 NA NA NA 2.3593
## 1962 163.4963 5.096790 0.03897636 NA NA NA 2.5427
## 1963 169.4224 5.132395 0.03560464 NA NA NA 2.7512
## 1964 183.4424 5.211901 0.07950572 NA NA NA 3.2085
## 1965 193.0706 5.263056 0.05115520 NA NA NA 3.6089
## 1966 198.3633 5.290100 0.02704427 NA NA NA 3.9908
## 1967 208.8360 5.341549 0.05144906 NA NA NA 4.4201
## 1968 222.2367 5.403743 0.06219378 NA NA NA 5.0954
## 1969 236.5241 5.466050 0.06230708 NA NA NA 5.3299
## 1970 251.0471 5.525641 0.05959047 15150410523663 30.34905 NA 6.2456
## 2019 757.9846 6.630663 0.01794310 NA NA NA 100.6170
## 2020 706.0786 6.559727 -0.07093651 NA NA NA 88.2715
## 2021 741.1258 6.608170 0.04844382 NA NA NA 95.6863
## 2022 NA NA NA NA NA NA NA
## Yf Yf_l Yf_dl C C_l C_dl W
## 1960 150.4213 5.013440 NA 74.2180 4.307007 NA 93.96656
## 1961 154.8871 5.042696 0.02925644 78.0881 4.357838 0.05083097 100.26958
## 1962 160.9536 5.081116 0.03841966 82.8695 4.417267 0.05942940 105.55001
## 1963 166.6712 5.116023 0.03490688 88.7077 4.485347 0.06807961 111.74159
## 1964 180.2339 5.194255 0.07823244 93.9382 4.542637 0.05729042 121.71274
## 1965 189.4617 5.244187 0.04993144 100.9651 4.614775 0.07213779 129.28356
## 1966 194.3725 5.269776 0.02558953 104.1747 4.646069 0.03129438 136.84813
## 1967 204.4159 5.320157 0.05038022 109.8411 4.699035 0.05296548 143.08117
## 1968 217.1413 5.380548 0.06039165 117.0793 4.762851 0.06381671 151.16644
## 1969 231.1942 5.443258 0.06270976 126.3252 4.838860 0.07600805 161.95103
## 1970 244.8015 5.500448 0.05718963 135.2748 4.907308 0.06844873 174.94320
## 2019 657.3676 6.488243 0.00976553 333.1877 5.808706 0.01431163 421.70277
## 2020 617.8071 6.426176 -0.06206710 301.5349 5.708886 -0.09982023 407.08787
## 2021 645.4395 6.469931 0.04375521 323.2755 5.778505 0.06961914 419.41522
## 2022 NA NA NA NA NA NA NA
## W_l W_dl R R_l R_dl It
## 1960 4.542939 NA 56.45474 4.033439 NA 32.1195
## 1961 4.607862 0.06492340 54.61752 4.000355 -0.033084577 34.0582
## 1962 4.659185 0.05132243 55.40359 4.014644 0.014289830 35.2132
## 1963 4.716189 0.05700416 54.92961 4.006053 -0.008591945 35.6119
## 1964 4.801664 0.08547469 58.52116 4.069388 0.063335891 42.4318
## 1965 4.862008 0.06034444 60.17814 4.097309 0.027920789 44.6867
## 1966 4.918872 0.05686368 57.52437 4.052209 -0.045100584 48.2754
## 1967 4.963412 0.04454028 61.33473 4.116346 0.064137645 52.3591
## 1968 5.018381 0.05496940 65.97486 4.189274 0.072927491 58.2028
## 1969 5.087294 0.06891254 69.24317 4.237624 0.048350706 56.8965
## 1970 5.164461 0.07716729 69.85830 4.246469 0.008844531 63.6203
## 2019 6.044301 0.01247425 235.66483 5.462411 0.004936732 160.0549
## 2020 6.009029 -0.03527167 210.71923 5.350527 -0.111883996 142.1287
## 2021 6.038861 0.02983235 226.02428 5.420642 0.070115835 150.5143
## 2022 NA NA NA NA NA NA
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1960 3.469463 NA 5.8966 1.774376 NA NA NA
## 1961 3.528071 0.05860750 6.4033 1.856813 0.08243757 NA NA
## 1962 3.561421 0.03335019 6.7967 1.916437 0.05962372 NA NA
## 1963 3.572680 0.01125884 7.1650 1.969208 0.05277086 NA NA
## 1964 3.747898 0.17521823 9.0443 2.202135 0.23292666 NA NA
## 1965 3.799676 0.05177784 9.9591 2.298487 0.09635198 NA NA
## 1966 3.876922 0.07724620 11.3165 2.426262 0.12777513 NA NA
## 1967 3.958126 0.08120364 12.4659 2.522997 0.09673508 NA NA
## 1968 4.063933 0.10580771 14.0919 2.645600 0.12260325 NA NA
## 1969 4.041234 -0.02269964 14.5938 2.680597 0.03499662 NA NA
## 1970 4.152933 0.11169877 17.6123 2.868598 0.18800074 13.8125 2.625574
## 2019 5.075517 0.05139889 170.6320 5.139509 0.08007103 143.3600 4.965359
## 2020 4.956733 -0.11878390 154.0971 5.037583 -0.10192627 126.2796 4.838498
## 2021 5.014058 0.05732511 165.9630 5.111765 0.07418195 136.1984 4.914113
## 2022 NA NA NA NA NA NA NA
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA 0.7842531 -0.2430235 NA 49.89441 3.909909
## 2019 0.08294346 0.8401707 -0.1741502 0.002872431 134.47343 4.901367
## 2020 -0.12686045 0.8194807 -0.1990844 -0.024934186 116.47173 4.757649
## 2021 0.07561415 0.8206552 -0.1976522 0.001432201 123.52034 4.816406
## 2022 NA NA NA NA NA NA
## I_dl r r_l r_dl P P_l
## 1960 NA NA NA NA 15.07373 2.712954
## 1961 NA 1.4366647 1.7737715 NA 15.44128 2.737044
## 1962 NA 0.6482899 1.6301543 -0.14361720 15.98771 2.771820
## 1963 NA -0.4551668 1.3865957 -0.24355858 16.73858 2.817716
## 1964 NA -3.4563725 0.0000000 -1.38659574 18.19086 2.900919
## 1965 NA -0.8536235 1.2816972 1.28169717 19.30338 2.960280
## 1966 NA 0.2417728 1.5471678 0.26547065 20.45845 3.018396
## 1967 NA 1.7204114 1.8207977 0.27362992 21.31918 3.059607
## 1968 NA 1.9426671 1.8561479 0.03535019 22.21369 3.100709
## 1969 NA 0.5889648 1.6184645 -0.23768341 23.63831 3.162869
## 1970 NA 2.0683482 1.8755981 0.25713364 24.97267 3.217782
## 2019 0.05427132 -3.0231646 0.3599152 -0.69221510 107.13292 4.674070
## 2020 -0.14371808 NA NA NA 108.28010 4.684721
## 2021 0.05875731 NA NA NA 109.87773 4.699368
## 2022 NA NA NA NA NA NA
## P_dl Pm Pm_l Pm_dl Px Px_l
## 1960 NA 37.68250 3.629196 NA 37.44019 3.622745
## 1961 0.02409053 36.96560 3.609988 -0.019208087 36.81553 3.605920
## 1962 0.03477593 36.63744 3.601071 -0.008916859 36.77273 3.604756
## 1963 0.04589592 37.13702 3.614614 0.013543398 37.71881 3.630159
## 1964 0.08320315 38.02338 3.638201 0.023587092 38.64370 3.654384
## 1965 0.05936105 38.22732 3.643550 0.005349178 39.52913 3.677038
## 1966 0.05811569 38.49877 3.650626 0.007075912 39.79842 3.683827
## 1967 0.04121111 38.16316 3.641871 -0.008755839 39.78788 3.683562
## 1968 0.04110185 37.07492 3.612941 -0.028929836 39.57151 3.678109
## 1969 0.06216004 38.31313 3.645793 0.032851956 40.43542 3.699706
## 1970 0.05491325 40.84220 3.709716 0.063923218 42.77836 3.756032
## 2019 0.02999780 101.40376 4.619110 -0.003728627 102.18906 4.626825
## 2020 0.01065105 100.34204 4.608585 -0.010525377 101.01532 4.615272
## 2021 0.01464681 101.13663 4.616472 0.007887589 101.77070 4.622722
## 2022 NA NA NA NA NA NA
## Px_dl X X_l X_dl M M_l
## 1960 NA 28.2888 3.342466 NA 26.1474 3.263750
## 1961 -0.0168250414 28.9524 3.365653 0.02318714 27.8195 3.325737
## 1962 -0.0011633488 30.7594 3.426196 0.06054254 29.6143 3.388257
## 1963 0.0254023650 32.5984 3.484263 0.05806757 32.5212 3.481892
## 1964 0.0242248249 36.2845 3.591391 0.10712745 37.3534 3.620424
## 1965 0.0226542495 39.0270 3.664254 0.07286306 39.6391 3.679816
## 1966 0.0067893292 41.0659 3.715178 0.05092438 42.4310 3.747879
## 1967 -0.0002649803 43.7844 3.779278 0.06409950 45.1232 3.809397
## 1968 -0.0054528480 49.3814 3.899574 0.12029625 50.9985 3.931796
## 1969 0.0215966793 56.7614 4.038857 0.13928268 58.2084 4.064030
## 1970 0.0563261780 63.2268 4.146728 0.10787174 66.4724 4.196787
## 2019 0.0031446070 655.7796 6.485825 0.02323986 574.9698 6.354318
## 2020 -0.0115523636 586.0500 6.373405 -0.11241965 510.6670 6.235718
## 2021 0.0074500418 627.0487 6.441024 0.06761910 551.7381 6.313073
## 2022 NA NA NA NA NA NA
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1960 NA 0.6158790 -0.4847048 NA 9.283594 2.228249
## 1961 0.06198745 0.6376590 -0.4499516 0.034753222 9.846268 2.287093
## 1962 0.06252014 0.6455804 -0.4376055 0.012346073 10.321350 2.334215
## 1963 0.09363483 0.6595444 -0.4162060 0.021399510 11.039834 2.401510
## 1964 0.13853175 0.6634930 -0.4102370 0.005968968 12.069506 2.490682
## 1965 0.05939207 0.6696180 -0.4010478 0.009189239 12.925891 2.559232
## 1966 0.06806322 0.6898864 -0.3712284 0.029819411 14.114004 2.647167
## 1967 0.06151730 0.6851365 -0.3781372 -0.006908773 14.606546 2.681470
## 1968 0.12239969 0.6802047 -0.3853615 -0.007224373 15.109857 2.715347
## 1969 0.13223345 0.6847126 -0.3787561 0.006605468 16.185452 2.784113
## 1970 0.13275715 0.6968541 -0.3611792 0.017576822 17.402308 2.856603
## 2019 0.03054618 0.5563474 -0.5863623 -0.005468845 59.603123 4.087708
## 2020 -0.11859980 0.5765475 -0.5506975 0.035664834 62.428622 4.134024
## 2021 0.07735576 0.5659164 -0.5693090 -0.018611466 62.181605 4.130059
## 2022 NA NA NA NA NA NA
## ulc_dl Tau Tau_l Tau_dl dPxdPm
## 1960 NA 51.10206 3.933825 NA NA
## 1961 0.058843755 51.48039 3.941201 0.0073760749 0.0023830453
## 1962 0.047122006 52.16576 3.954426 0.0132253889 0.0077535103
## 1963 0.067295430 52.92422 3.968861 0.0144348464 0.0118589672
## 1964 0.089172118 55.74544 4.020796 0.0519345163 0.0006377334
## 1965 0.068550285 57.37728 4.049648 0.0288527304 0.0173050717
## 1966 0.087935101 57.61206 4.053732 0.0040834852 -0.0002865824
## 1967 0.034302336 59.61781 4.087954 0.0342224690 0.0084908584
## 1968 0.033877474 61.78409 4.123646 0.0356915915 0.0234769882
## 1969 0.068765506 63.91119 4.157495 0.0338485815 -0.0112552772
## 1970 0.072490067 65.91208 4.188322 0.0308271553 -0.0075970395
## 2019 0.024528956 101.81515 4.623159 -0.0002551426 0.0068732344
## 2020 0.046315888 95.97498 4.564088 -0.0590714143 -0.0010269866
## 2021 -0.003964652 99.47944 4.599951 0.0358634387 -0.0004375477
## 2022 NA NA NA NA NA
## dPdPm Trade
## 1960 NA 0.3567877
## 1961 0.043298619 0.3610378
## 1962 0.043692792 0.3692665
## 1963 0.032352522 0.3843624
## 1964 0.059616058 0.4014225
## 1965 0.054011869 0.4074473
## 1966 0.051039778 0.4209292
## 1967 0.049966948 0.4257293
## 1968 0.070031683 0.4516801
## 1969 0.029308082 0.4860807
## 1970 -0.009009972 0.5166329
## 2019 0.033726428 1.6237129
## 2020 0.021176431 1.5532506
## 2021 0.006759224 1.5905354
## 2022 NA NA
NLD <- NLD_df[12:59,]
NLD[!complete.cases(NLD),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
NLD %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1971 0.7264663 -0.3195632 0.016423113 0.2735337 -1.296330 -0.042351587
## 1972 0.7279529 -0.3175189 0.002044315 0.2720471 -1.301780 -0.005449783
## 1973 0.7328636 -0.3107957 0.006723235 0.2671364 -1.319996 -0.018215779
## 1974 0.7219233 -0.3258364 -0.015040719 0.2780767 -1.279858 0.040137634
## 1975 0.7578675 -0.2772467 0.048589737 0.2421325 -1.418270 -0.138412076
## 1976 0.7383480 -0.3033401 -0.026093390 0.2616520 -1.340740 0.077530517
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1971 261.8848 5.567905 0.04226414148 15750408117239 30.38789 0.038838648
## 1972 271.1395 5.602633 0.03472873617 16631916448500 30.44234 0.054457250
## 1973 285.9009 5.655645 0.05301179869 17685563623062 30.50377 0.061425165
## 1974 295.7322 5.689454 0.03380906780 17897666888197 30.51569 0.011921671
## 1975 295.7382 5.689475 0.00002028842 17877631071485 30.51457 -0.001120092
## 1976 308.9173 5.733074 0.04359900004 18767853561787 30.56317 0.048595219
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1971 7.1202 254.7646 5.540340 0.039892303 139.7598 4.939925 0.03261697
## 1972 8.0689 263.0706 5.572422 0.032082456 143.2075 4.964295 0.02436939
## 1973 9.1045 276.7964 5.623282 0.050859781 150.2992 5.012628 0.04833335
## 1974 9.6692 286.0630 5.656212 0.032929848 155.4734 5.046475 0.03384668
## 1975 10.8808 284.8574 5.651989 -0.004223362 160.5610 5.078674 0.03219928
## 1976 13.0489 295.8684 5.689915 0.037926057 169.4646 5.132644 0.05397012
## W W_l W_dl R R_l R_dl It
## 1971 185.0779 5.220777 0.05631542 69.68671 4.244010 -0.002459283 65.9279
## 1972 191.5030 5.254904 0.03412677 71.56759 4.270642 0.026632672 63.2236
## 1973 202.8540 5.312487 0.05758302 73.94240 4.303286 0.032644002 64.9272
## 1974 206.5155 5.330376 0.01788913 79.54746 4.376354 0.073067483 61.2688
## 1975 215.8842 5.374742 0.04436637 68.97323 4.233718 -0.142635438 60.0045
## 1976 218.4538 5.386575 0.01183267 77.41457 4.349175 0.115456574 60.1280
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1971 4.188562 0.035629119 20.0975 3.000595 0.13199791 15.7326 2.755735
## 1972 4.146678 -0.041884071 20.8350 3.036634 0.03603884 16.5127 2.804130
## 1973 4.173267 0.026588993 22.7075 3.122695 0.08606100 18.2217 2.902613
## 1974 4.115271 -0.057995901 23.8839 3.173205 0.05050933 18.9047 2.939411
## 1975 4.094420 -0.020851182 25.8096 3.250747 0.07754192 19.8442 2.987912
## 1976 4.096476 0.002056064 28.0960 3.335627 0.08488070 21.5427 3.070037
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1971 0.13016101 0.7828138 -0.2448604 -0.001836894 51.60927 3.943701
## 1972 0.04839479 0.7925462 -0.2325045 0.012355953 50.10762 3.914173
## 1973 0.09848341 0.8024529 -0.2200821 0.012422408 52.10102 3.953185
## 1974 0.03679738 0.7915248 -0.2337940 -0.013711949 48.49578 3.881477
## 1975 0.04850120 0.7688689 -0.2628347 -0.029040719 46.13560 3.831585
## 1976 0.08212524 0.7667533 -0.2655902 -0.002755463 46.10334 3.830885
## I_dl r r_l r_dl P P_l
## 1971 0.0337922246 -1.5994409 1.0497482 -0.82584997 27.16778 3.302032
## 1972 -0.0295281180 -1.3790667 1.1240545 0.07430629 29.38511 3.380488
## 1973 0.0390114013 -1.0794490 1.2169651 0.09291061 31.87726 3.461893
## 1974 -0.0717078496 -1.9537108 0.9173548 -0.29961024 35.98804 3.583187
## 1975 -0.0498919011 0.9756315 1.6923081 0.77495328 38.90141 3.661031
## 1976 -0.0006993988 0.1897045 1.5360232 -0.15628492 42.39991 3.747146
## P_dl Pm Pm_l Pm_dl Px Px_l Px_dl
## 1971 0.08424953 42.39340 3.746993 0.03727682 44.14418 3.787461 0.03142873
## 1972 0.07845641 42.30801 3.744976 -0.00201631 44.94290 3.805393 0.01793178
## 1973 0.08140483 45.39563 3.815416 0.07043955 48.22359 3.875848 0.07045559
## 1974 0.12129380 60.23930 4.098325 0.28290899 60.73872 4.106581 0.23073300
## 1975 0.07784387 63.01104 4.143310 0.04498503 63.77934 4.155429 0.04884792
## 1976 0.08611563 67.04356 4.205342 0.06203253 67.99116 4.219378 0.06394844
## X X_l X_dl M M_l M_dl rulc
## 1971 69.9592 4.247912 0.10118395 70.4317 4.254643 0.05785662 0.7067149
## 1972 76.8750 4.342181 0.09426851 74.0635 4.304923 0.05027939 0.7062896
## 1973 85.8283 4.452349 0.11016806 81.8019 4.404300 0.09937764 0.7095256
## 1974 88.2802 4.480516 0.02816706 80.6607 4.390251 -0.01404900 0.6983194
## 1975 85.6623 4.450413 -0.03010302 78.4335 4.362251 -0.02800034 0.7299841
## 1976 93.5405 4.538394 0.08798168 86.3914 4.458888 0.09663700 0.7071596
## rulc_l rulc_dl ulc ulc_l ulc_dl Tau
## 1971 -0.3471280 0.0140512753 19.19987 2.954904 0.09830080 67.04653
## 1972 -0.3477299 -0.0006019654 20.75440 3.032758 0.07785445 68.44586
## 1973 -0.3431587 0.0045712173 22.61773 3.118734 0.08597605 70.59599
## 1974 -0.3590787 -0.0159199384 25.13115 3.224108 0.10537386 71.79596
## 1975 -0.3147326 0.0443460860 28.39741 3.346298 0.12218995 71.12213
## 1976 -0.3464989 -0.0317663337 29.98350 3.400647 0.05434930 73.25262
## Tau_l Tau_dl dPxdPm dPdPm Trade
## 1971 4.205387 0.017065220 -0.00584809475 0.04697271 0.5360788
## 1972 4.226043 0.020656243 0.01994808720 0.08047272 0.5566821
## 1973 4.256973 0.030930142 0.00001604172 0.01096528 0.5863227
## 1974 4.273828 0.016854930 -0.05217599392 -0.16161519 0.5712631
## 1975 4.264399 -0.009429671 0.00386288486 0.03285883 0.5548685
## 1976 4.293914 0.029515434 0.00191591064 0.02408310 0.5824598
NLD %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1971 0.7264663 -0.3195632 0.0164231133 0.2735337 -1.2963303 -0.0423515868
## 1972 0.7279529 -0.3175189 0.0020443151 0.2720471 -1.3017801 -0.0054497833
## 1973 0.7328636 -0.3107957 0.0067232353 0.2671364 -1.3199959 -0.0182157789
## 1974 0.7219233 -0.3258364 -0.0150407190 0.2780767 -1.2798582 0.0401376344
## 1975 0.7578675 -0.2772467 0.0485897366 0.2421325 -1.4182703 -0.1384120758
## 1976 0.7383480 -0.3033401 -0.0260933904 0.2616520 -1.3407398 0.0775305172
## 1977 0.7519036 -0.2851471 0.0181929573 0.2480964 -1.3939380 -0.0531982635
## 1978 0.7504834 -0.2870377 -0.0018906252 0.2495166 -1.3882299 0.0057081667
## 1979 0.7539380 -0.2824452 0.0045925299 0.2460620 -1.4021716 -0.0139416823
## 1980 0.7421395 -0.2982181 -0.0157728904 0.2578605 -1.3553364 0.0468351492
## 1981 0.7188943 -0.3300410 -0.0318228841 0.2811057 -1.2690244 0.0863119748
## 1982 0.7191734 -0.3296528 0.0003881987 0.2808266 -1.2700179 -0.0009934578
## 1983 0.7057165 -0.3485417 -0.0188888910 0.2942835 -1.2232117 0.0468061748
## 1984 0.6734296 -0.3953718 -0.0468301617 0.3265704 -1.1191097 0.1041020117
## 1985 0.6755062 -0.3922930 0.0030788311 0.3244938 -1.1254887 -0.0063790265
## 1986 0.6864126 -0.3762764 0.0160166470 0.3135874 -1.1596772 -0.0341884854
## 1987 0.7034040 -0.3518239 0.0244524660 0.2965960 -1.2153843 -0.0557070839
## 1988 0.6927702 -0.3670570 -0.0152330933 0.3072298 -1.1801592 0.0352251222
## 1989 0.6726159 -0.3965808 -0.0295238264 0.3273841 -1.1166212 0.0635379294
## 1990 0.6752146 -0.3927246 0.0038561586 0.3247854 -1.1245908 -0.0079695080
## 1991 0.6786129 -0.3877044 0.0050202467 0.3213871 -1.1351090 -0.0105182397
## 1992 0.6898557 -0.3712729 0.0164315165 0.3101443 -1.1707175 -0.0356084954
## 1993 0.6980980 -0.3593958 0.0118770623 0.3019020 -1.1976527 -0.0269352383
## 1994 0.6817535 -0.3830871 -0.0236912441 0.3182465 -1.1449292 0.0527235695
## 1995 0.6771486 -0.3898646 -0.0067774957 0.3228514 -1.1305631 0.0143661002
## 1996 0.6722570 -0.3971146 -0.0072500732 0.3277430 -1.1155254 0.0150376784
## 1997 0.6607836 -0.4143289 -0.0172143070 0.3392164 -1.0811169 0.0344084855
## 1998 0.6554900 -0.4223723 -0.0080433626 0.3445100 -1.0656320 0.0154848754
## 1999 0.6611453 -0.4137817 0.0085905933 0.3388547 -1.0821837 -0.0165517251
## 2000 0.6577857 -0.4188762 -0.0050944432 0.3422143 -1.0723180 0.0098657516
## 2001 0.6510131 -0.4292255 -0.0103493273 0.3489869 -1.0527210 0.0195970420
## 2002 0.6563087 -0.4211240 0.0081015213 0.3436913 -1.0680115 -0.0152905711
## 2003 0.6584868 -0.4178108 0.0033131737 0.3415132 -1.0743690 -0.0063574553
## 2004 0.6506662 -0.4297586 -0.0119477618 0.3493338 -1.0517273 0.0226416702
## 2005 0.6380301 -0.4493699 -0.0196113290 0.3619699 -1.0161941 0.0355331947
## 2006 0.6237003 -0.4720853 -0.0227153840 0.3762997 -0.9773695 0.0388246484
## 2007 0.6210026 -0.4764200 -0.0043347117 0.3789974 -0.9702260 0.0071434715
## 2008 0.6271004 -0.4666486 0.0097714134 0.3728996 -0.9864462 -0.0162201769
## 2009 0.6554352 -0.4224558 0.0441927447 0.3445648 -1.0654731 -0.0790269762
## 2010 0.6405308 -0.4454580 -0.0230022313 0.3594692 -1.0231268 0.0423463235
## 2011 0.6461201 -0.4367699 0.0086881254 0.3538799 -1.0387976 -0.0156707881
## 2012 0.6538472 -0.4248816 0.0118883423 0.3461528 -1.0608750 -0.0220773991
## 2013 0.6533783 -0.4255990 -0.0007174570 0.3466217 -1.0595212 0.0013538000
## 2014 0.6565472 -0.4207606 0.0048384128 0.3434528 -1.0687057 -0.0091845050
## 2015 0.6422211 -0.4428226 -0.0220619834 0.3577789 -1.0278401 0.0408655713
## 2016 0.6481206 -0.4336785 0.0091441190 0.3518794 -1.0444668 -0.0166266331
## 2017 0.6417908 -0.4434929 -0.0098144399 0.3582092 -1.0266380 0.0178287482
## 2018 0.6397669 -0.4466514 -0.0031584418 0.3602331 -1.0210040 0.0056340399
## Y Y_l Y_dl Yrw Yrw_l
## 1971 261.8848 5.567905 0.04226414148 15750408117239 30.38789
## 1972 271.1395 5.602633 0.03472873617 16631916448500 30.44234
## 1973 285.9009 5.655645 0.05301179869 17685563623062 30.50377
## 1974 295.7322 5.689454 0.03380906780 17897666888197 30.51569
## 1975 295.7382 5.689475 0.00002028842 17877631071485 30.51457
## 1976 308.9173 5.733074 0.04359900004 18767853561787 30.56317
## 1977 316.7033 5.757965 0.02489176991 19493175657261 30.60109
## 1978 325.2424 5.784571 0.02660537703 20293473258856 30.64132
## 1979 331.7934 5.804512 0.01994173558 21133717475995 30.68189
## 1980 336.2457 5.817842 0.01332965667 21448495557203 30.69668
## 1981 333.6109 5.809975 -0.00786679892 21871810318979 30.71622
## 1982 329.4716 5.797490 -0.01248518478 21857771403977 30.71558
## 1983 336.2915 5.817978 0.02048818435 22450443714608 30.74233
## 1984 346.5877 5.848136 0.03015754568 23470892366375 30.78678
## 1985 355.5303 5.873610 0.02547458862 24311779967513 30.82198
## 1986 365.4388 5.901099 0.02748834563 25100966968525 30.85393
## 1987 372.4963 5.920227 0.01912828157 25977209946787 30.88824
## 1988 385.3147 5.954060 0.03383329811 27228748253865 30.93529
## 1989 402.3461 5.997313 0.04325226050 28288498629959 30.97348
## 1990 419.1772 6.038294 0.04098107872 29175482009214 31.00435
## 1991 429.4014 6.062392 0.02409840359 29619679790305 31.01946
## 1992 436.7273 6.079309 0.01691682705 30232432072216 31.03994
## 1993 442.2194 6.091806 0.01249716616 30594080866825 31.05183
## 1994 455.3139 6.120987 0.02918093218 31566178093413 31.08311
## 1995 469.5017 6.151672 0.03068484832 32480700184418 31.11167
## 1996 485.9283 6.186061 0.03438916264 33437776912703 31.14071
## 1997 506.9644 6.228441 0.04237970201 34547942481078 31.17337
## 1998 530.6088 6.274025 0.04558424240 35481553672282 31.20003
## 1999 557.3199 6.323139 0.04911437525 36628242274192 31.23184
## 2000 580.7031 6.364240 0.04110020893 38096193711139 31.27114
## 2001 594.2158 6.387243 0.02300294230 38661977936717 31.28588
## 2002 595.5069 6.389413 0.00217042258 39240985126626 31.30074
## 2003 596.4337 6.390968 0.00155511137 40098106250675 31.32235
## 2004 608.2726 6.410623 0.01965504975 41420613187863 31.35480
## 2005 620.7476 6.430925 0.02030142134 42599575246232 31.38287
## 2006 642.2316 6.464949 0.03402442821 43929428579491 31.41361
## 2007 666.4619 6.501983 0.03703398739 45149045780320 31.44099
## 2008 680.9263 6.523454 0.02147110340 45333819154938 31.44507
## 2009 655.9576 6.486096 -0.03735792438 43833223420346 31.41141
## 2010 664.7654 6.499434 0.01333804375 45134503603434 31.44067
## 2011 675.0771 6.514827 0.01539271011 45976774779801 31.45916
## 2012 668.1214 6.504470 -0.01035701302 46568444707041 31.47194
## 2013 667.2517 6.503167 -0.00130255750 47239149041428 31.48624
## 2014 676.7493 6.517301 0.01413355809 48181474842346 31.50600
## 2015 690.0080 6.536703 0.01940229759 49248150841683 31.52789
## 2016 705.1310 6.558384 0.02168040943 50085962689365 31.54476
## 2017 725.6567 6.587077 0.02869343682 51220694481411 31.56716
## 2018 744.5053 6.612720 0.02564293300 52346484752330 31.58891
## Yrw_dl Tax Yf Yf_l Yf_dl C
## 1971 0.0388386483 7.1202 254.7646 5.540340 0.0398923035 139.7598
## 1972 0.0544572499 8.0689 263.0706 5.572422 0.0320824557 143.2075
## 1973 0.0614251653 9.1045 276.7964 5.623282 0.0508597807 150.2992
## 1974 0.0119216706 9.6692 286.0630 5.656212 0.0329298484 155.4734
## 1975 -0.0011200924 10.8808 284.8574 5.651989 -0.0042233621 160.5610
## 1976 0.0485952188 13.0489 295.8684 5.689915 0.0379260567 169.4646
## 1977 0.0379189487 15.4060 301.2973 5.708097 0.0181827241 175.9171
## 1978 0.0402348820 16.5236 308.7188 5.732431 0.0243333453 184.2872
## 1979 0.0405704297 17.5722 314.2212 5.750097 0.0176663663 187.3557
## 1980 0.0147847560 18.1159 318.1298 5.762459 0.0123622791 187.2866
## 1981 0.0195441019 18.2709 315.3400 5.753651 -0.0088080538 182.8186
## 1982 -0.0006420787 19.2175 310.2541 5.737392 -0.0162597827 180.1753
## 1983 0.0267538496 20.1232 316.1683 5.756275 0.0188830276 182.4439
## 1984 0.0444506522 21.6766 324.9111 5.783552 0.0272769397 183.5477
## 1985 0.0351999745 22.7401 332.7902 5.807512 0.0239606549 186.0982
## 1986 0.0319453648 24.2416 341.1972 5.832461 0.0249483479 190.5047
## 1987 0.0343132431 25.6590 346.8373 5.848856 0.0163951847 194.4601
## 1988 0.0470537231 26.5257 358.7890 5.882734 0.0338786781 197.4771
## 1989 0.0381819770 26.4267 375.9194 5.929375 0.0466402867 203.7086
## 1990 0.0308733861 27.9651 391.2121 5.969250 0.0398751094 211.9373
## 1991 0.0151102988 29.9903 399.4111 5.989991 0.0207413441 217.6764
## 1992 0.0204762596 31.0179 405.7094 6.005637 0.0156459275 219.2339
## 1993 0.0118912967 33.6429 408.5765 6.012679 0.0070420275 221.0120
## 1994 0.0312796794 34.0048 421.3091 6.043367 0.0306876013 225.3240
## 1995 0.0285598386 35.9590 433.5427 6.071990 0.0286235234 231.3279
## 1996 0.0290402337 38.3720 447.5563 6.103802 0.0318120479 242.7238
## 1997 0.0326616904 41.1490 465.8154 6.143789 0.0399870784 252.8604
## 1998 0.0266649501 44.0450 486.5638 6.187368 0.0435786155 267.0629
## 1999 0.0318066431 49.0280 508.2919 6.231056 0.0436878550 282.9711
## 2000 0.0392947849 51.8270 528.8761 6.270754 0.0396983001 293.3371
## 2001 0.0147422603 57.2130 537.0028 6.286003 0.0152491197 299.3355
## 2002 0.0148651047 58.8510 536.6559 6.285357 -0.0006462017 302.8192
## 2003 0.0216073680 60.3410 536.0927 6.284307 -0.0010500131 302.4242
## 2004 0.0324495525 62.9190 545.3536 6.301434 0.0171272977 304.7224
## 2005 0.0280656225 66.1670 554.5806 6.318212 0.0167777608 307.4955
## 2006 0.0307401679 70.7880 571.4436 6.348166 0.0299536383 307.0163
## 2007 0.0273846948 73.1840 593.2779 6.385663 0.0374971326 312.7719
## 2008 0.0040841685 75.6140 605.3123 6.405745 0.0200815999 315.5559
## 2009 -0.0336612582 71.1930 584.7646 6.371209 -0.0345351501 309.6065
## 2010 0.0292549452 72.5530 592.2124 6.383865 0.0126559812 309.9318
## 2011 0.0184893722 72.3890 602.6881 6.401400 0.0175344615 310.1473
## 2012 0.0127867867 70.9840 597.1374 6.392147 -0.0092525781 306.6082
## 2013 0.0142998181 73.7740 593.4777 6.386000 -0.0061475980 303.6522
## 2014 0.0197516302 78.0790 598.6703 6.394711 0.0087113896 304.7902
## 2015 0.0218972127 79.4300 610.5780 6.414406 0.0196950203 310.8160
## 2016 0.0168689624 84.7250 620.4060 6.430374 0.0159680529 314.2960
## 2017 0.0224028565 88.3140 637.3427 6.457308 0.0269333991 320.9938
## 2018 0.0217411466 93.5260 650.9793 6.478478 0.0211703430 328.4532
## C_l C_dl W W_l W_dl R
## 1971 4.939925 0.0326169697 185.0779 5.220777 0.056315416735 69.68671
## 1972 4.964295 0.0243693927 191.5030 5.254904 0.034126770760 71.56759
## 1973 5.012628 0.0483333466 202.8540 5.312487 0.057583015953 73.94240
## 1974 5.046475 0.0338466818 206.5155 5.330376 0.017889129380 79.54746
## 1975 5.078674 0.0321992768 215.8842 5.374742 0.044366374452 68.97323
## 1976 5.132644 0.0539701228 218.4538 5.386575 0.011832666295 77.41457
## 1977 5.170013 0.0373688059 226.5465 5.422950 0.036375681372 74.75076
## 1978 5.216495 0.0464825489 231.6883 5.445393 0.022442720051 77.03046
## 1979 5.233009 0.0165135388 236.9033 5.467652 0.022258896219 77.31791
## 1980 5.232640 -0.0003688852 236.0967 5.464241 -0.003410611316 82.03312
## 1981 5.208494 -0.0241456595 226.6961 5.423610 -0.040630937853 88.64388
## 1982 5.193930 -0.0145641385 223.1265 5.407739 -0.015871583960 87.12760
## 1983 5.206443 0.0125124626 223.1252 5.407733 -0.000005863424 93.04311
## 1984 5.212475 0.0060318507 218.8047 5.388180 -0.019553222033 106.10635
## 1985 5.226274 0.0137999122 224.8018 5.415219 0.027039486003 107.98837
## 1986 5.249677 0.0234023748 234.2021 5.456184 0.040964994890 106.99514
## 1987 5.270227 0.0205501344 243.9667 5.497032 0.040847650662 102.87056
## 1988 5.285623 0.0153956276 248.5583 5.515677 0.018645584725 110.23068
## 1989 5.316691 0.0310679130 252.8494 5.532794 0.017116460366 123.07003
## 1990 5.356290 0.0395999349 264.1521 5.576525 0.043731268055 127.05996
## 1991 5.383010 0.0267190801 271.0455 5.602287 0.025761590808 128.36557
## 1992 5.390139 0.0071296401 279.8809 5.634364 0.032077443960 125.82847
## 1993 5.398217 0.0080778023 285.2264 5.653283 0.018919089771 123.35007
## 1994 5.417539 0.0193223677 287.2290 5.660280 0.006996357214 134.08013
## 1995 5.443836 0.0262968181 293.5728 5.682126 0.021846027685 139.96988
## 1996 5.491924 0.0480879868 300.8728 5.706688 0.024561974749 146.68346
## 1997 5.532838 0.0409133864 307.8032 5.729460 0.022772771406 158.01224
## 1998 5.587484 0.0546466534 318.9377 5.764996 0.035535252934 167.62612
## 1999 5.645345 0.0578605611 336.0548 5.817274 0.052278448310 172.23712
## 2000 5.681322 0.0359776873 347.8871 5.851878 0.034603856918 180.98899
## 2001 5.701565 0.0202425583 349.5959 5.856778 0.004899792402 187.40693
## 2002 5.713136 0.0115709098 352.2120 5.864233 0.007455319682 184.44394
## 2003 5.711831 -0.0013052602 353.0100 5.866496 0.002263160544 183.08273
## 2004 5.719401 0.0075705307 354.8431 5.871676 0.005179535946 190.51046
## 2005 5.728460 0.0090592548 353.8391 5.868842 -0.002833568242 200.74151
## 2006 5.726901 -0.0015596124 356.4096 5.876081 0.007238254346 215.03404
## 2007 5.745474 0.0185733302 368.4271 5.909243 0.033162420894 224.85077
## 2008 5.754336 0.0088616745 379.5916 5.939096 0.029853013356 225.72069
## 2009 5.735302 -0.0190337090 383.2753 5.948754 0.009657594614 201.48929
## 2010 5.736352 0.0010501369 379.3303 5.938407 -0.010346250053 212.88211
## 2011 5.737047 0.0006950726 389.4089 5.964630 0.026222586940 213.27922
## 2012 5.725571 -0.0114766349 390.4366 5.967266 0.002635764155 206.70078
## 2013 5.715883 -0.0096877435 387.7654 5.960401 -0.006865055014 205.71227
## 2014 5.719624 0.0037407036 393.0553 5.973950 0.013549802382 205.61496
## 2015 5.739201 0.0195774262 392.1261 5.971583 -0.002366963117 218.45191
## 2016 5.750335 0.0111341198 402.0979 5.996696 0.025112171885 218.30809
## 2017 5.771422 0.0210865913 409.0407 6.013815 0.017118959167 228.30204
## 2018 5.794394 0.0229725537 416.4750 6.031826 0.018011901172 234.50428
## R_l R_dl It It_l It_dl Itcurr
## 1971 4.244010 -0.0024592833 65.9279 4.188562 0.035629119 20.0975
## 1972 4.270642 0.0266326724 63.2236 4.146678 -0.041884071 20.8350
## 1973 4.303286 0.0326440018 64.9272 4.173267 0.026588993 22.7075
## 1974 4.376354 0.0730674828 61.2688 4.115271 -0.057995901 23.8839
## 1975 4.233718 -0.1426354379 60.0045 4.094420 -0.020851182 25.8096
## 1976 4.349175 0.1154565739 60.1280 4.096476 0.002056064 28.0960
## 1977 4.314159 -0.0350155394 64.1076 4.160563 0.064087298 32.0562
## 1978 4.344201 0.0300415120 65.2978 4.178958 0.018395423 34.7641
## 1979 4.347926 0.0037246840 63.5475 4.151788 -0.027170687 35.9665
## 1980 4.407123 0.0591974283 63.6320 4.153116 0.001328831 39.7300
## 1981 4.484627 0.0775039210 57.6512 4.054411 -0.098705427 38.4603
## 1982 4.467374 -0.0172532405 56.0605 4.026431 -0.027979597 38.5418
## 1983 4.533063 0.0656892024 57.2706 4.047787 0.021355938 39.6757
## 1984 4.664442 0.1313789514 61.4020 4.117442 0.069655005 42.8930
## 1985 4.682024 0.0175816285 66.0790 4.190851 0.073408588 45.9984
## 1986 4.672783 -0.0092401375 70.5775 4.256711 0.065860401 48.6649
## 1987 4.633471 -0.0393118993 71.6077 4.271203 0.014491213 49.7750
## 1988 4.702575 0.0691038002 78.6237 4.364673 0.093470571 55.3351
## 1989 4.812754 0.1101782162 81.2016 4.396935 0.032261771 57.6639
## 1990 4.844659 0.0319056015 83.5415 4.425344 0.028408563 60.0958
## 1991 4.854882 0.0102231045 84.5969 4.437898 0.012554109 61.8326
## 1992 4.834920 -0.0199625679 86.1045 4.455562 0.017664052 63.8377
## 1993 4.815026 -0.0198932108 84.6953 4.439060 -0.016501565 63.3261
## 1994 4.898438 0.0834111708 86.4210 4.459231 0.020170592 64.7891
## 1995 4.941427 0.0429896235 91.5107 4.516456 0.057225204 68.9720
## 1996 4.988277 0.0468497263 97.6789 4.581686 0.065229663 74.3400
## 1997 5.062673 0.0743955640 103.9057 4.643484 0.061798189 80.0150
## 1998 5.121736 0.0590634909 110.9349 4.708944 0.065459786 86.1380
## 1999 5.148872 0.0271361299 122.0132 4.804129 0.095185693 96.1300
## 2000 5.198436 0.0495640517 124.8652 4.827235 0.023105520 101.8560
## 2001 5.233282 0.0348461617 126.4748 4.840043 0.012808323 106.7060
## 2002 5.217346 -0.0159367727 121.3213 4.798442 -0.041600681 105.6570
## 2003 5.209938 -0.0074074684 119.2234 4.780999 -0.017443354 105.6360
## 2004 5.249707 0.0397689680 119.4661 4.783033 0.002033605 107.4040
## 2005 5.302018 0.0523109555 123.3614 4.815118 0.032085610 112.4540
## 2006 5.370796 0.0687782867 131.9585 4.882487 0.067369221 122.9940
## 2007 5.415437 0.0446406041 151.4679 5.020374 0.137886242 144.2260
## 2008 5.419298 0.0038614230 146.9824 4.990313 -0.030060870 143.1410
## 2009 5.305736 -0.1135621263 134.3883 4.900733 -0.089579481 133.1280
## 2010 5.360739 0.0550023047 125.2748 4.830510 -0.070223646 125.8980
## 2011 5.362602 0.0018636734 131.4222 4.878415 0.047905317 130.9650
## 2012 5.331272 -0.0313299772 123.1354 4.813285 -0.065130479 122.5050
## 2013 5.326478 -0.0047937980 121.1683 4.797180 -0.016104075 121.2370
## 2014 5.326005 -0.0004731154 118.2520 4.772818 -0.024362548 118.1380
## 2015 5.386566 0.0605605916 152.5330 5.027381 0.254563026 152.5330
## 2016 5.385907 -0.0006585802 141.4220 4.951748 -0.075632638 141.6750
## 2017 5.430669 0.0447621472 147.3684 4.992936 0.041187246 148.6700
## 2018 5.457474 0.0268043829 152.0361 5.024118 0.031182419 157.5020
## Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## 1971 3.000595 0.1319979076 15.7326 2.755735 0.130161013 0.7828138
## 1972 3.036634 0.0360388357 16.5127 2.804130 0.048394789 0.7925462
## 1973 3.122695 0.0860610015 18.2217 2.902613 0.098483410 0.8024529
## 1974 3.173205 0.0505093254 18.9047 2.939411 0.036797377 0.7915248
## 1975 3.250747 0.0775419240 19.8442 2.987912 0.048501205 0.7688689
## 1976 3.335627 0.0848807017 21.5427 3.070037 0.082125239 0.7667533
## 1977 3.467491 0.1318633949 25.5919 3.242276 0.172238883 0.7983448
## 1978 3.548585 0.0810946327 27.6947 3.321241 0.078965164 0.7966465
## 1979 3.582588 0.0340027046 28.6785 3.356148 0.034906654 0.7973670
## 1980 3.682107 0.0995186202 31.6184 3.453739 0.097591517 0.7958319
## 1981 3.649627 -0.0324800294 30.2387 3.409123 -0.044616669 0.7862315
## 1982 3.651743 0.0021168262 30.4435 3.415873 0.006749946 0.7898827
## 1983 3.680739 0.0289955430 31.9308 3.463571 0.047698555 0.8047949
## 1984 3.758709 0.0779697328 34.2985 3.535102 0.071530560 0.7996293
## 1985 3.828607 0.0698979708 37.4780 3.623754 0.088652473 0.8147675
## 1986 3.884958 0.0563514177 40.4474 3.700002 0.076248270 0.8311411
## 1987 3.907513 0.0225548189 41.2433 3.719489 0.019486311 0.8285947
## 1988 4.013407 0.1058945769 46.2627 3.834336 0.114847346 0.8360462
## 1989 4.054631 0.0412239009 48.3865 3.879221 0.044884828 0.8391125
## 1990 4.095940 0.0413086278 50.1409 3.914837 0.035616193 0.8343495
## 1991 4.124431 0.0284907779 51.4467 3.940546 0.025709278 0.8320320
## 1992 4.156344 0.0319131915 52.7219 3.965031 0.024484609 0.8258741
## 1993 4.148298 -0.0080463585 52.1772 3.954646 -0.010385311 0.8239446
## 1994 4.171137 0.0228398129 53.2212 3.974457 0.019811195 0.8214530
## 1995 4.233701 0.0625632458 56.8630 4.040645 0.066188053 0.8244360
## 1996 4.308649 0.0749485397 61.1660 4.113591 0.072946614 0.8227872
## 1997 4.382214 0.0735649522 66.7270 4.200610 0.087018189 0.8339311
## 1998 4.455951 0.0737365442 72.2970 4.280783 0.080172966 0.8393160
## 1999 4.565701 0.1097507807 80.3470 4.386355 0.105572120 0.8358161
## 2000 4.623560 0.0578586090 84.9200 4.441710 0.055354882 0.8337260
## 2001 4.670077 0.0465173381 87.9450 4.476712 0.035001982 0.8241805
## 2002 4.660198 -0.0098793908 84.7110 4.439245 -0.037466156 0.8017547
## 2003 4.659999 -0.0001987761 83.8690 4.429256 -0.009989406 0.7939434
## 2004 4.676597 0.0165982031 86.6240 4.461577 0.032320856 0.8065249
## 2005 4.722544 0.0459468238 91.8400 4.520048 0.058471019 0.8166895
## 2006 4.812136 0.0895913246 100.1040 4.606210 0.086161713 0.8138934
## 2007 4.971382 0.1592459400 120.4950 4.791608 0.185398613 0.8354596
## 2008 4.963830 -0.0075513553 117.5550 4.766906 -0.024701949 0.8212532
## 2009 4.891311 -0.0725190870 106.1520 4.664872 -0.102034280 0.7973679
## 2010 4.835472 -0.0558390161 99.2140 4.597279 -0.067592896 0.7880506
## 2011 4.874930 0.0394580566 104.3700 4.647942 0.050663144 0.7969305
## 2012 4.808152 -0.0667782665 97.7980 4.582904 -0.065038151 0.7983184
## 2013 4.797747 -0.0104045379 96.9240 4.573927 -0.008976961 0.7994589
## 2014 4.771853 -0.0258938749 94.6080 4.549742 -0.024185127 0.8008262
## 2015 5.027381 0.2555275334 127.9530 4.851663 0.301920970 0.8388545
## 2016 4.953536 -0.0738452640 116.9790 4.761994 -0.089668577 0.8256855
## 2017 5.001729 0.0481933826 123.2580 4.814280 0.052285288 0.8290711
## 2018 5.059438 0.0577090720 131.9490 4.882415 0.068135765 0.8377608
## Ips_l Ips_dl I I_l I_dl r
## 1971 -0.2448604 -0.0018368942 51.60927 3.943701 0.0337922246 -1.5994409
## 1972 -0.2325045 0.0123559535 50.10762 3.914173 -0.0295281180 -1.3790667
## 1973 -0.2200821 0.0124224082 52.10102 3.953185 0.0390114013 -1.0794490
## 1974 -0.2337940 -0.0137119485 48.49578 3.881477 -0.0717078496 -1.9537108
## 1975 -0.2628347 -0.0290407194 46.13560 3.831585 -0.0498919011 0.9756315
## 1976 -0.2655902 -0.0027554627 46.10334 3.830885 -0.0006993988 0.1897045
## 1977 -0.2252147 0.0403754882 51.17997 3.935348 0.1044627866 2.9857652
## 1978 -0.2273442 -0.0021294687 52.01927 3.951614 0.0162659547 2.5776021
## 1979 -0.2264402 0.0009039494 50.67068 3.925347 -0.0262667379 4.2272521
## 1980 -0.2283673 -0.0019271037 50.64037 3.924749 -0.0005982729 4.2500491
## 1981 -0.2405040 -0.0121366393 45.32719 3.813907 -0.1108420660 5.4985444
## 1982 -0.2358709 0.0046331195 44.28122 3.790561 -0.0233464775 5.5688590
## 1983 -0.2171678 0.0187030116 46.09109 3.830620 0.0400589499 7.3192612
## 1984 -0.2236070 -0.0064391726 49.09884 3.893835 0.0632158322 6.1118835
## 1985 -0.2048525 0.0187545019 53.83902 3.985998 0.0921630899 6.4185379
## 1986 -0.1849557 0.0198968527 58.65986 4.071756 0.0857572536 5.9656715
## 1987 -0.1880242 -0.0030685081 59.33376 4.083178 0.0114227051 7.5365880
## 1988 -0.1790714 0.0089527686 65.73305 4.185602 0.1024233392 5.5548344
## 1989 -0.1754105 0.0036609274 68.13728 4.221524 0.0359226981 5.7839591
## 1990 -0.1811029 -0.0056924347 69.70281 4.244241 0.0227161283 7.2472116
## 1991 -0.1838844 -0.0027814999 70.38733 4.254013 0.0097726086 5.4529767
## 1992 -0.1913130 -0.0074285827 71.11147 4.264249 0.0102354692 5.4677968
## 1993 -0.1936519 -0.0023389527 69.78424 4.245408 -0.0188405174 4.6876073
## 1994 -0.1966806 -0.0030286175 70.99079 4.262550 0.0171419741 4.7003119
## 1995 -0.1930558 0.0036248070 75.44472 4.323400 0.0608500105 4.7375637
## 1996 -0.1950577 -0.0020019261 80.36895 4.386628 0.0632277370 5.0571586
## 1997 -0.1816044 0.0134532368 86.65020 4.461879 0.0752514254 2.8615831
## 1998 -0.1751680 0.0064364217 93.10943 4.533776 0.0718962074 2.4973039
## 1999 -0.1793467 -0.0041786604 101.98059 4.624783 0.0910070324 3.3042238
## 2000 -0.1818504 -0.0025037270 104.10337 4.645384 0.0206017928 1.9141603
## 2001 -0.1933658 -0.0115153558 104.23806 4.646677 0.0012929676 0.7440094
## 2002 -0.2209525 -0.0275867649 97.26993 4.577490 -0.0691874456 1.0787820
## 2003 -0.2307432 -0.0097906295 94.65663 4.550256 -0.0272339837 1.9083048
## 2004 -0.2150205 0.0157226527 96.35238 4.568012 0.0177562577 2.8615064
## 2005 -0.2024963 0.0125241953 100.74796 4.612622 0.0446098049 1.3543263
## 2006 -0.2059259 -0.0034296116 107.40015 4.676562 0.0639396090 1.1884553
## 2007 -0.1797733 0.0261526727 126.54532 4.840600 0.1640389148 2.1727708
## 2008 -0.1969238 -0.0171505938 120.70976 4.793389 -0.0472114634 1.8803071
## 2009 -0.2264390 -0.0295151929 107.15692 4.674294 -0.1190946739 3.4616597
## 2010 -0.2381929 -0.0117538797 98.72289 4.592317 -0.0819775261 2.0304912
## 2011 -0.2269878 0.0112050878 104.73436 4.651427 0.0591104050 2.7909418
## 2012 -0.2252477 0.0017401156 98.30126 4.588037 -0.0633903631 0.4769932
## 2013 -0.2238201 0.0014275772 96.86908 4.573360 -0.0146764974 0.6714187
## 2014 -0.2221114 0.0017087477 94.69929 4.550707 -0.0226538000 1.1937918
## 2015 -0.1757180 0.0463934365 127.95300 4.851663 0.3009564620 -0.0820933
## 2016 -0.1915413 -0.0158233135 116.77010 4.760207 -0.0914559512 -0.1639220
## 2017 -0.1874494 0.0040919055 122.17888 4.805486 0.0452791513 -0.7314847
## 2018 -0.1770227 0.0104266928 127.36988 4.847095 0.0416091113 -1.5926272
## r_l r_dl P P_l P_dl Pm
## 1971 1.0497482 -0.825849966 27.16778 3.302032 0.084249528 42.39340
## 1972 1.1240545 0.074306292 29.38511 3.380488 0.078456411 42.30801
## 1973 1.2169651 0.092910614 31.87726 3.461893 0.081404829 45.39563
## 1974 0.9173548 -0.299610242 35.98804 3.583187 0.121293798 60.23930
## 1975 1.6923081 0.774953281 38.90141 3.661031 0.077843866 63.01104
## 1976 1.5360232 -0.156284919 42.39991 3.747146 0.086115631 67.04356
## 1977 2.0071581 0.471134925 44.66604 3.799213 0.052067225 69.25461
## 1978 1.9507519 -0.056406210 47.04892 3.851188 0.051974477 68.35424
## 1979 2.1614390 0.210687099 49.29365 3.897795 0.046607431 75.80599
## 1980 2.1640609 0.002621846 52.36236 3.958188 0.060392780 85.52341
## 1981 2.2980666 0.134005722 55.70837 4.020130 0.061942281 93.77825
## 1982 2.3051051 0.007038475 58.28413 4.065330 0.045199497 97.21438
## 1983 2.4660325 0.160927391 59.09374 4.079125 0.013795100 98.23175
## 1984 2.3578548 -0.108177665 60.45709 4.101934 0.022808974 101.87178
## 1985 2.3864583 0.028603547 60.98058 4.110556 0.008621577 104.83490
## 1986 2.3439232 -0.042535160 61.10968 4.112670 0.002114754 89.18402
## 1987 2.4843199 0.140396674 60.46947 4.102139 -0.010531585 86.64299
## 1988 2.3037052 -0.180614697 60.96510 4.110302 0.008162953 86.89375
## 1989 2.3263340 0.022628846 61.78696 4.123692 0.013390636 90.17727
## 1990 2.4598951 0.133561126 62.75068 4.139169 0.015477109 89.26941
## 1991 2.2934787 -0.166416453 64.70665 4.169864 0.030694577 89.36068
## 1992 2.2949731 0.001494450 66.32156 4.194515 0.024651061 88.07680
## 1993 2.2130957 -0.081877408 67.38105 4.210364 0.015848821 85.99429
## 1994 2.2144841 0.001388431 68.77094 4.230781 0.020417470 86.25371
## 1995 2.2185442 0.004060010 70.19080 4.251217 0.020435990 86.47841
## 1996 2.2527151 0.034170953 70.92095 4.261566 0.010348618 87.14723
## 1997 1.9903310 -0.262384112 72.79525 4.287651 0.026084728 88.45081
## 1998 1.9392705 -0.051060501 74.30992 4.308244 0.020593822 85.98492
## 1999 2.0490592 0.109788676 75.26359 4.320997 0.012752054 85.33388
## 2000 1.8516831 -0.197376066 77.83788 4.354628 0.033631743 90.22154
## 2001 1.6487321 -0.202951043 81.09529 4.395625 0.040996586 89.52640
## 2002 1.7111195 0.062387414 84.15302 4.432637 0.037011949 87.22808
## 2003 1.8507635 0.139644053 85.97937 4.454107 0.021470644 86.37211
## 2004 1.9903205 0.139556987 87.01460 4.466076 0.011968490 87.47137
## 2005 1.7597008 -0.230619679 88.74509 4.485768 0.019692225 89.87516
## 2006 1.7307397 -0.028961147 91.01795 4.511057 0.025288602 92.33422
## 2007 1.8914756 0.160735888 92.90403 4.531567 0.020510269 93.89938
## 2008 1.8463549 -0.045120671 95.04670 4.554368 0.022801331 98.17563
## 2009 2.0691427 0.222787806 95.25647 4.556573 0.002204573 91.71187
## 2010 1.8697792 -0.199363553 96.15227 4.565933 0.009360194 97.62722
## 2011 1.9806310 0.110851796 96.33848 4.567868 0.001934662 103.76644
## 2012 1.5960215 -0.384609506 97.73164 4.582225 0.014357525 106.21224
## 2013 1.6346750 0.038653548 98.98259 4.594944 0.012718646 104.93853
## 2014 1.7316846 0.097009623 99.23320 4.597473 0.002528658 103.04014
## 2015 1.4757418 -0.255942872 100.00000 4.605170 0.007697574 100.00000
## 2016 1.4568578 -0.018883970 100.45467 4.609707 0.004536368 96.59755
## 2017 1.3150367 -0.141821051 101.72111 4.622235 0.012528258 99.32520
## 2018 1.0521303 -0.262906417 103.96689 4.644073 0.021837702 101.78256
## Pm_l Pm_dl Px Px_l Px_dl X
## 1971 3.746993 0.037276821 44.14418 3.787461 0.031428727 69.9592
## 1972 3.744976 -0.002016310 44.94290 3.805393 0.017931778 76.8750
## 1973 3.815416 0.070439552 48.22359 3.875848 0.070455594 85.8283
## 1974 4.098325 0.282908990 60.73872 4.106581 0.230732997 88.2802
## 1975 4.143310 0.044985032 63.77934 4.155429 0.048847916 85.6623
## 1976 4.205342 0.062032531 67.99116 4.219378 0.063948442 93.5405
## 1977 4.237790 0.032447148 70.43798 4.254733 0.035354831 92.2693
## 1978 4.224704 -0.013086074 69.80611 4.245722 -0.009010972 96.1573
## 1979 4.328177 0.103473790 75.51851 4.324378 0.078656197 103.6548
## 1980 4.448790 0.120612773 83.51045 4.424972 0.100594020 106.3024
## 1981 4.540933 0.092142845 93.29883 4.535808 0.110835746 109.3465
## 1982 4.576919 0.035985648 97.44086 4.579246 0.043438068 108.2011
## 1983 4.587329 0.010410857 98.03322 4.585306 0.006060830 110.6658
## 1984 4.623715 0.036385525 102.62899 4.631120 0.045813985 119.2316
## 1985 4.652387 0.028671751 104.27992 4.647079 0.015958392 124.5455
## 1986 4.490702 -0.161684898 89.23577 4.491282 -0.155796880 127.0950
## 1987 4.461796 -0.028905750 84.44341 4.436082 -0.055200331 131.9063
## 1988 4.464686 0.002890037 84.60644 4.438010 0.001928776 143.6472
## 1989 4.501777 0.037091300 87.68765 4.473781 0.035770747 156.0176
## 1990 4.491659 -0.010118531 86.82689 4.463916 -0.009864700 164.8460
## 1991 4.492681 0.001021877 87.12978 4.467399 0.003482261 175.7391
## 1992 4.478209 -0.014471662 85.45643 4.448007 -0.019392069 180.9118
## 1993 4.454281 -0.023928251 83.34744 4.423018 -0.024988740 188.0913
## 1994 4.457293 0.003012240 83.85121 4.429044 0.006026061 204.3981
## 1995 4.459895 0.002601608 84.47691 4.436478 0.007434304 223.2208
## 1996 4.467599 0.007704245 85.07397 4.443521 0.007042845 232.4742
## 1997 4.482447 0.014847599 87.36561 4.470102 0.026580643 254.9699
## 1998 4.454172 -0.028274663 86.00483 4.454403 -0.015698281 272.0498
## 1999 4.446572 -0.007600375 84.72789 4.439445 -0.014958567 296.5694
## 2000 4.502268 0.055696617 89.51661 4.494424 0.054979314 333.4297
## 2001 4.494534 -0.007734580 90.15266 4.501504 0.007080213 338.3406
## 2002 4.468526 -0.026007241 88.51668 4.483191 -0.018313432 340.5302
## 2003 4.458665 -0.009861510 87.66287 4.473498 -0.009692540 346.8002
## 2004 4.471312 0.012646702 88.39379 4.481802 0.008303254 375.2820
## 2005 4.498422 0.027110012 91.09523 4.511905 0.030103771 396.8989
## 2006 4.525415 0.026993322 93.69533 4.540048 0.028142914 425.3680
## 2007 4.542224 0.016808934 95.02191 4.554107 0.014059092 448.1461
## 2008 4.586758 0.044534191 99.18997 4.597037 0.042929411 455.3918
## 2009 4.518652 -0.068106172 93.47294 4.537672 -0.059364864 416.0380
## 2010 4.581156 0.062504570 97.73661 4.582276 0.044604169 456.5086
## 2011 4.642143 0.060986171 102.28728 4.627785 0.045509159 480.0607
## 2012 4.665439 0.023296794 104.72563 4.651344 0.023558528 495.7048
## 2013 4.653375 -0.012064612 103.85652 4.643010 -0.008333571 507.9903
## 2014 4.635119 -0.018256091 101.89111 4.623905 -0.019105611 531.0856
## 2015 4.605170 -0.029948461 100.00000 4.605170 -0.018734503 570.3530
## 2016 4.570553 -0.034616778 97.15608 4.576319 -0.028851460 579.8680
## 2017 4.598399 0.027845923 99.67536 4.601918 0.025599730 617.5579
## 2018 4.622839 0.024439441 101.86822 4.623680 0.021761536 640.7151
## X_l X_dl M M_l M_dl rulc
## 1971 4.247912 0.101183953 70.4317 4.254643 0.057856622 0.7067149
## 1972 4.342181 0.094268511 74.0635 4.304923 0.050279387 0.7062896
## 1973 4.452349 0.110168063 81.8019 4.404300 0.099377637 0.7095256
## 1974 4.480516 0.028167058 80.6607 4.390251 -0.014049003 0.6983194
## 1975 4.450413 -0.030103025 78.4335 4.362251 -0.028000336 0.7299841
## 1976 4.538394 0.087981675 86.3914 4.458888 0.096637002 0.7071596
## 1977 4.524711 -0.013683022 89.3220 4.492248 0.033359684 0.7153274
## 1978 4.565985 0.041273917 95.2992 4.557021 0.064773598 0.7123559
## 1979 4.641066 0.075080755 100.7294 4.612438 0.055416297 0.7140084
## 1980 4.666288 0.025221715 101.7169 4.622193 0.009755751 0.7021552
## 1981 4.694522 0.028233877 99.0519 4.595644 -0.026549509 0.6795225
## 1982 4.683992 -0.010530207 97.9853 4.584817 -0.010826488 0.6772253
## 1983 4.706515 0.022523316 101.6120 4.621162 0.036344171 0.6634874
## 1984 4.781068 0.074552971 107.2551 4.675210 0.054048471 0.6313114
## 1985 4.824671 0.043603291 112.8713 4.726248 0.051038122 0.6323001
## 1986 4.844935 0.020263727 116.0529 4.754046 0.027797890 0.6408790
## 1987 4.882092 0.037156984 120.1681 4.788892 0.034845474 0.6549508
## 1988 4.967360 0.085268471 130.4396 4.870910 0.082018689 0.6450787
## 1989 5.049969 0.082608528 140.6156 4.946030 0.075119642 0.6284375
## 1990 5.105012 0.055042883 146.2036 4.985000 0.038970245 0.6301682
## 1991 5.169001 0.063988804 155.4674 5.046436 0.061435893 0.6312172
## 1992 5.198010 0.029009111 159.9008 5.074554 0.028117560 0.6408597
## 1993 5.236927 0.038917864 160.5311 5.078488 0.003934070 0.6449885
## 1994 5.320070 0.083142080 175.0334 5.164977 0.086489120 0.6308373
## 1995 5.408161 0.088091853 192.8146 5.261729 0.096752293 0.6252860
## 1996 5.448779 0.040617835 203.0426 5.313416 0.051686704 0.6191713
## 1997 5.541145 0.092366248 225.2258 5.417103 0.103687645 0.6071494
## 1998 5.605985 0.064839639 244.0091 5.497206 0.080102065 0.6010788
## 1999 5.692281 0.086296117 267.8795 5.590537 0.093331733 0.6029836
## 2000 5.809432 0.117150793 298.0364 5.697216 0.106678374 0.5990791
## 2001 5.824053 0.014621032 305.4082 5.721649 0.024433616 0.5883315
## 2002 5.830504 0.006450734 306.2672 5.724458 0.002808681 0.5914490
## 2003 5.848749 0.018245007 312.5106 5.744638 0.020180465 0.5918679
## 2004 5.927678 0.078928922 332.4059 5.806357 0.061718424 0.5833620
## 2005 5.983682 0.056003845 350.4472 5.859210 0.052853241 0.5700209
## 2006 6.052955 0.069273088 377.2567 5.932926 0.073715804 0.5549549
## 2007 6.105119 0.052164619 406.7322 6.008155 0.075229126 0.5528105
## 2008 6.121158 0.016038852 403.8823 6.001123 -0.007031485 0.5574636
## 2009 6.030777 -0.090381545 372.3531 5.919843 -0.081280901 0.5842989
## 2010 6.123608 0.092830937 404.0840 6.001623 0.081780180 0.5706228
## 2011 6.173913 0.050305015 419.7282 6.039607 0.037984582 0.5768362
## 2012 6.205981 0.032068034 428.8978 6.061219 0.021611303 0.5843798
## 2013 6.230462 0.024481765 438.4824 6.083320 0.022101012 0.5811382
## 2014 6.274923 0.044460861 452.8060 6.115464 0.032144104 0.5807990
## 2015 6.346255 0.071332254 518.5940 6.251121 0.135657526 0.5682921
## 2016 6.362800 0.016545024 508.3400 6.231151 -0.019970788 0.5702457
## 2017 6.425773 0.062972338 539.8056 6.291209 0.060058560 0.5636834
## 2018 6.462585 0.036812067 557.6722 6.323771 0.032562260 0.5593983
## rulc_l rulc_dl ulc ulc_l ulc_dl Tau
## 1971 -0.3471280 0.0140512753 19.19987 2.954904 0.0983008036 67.04653
## 1972 -0.3477299 -0.0006019654 20.75440 3.032758 0.0778544459 68.44586
## 1973 -0.3431587 0.0045712173 22.61773 3.118734 0.0859760462 70.59599
## 1974 -0.3590787 -0.0159199384 25.13115 3.224108 0.1053738594 71.79596
## 1975 -0.3147326 0.0443460860 28.39741 3.346298 0.1221899520 71.12213
## 1976 -0.3464989 -0.0317663337 29.98350 3.400647 0.0543492974 73.25262
## 1977 -0.3350150 0.0114839115 31.95084 3.464198 0.0635511368 73.98980
## 1978 -0.3391777 -0.0041626570 33.51557 3.512010 0.0478118202 74.70457
## 1979 -0.3368605 0.0023171606 35.19608 3.560935 0.0489245916 74.65503
## 1980 -0.3536008 -0.0167402680 36.76651 3.604587 0.0436525115 74.36937
## 1981 -0.3863649 -0.0327641389 37.85509 3.633765 0.0291781417 73.72153
## 1982 -0.3897513 -0.0033863992 39.47149 3.675579 0.0418130981 73.36658
## 1983 -0.4102453 -0.0204940478 39.20795 3.668880 -0.0066989474 75.21912
## 1984 -0.4599561 -0.0497107677 38.16725 3.641978 -0.0269017938 76.88697
## 1985 -0.4583912 0.0015648974 38.55803 3.652164 0.0101864743 77.45453
## 1986 -0.4449146 0.0134766493 39.16391 3.667756 0.0155914035 77.90961
## 1987 -0.4231952 0.0217193691 39.60453 3.678943 0.0111877837 78.04920
## 1988 -0.4383829 -0.0151877134 39.32729 3.671919 -0.0070247608 79.27959
## 1989 -0.4645187 -0.0261358001 38.82924 3.659174 -0.0127451640 80.97861
## 1990 -0.4617685 0.0027501893 39.54348 3.677401 0.0182272980 82.37707
## 1991 -0.4601053 0.0016631872 40.84395 3.709759 0.0323577645 83.08800
## 1992 -0.4449447 0.0151606169 42.50281 3.749570 0.0398116782 83.25094
## 1993 -0.4385228 0.0064219236 43.46000 3.771841 0.0222707448 83.73488
## 1994 -0.4607074 -0.0221845750 43.38327 3.770074 -0.0017671055 85.69831
## 1995 -0.4695462 -0.0088388206 43.88932 3.781671 0.0115971693 86.82557
## 1996 -0.4793734 -0.0098271879 43.91222 3.782193 0.0005214300 87.92351
## 1997 -0.4989803 -0.0196069306 44.19759 3.788670 0.0064777975 89.26503
## 1998 -0.5090293 -0.0100489895 44.66612 3.799215 0.0105448330 90.92657
## 1999 -0.5058652 0.0031640731 45.38271 3.815131 0.0159161266 92.99214
## 2000 -0.5123616 -0.0064963520 46.63105 3.842267 0.0271353908 94.96288
## 2001 -0.5304647 -0.0181031499 47.71091 3.865160 0.0228934362 95.28844
## 2002 -0.5251798 0.0052848971 49.77222 3.907457 0.0422968464 94.85784
## 2003 -0.5244718 0.0007080492 50.88843 3.929636 0.0221786936 95.06409
## 2004 -0.5389473 -0.0144755138 50.76101 3.927129 -0.0025070235 96.79403
## 2005 -0.5620823 -0.0231349896 50.58656 3.923686 -0.0034427647 97.99270
## 2006 -0.5888685 -0.0267861739 50.51086 3.922188 -0.0014975723 99.25703
## 2007 -0.5927400 -0.0038715665 51.35832 3.938827 0.0166387021 100.13777
## 2008 -0.5843581 0.0083819100 52.98507 3.970010 0.0311832412 100.25026
## 2009 -0.5373426 0.0470155190 55.65825 4.019230 0.0492200917 96.66648
## 2010 -0.5610269 -0.0236842938 54.86668 4.004906 -0.0143241003 97.96112
## 2011 -0.5501970 0.0108298768 55.57152 4.017671 0.0127645387 98.67251
## 2012 -0.5372042 0.0129927772 57.11239 4.045021 0.0273503021 97.77620
## 2013 -0.5427667 -0.0055624975 57.52256 4.052177 0.0071561483 98.20962
## 2014 -0.5433505 -0.0005837557 57.63454 4.054122 0.0019449020 99.61338
## 2015 -0.5651198 -0.0217692607 56.82921 4.040050 -0.0140716862 100.00000
## 2016 -0.5616880 0.0034317625 57.28384 4.048019 0.0079681306 100.43700
## 2017 -0.5732625 -0.0115744777 57.33850 4.048972 0.0009537807 101.44773
## 2018 -0.5808935 -0.0076310318 58.15891 4.063179 0.0142066705 101.84113
## Tau_l Tau_dl dPxdPm dPdPm Trade
## 1971 4.205387 0.0170652196 -0.00584809475 0.0469727071 0.5360788
## 1972 4.226043 0.0206562431 0.01994808720 0.0804727208 0.5566821
## 1973 4.256973 0.0309301423 0.00001604172 0.0109652771 0.5863227
## 1974 4.273828 0.0168549295 -0.05217599392 -0.1616151926 0.5712631
## 1975 4.264399 -0.0094296711 0.00386288486 0.0328588344 0.5548685
## 1976 4.293914 0.0295154340 0.00191591064 0.0240831001 0.5824598
## 1977 4.303927 0.0100132865 0.00290768330 0.0196200777 0.5733799
## 1978 4.313541 0.0096140705 0.00407510186 0.0650605511 0.5886579
## 1979 4.312878 -0.0006634351 -0.02481759314 -0.0568663595 0.6159984
## 1980 4.309044 -0.0038337931 -0.02001875282 -0.0602199932 0.6186527
## 1981 4.300295 -0.0087491769 0.01869290055 -0.0302005648 0.6246750
## 1982 4.295468 -0.0048264716 0.00745241976 0.0092138493 0.6258093
## 1983 4.320405 0.0249369382 -0.00435002712 0.0033842430 0.6312315
## 1984 4.342336 0.0219309752 0.00942845980 -0.0135765510 0.6534759
## 1985 4.349691 0.0073547214 -0.01271335919 -0.0200501744 0.6677822
## 1986 4.355549 0.0058581678 0.00588801757 0.1637996519 0.6653587
## 1987 4.357339 0.0017902014 -0.02629458080 0.0183741650 0.6767165
## 1988 4.372981 0.0156412069 -0.00096126058 0.0052729160 0.7113323
## 1989 4.394185 0.0212044173 -0.00132055299 -0.0237006641 0.7372588
## 1990 4.411307 0.0171220678 0.00025383058 0.0255956397 0.7420480
## 1991 4.419900 0.0085931244 0.00246038431 0.0296727001 0.7713214
## 1992 4.421859 0.0019590982 -0.00492040679 0.0391227230 0.7803785
## 1993 4.427656 0.0057961901 -0.00106048853 0.0397770726 0.7883471
## 1994 4.450833 0.0231775561 0.00301382053 0.0174052291 0.8333405
## 1995 4.463901 0.0130680636 0.00483269570 0.0178343820 0.8861212
## 1996 4.476467 0.0125660045 -0.00066140002 0.0026443729 0.8962573
## 1997 4.491610 0.0151426256 0.01173304383 0.0112371290 0.9471981
## 1998 4.510052 0.0184423928 0.01257638144 0.0488684850 0.9725789
## 1999 4.532515 0.0224627470 -0.00735819180 0.0203524284 1.0127916
## 2000 4.553486 0.0209711612 -0.00071730284 -0.0220648743 1.0874164
## 2001 4.556908 0.0034223575 0.01481479282 0.0487311657 1.0833586
## 2002 4.552379 -0.0045290787 0.00769380908 0.0630191902 1.0861291
## 2003 4.554551 0.0021719521 0.00016896982 0.0313321546 1.1054218
## 2004 4.572585 0.0180339313 -0.00434344785 -0.0006782119 1.1634387
## 2005 4.584893 0.0123076647 0.00299375922 -0.0074177874 1.2039452
## 2006 4.597713 0.0128198141 0.00114959238 -0.0017047203 1.2497434
## 2007 4.606547 0.0088341765 -0.00274984127 0.0037013350 1.2827114
## 2008 4.607670 0.0011226880 -0.00160477983 -0.0217328596 1.2619194
## 2009 4.571267 -0.0364029320 0.00874130788 0.0703107450 1.2018934
## 2010 4.584571 0.0133039765 -0.01790040101 -0.0531443766 1.2945809
## 2011 4.591806 0.0072357297 -0.01547701256 -0.0590515095 1.3328683
## 2012 4.582681 -0.0091252146 0.00026173485 -0.0089392687 1.3838841
## 2013 4.587104 0.0044230149 0.00373104133 0.0247832578 1.4184643
## 2014 4.601297 0.0141923157 -0.00084952076 0.0207847482 1.4538495
## 2015 4.605170 0.0038736750 0.01121395813 0.0376460357 1.5781658
## 2016 4.609531 0.0043604574 0.00576531803 0.0391531465 1.5432707
## 2017 4.619544 0.0100130008 -0.00224619258 -0.0153176644 1.5949188
## 2018 4.623414 0.0038704265 -0.00267790494 -0.0026017385 1.6096424
adf.NLD.WS <- adf.test((NLD$WS), alternative = c("stationary"), k = 2)
adf.NLD.PS <- adf.test((NLD$PS), alternative = c("stationary"), k = 2)
adf.NLD.Y <- adf.test((NLD$Y), alternative = c("stationary"), k = 2)
adf.NLD.Yrw <- adf.test((NLD$Yrw), alternative = c("stationary"), k = 2)
adf.NLD.r <- adf.test((NLD$r), alternative = c("stationary"), k = 2)
adf.NLD.R <- adf.test((NLD$R), alternative = c("stationary"), k = 2)
adf.NLD.Tau <- adf.test((NLD$Tau), alternative = c("stationary"), k = 2)
adf.NLD.rulc <- adf.test((NLD$rulc), alternative = c("stationary"), k = 2)
adf.NLD.ulc <- adf.test((NLD$ulc), alternative = c("stationary"), k = 2)
adf.NLD.P <- adf.test((NLD$P), alternative = c("stationary"), k = 2)
adf.NLD.Pm <- adf.test((NLD$Pm), alternative = c("stationary"), k = 2)
adf.NLD.Px <- adf.test((NLD$Px), alternative = c("stationary"), k = 2)
adf.NLD.X <- adf.test((NLD$X), alternative = c("stationary"), k = 2)
adf.NLD.M <- adf.test((NLD$M), alternative = c("stationary"), k = 2)
adf.NLD.I <- adf.test((NLD$I), alternative = c("stationary"), k = 2)
adf.NLD.C <- adf.test((NLD$C), alternative = c("stationary"), k = 2)
adf.NLD.Ipr <- adf.test((NLD$Ipr), alternative = c("stationary"), k = 2)
adf.NLD.Ips <- adf.test((NLD$Ips), alternative = c("stationary"), k = 2)
adf.NLD.It <- adf.test((NLD$It), alternative = c("stationary"), k = 2)
adf.NLD.Itcurr <- adf.test((NLD$Itcurr), alternative = c("stationary"), k = 2)
adf.NLD.Yf <- adf.test((NLD$Yf), alternative = c("stationary"), k = 2)
adf.NLD.W <- adf.test((NLD$W), alternative = c("stationary"), k = 2)
adf.NLD.WS.pval <- adf.NLD.WS$p.value
adf.NLD.PS.pval <- adf.NLD.PS$p.value
adf.NLD.Y.pval <- adf.NLD.Y$p.value
adf.NLD.Yrw.pval <- adf.NLD.Yrw$p.value
adf.NLD.r.pval <- adf.NLD.r$p.value
adf.NLD.R.pval <- adf.NLD.R$p.value
adf.NLD.Tau.pval <- adf.NLD.Tau$p.value
adf.NLD.rulc.pval <- adf.NLD.rulc$p.value
adf.NLD.ulc.pval <- adf.NLD.ulc$p.value
adf.NLD.P.pval <- adf.NLD.P$p.value
adf.NLD.Pm.pval <- adf.NLD.Pm$p.value
adf.NLD.Px.pval <- adf.NLD.Px$p.value
adf.NLD.X.pval <- adf.NLD.X$p.value
adf.NLD.M.pval <- adf.NLD.M$p.value
adf.NLD.I.pval <- adf.NLD.I$p.value
adf.NLD.C.pval <- adf.NLD.C$p.value
adf.NLD.Ipr.pval <- adf.NLD.Ipr$p.value
adf.NLD.Ips.pval <- adf.NLD.Ips$p.value
adf.NLD.It.pval <- adf.NLD.It$p.value
adf.NLD.Itcurr.pval <- adf.NLD.Itcurr$p.value
adf.NLD.Yf.pval <- adf.NLD.Yf$p.value
adf.NLD.W.pval <- adf.NLD.W$p.value
adf.NLD_non <- rbind(adf.NLD.WS.pval,adf.NLD.PS.pval,adf.NLD.Y.pval,adf.NLD.Yrw.pval,adf.NLD.r.pval,adf.NLD.R.pval,adf.NLD.Tau.pval,adf.NLD.rulc.pval,adf.NLD.ulc.pval,adf.NLD.P.pval,adf.NLD.Pm.pval,adf.NLD.Px.pval,adf.NLD.X.pval,adf.NLD.M.pval,adf.NLD.I.pval,adf.NLD.C.pval,adf.NLD.Ipr.pval,adf.NLD.Ips.pval,adf.NLD.It.pval,adf.NLD.Itcurr.pval,adf.NLD.Yf.pval,adf.NLD.W.pval)
colnames(adf.NLD_non) <- c("NLD")
rownames(adf.NLD_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.NLD_non
## NLD
## WS 0.40353010
## PS 0.40353010
## Y 0.49313925
## Yrw 0.24998779
## r 0.43100905
## R 0.37943212
## Tau 0.84741324
## rulc 0.48193572
## ulc 0.01588127
## P 0.03764604
## Pm 0.04792070
## Px 0.07364182
## X 0.93415077
## M 0.88747325
## I 0.09016174
## C 0.37332516
## Ipr 0.13239125
## Ips 0.54303099
## It 0.16824469
## Itcurr 0.25177920
## Yf 0.53532651
## W 0.37347420
adf.NLD.WS_dl <- adf.test((NLD$WS_dl), alternative = c("stationary"), k = 2)
adf.NLD.PS_dl <- adf.test((NLD$PS_dl), alternative = c("stationary"), k = 2)
adf.NLD.Y_dl <- adf.test((NLD$Y_dl), alternative = c("stationary"), k = 2)
adf.NLD.Yrw_dl <- adf.test((NLD$Yrw_dl), alternative = c("stationary"), k = 2)
adf.NLD.r_dl <- adf.test((NLD$r_dl), alternative = c("stationary"), k = 2)
adf.NLD.R_dl <- adf.test((NLD$R_dl), alternative = c("stationary"), k = 2)
adf.NLD.Tau_dl <- adf.test((NLD$Tau_dl), alternative = c("stationary"), k = 2)
adf.NLD.rulc_dl <- adf.test((NLD$rulc_dl), alternative = c("stationary"), k = 2)
adf.NLD.ulc_dl <- adf.test((NLD$ulc_dl), alternative = c("stationary"), k = 2)
adf.NLD.P_dl <- adf.test((NLD$P_dl), alternative = c("stationary"), k = 2)
adf.NLD.Pm_dl <- adf.test((NLD$Pm_dl), alternative = c("stationary"), k = 2)
adf.NLD.Px_dl <- adf.test((NLD$Px_dl), alternative = c("stationary"), k = 2)
adf.NLD.X_dl <- adf.test((NLD$X_dl), alternative = c("stationary"), k = 2)
adf.NLD.M_dl <- adf.test((NLD$M_dl), alternative = c("stationary"), k = 2)
adf.NLD.I_dl <- adf.test((NLD$I_dl), alternative = c("stationary"), k = 2)
adf.NLD.C_dl <- adf.test((NLD$C_dl), alternative = c("stationary"), k = 2)
adf.NLD.Ipr_dl <- adf.test((NLD$Ipr_dl), alternative = c("stationary"), k = 2)
adf.NLD.Ips_dl <- adf.test((NLD$Ips_dl), alternative = c("stationary"), k = 2)
adf.NLD.It_dl <- adf.test((NLD$It_dl), alternative = c("stationary"), k = 2)
adf.NLD.Itcurr_dl <- adf.test((NLD$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.NLD.Yf_dl <- adf.test((NLD$Yf_dl), alternative = c("stationary"), k = 2)
adf.NLD.W_dl <- adf.test((NLD$W_dl), alternative = c("stationary"), k = 2)
adf.NLD.WS_dl.pval <- adf.NLD.WS_dl$p.value
adf.NLD.PS_dl.pval <- adf.NLD.PS_dl$p.value
adf.NLD.Y_dl.pval <- adf.NLD.Y_dl$p.value
adf.NLD.Yrw_dl.pval <- adf.NLD.Yrw_dl$p.value
adf.NLD.r_dl.pval <- adf.NLD.r_dl$p.value
adf.NLD.R_dl.pval <- adf.NLD.R_dl$p.value
adf.NLD.Tau_dl.pval <- adf.NLD.Tau_dl$p.value
adf.NLD.rulc_dl.pval <- adf.NLD.rulc_dl$p.value
adf.NLD.ulc_dl.pval <- adf.NLD.ulc_dl$p.value
adf.NLD.P_dl.pval <- adf.NLD.P_dl$p.value
adf.NLD.Pm_dl.pval <- adf.NLD.Pm_dl$p.value
adf.NLD.Px_dl.pval <- adf.NLD.Px_dl$p.value
adf.NLD.X_dl.pval <- adf.NLD.X_dl$p.value
adf.NLD.M_dl.pval <- adf.NLD.M_dl$p.value
adf.NLD.I_dl.pval <- adf.NLD.I_dl$p.value
adf.NLD.C_dl.pval <- adf.NLD.C_dl$p.value
adf.NLD.Ipr_dl.pval <- adf.NLD.Ipr_dl$p.value
adf.NLD.Ips_dl.pval <- adf.NLD.Ips_dl$p.value
adf.NLD.It_dl.pval <- adf.NLD.It_dl$p.value
adf.NLD.Itcurr_dl.pval <- adf.NLD.Itcurr_dl$p.value
adf.NLD.Yf_dl.pval <- adf.NLD.Yf_dl$p.value
adf.NLD.W_dl.pval <- adf.NLD.W_dl$p.value
adf.NLD_dl <- rbind(adf.NLD.WS_dl.pval,adf.NLD.PS_dl.pval,adf.NLD.Y_dl.pval,adf.NLD.Yrw_dl.pval,adf.NLD.r_dl.pval,adf.NLD.R_dl.pval,adf.NLD.Tau_dl.pval,adf.NLD.rulc_dl.pval,adf.NLD.ulc_dl.pval,adf.NLD.P_dl.pval,adf.NLD.Pm_dl.pval,adf.NLD.Px_dl.pval,adf.NLD.X_dl.pval,adf.NLD.M_dl.pval,adf.NLD.I_dl.pval,adf.NLD.C_dl.pval,adf.NLD.Ipr_dl.pval,adf.NLD.Ips_dl.pval,adf.NLD.It_dl.pval,adf.NLD.Itcurr_dl.pval,adf.NLD.Yf_dl.pval,adf.NLD.W_dl.pval)
colnames(adf.NLD_dl) <- c("NLD")
rownames(adf.NLD_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.NLD_dl
## NLD
## dlog(WS) 0.01000000
## dlog(PS) 0.01000000
## dlog(Y) 0.09487517
## dlog(Yrw) 0.01000000
## dlog(r) 0.02385848
## dlog(R) 0.01000000
## dlog(Tau) 0.01711845
## dlog(rulc) 0.01000000
## dlog(ulc) 0.39051141
## dlog(P) 0.53520134
## dlog(Pm) 0.04715945
## dlog(Px) 0.07516683
## dlog(X) 0.01000000
## dlog(M) 0.02201279
## dlog(I) 0.01000000
## dlog(C) 0.30924397
## dlog(Ipr) 0.01000000
## dlog(Ips) 0.01000000
## dlog(It) 0.01000000
## dlog(Itcurr) 0.01000000
## dlog(Yf) 0.07408409
## dlog(W) 0.06382843
adf.NLD <- NULL
adf.NLD <- rbind(adf.NLD_non,adf.NLD_dl)
#Consumption (C)
NLD_consumption <- dynlm(NLD$C_dl~NLD$R_dl+NLD$W_dl)
NLD_CR <- summary(NLD_consumption)$coefficients["NLD$R_dl","Estimate"]
NLD_CW <- summary(NLD_consumption)$coefficients["NLD$W_dl","Estimate"]
NLD_Ceffekt <- (NLD_CR*mean(NLD$C/NLD$R))-(NLD_CW*mean(NLD$C/NLD$W))
summary(NLD_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$C_dl ~ NLD$R_dl + NLD$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.020017 -0.006577 -0.001319 0.005159 0.024334
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.001298 0.002526 -0.514 0.61
## NLD$R_dl 0.192583 0.033147 5.810 0.00000059739981 ***
## NLD$W_dl 0.825662 0.084361 9.787 0.00000000000102 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01104 on 45 degrees of freedom
## Multiple R-squared: 0.6976, Adjusted R-squared: 0.6841
## F-statistic: 51.89 on 2 and 45 DF, p-value: 0.000000000002063
#Investments (I)
NLD_investment <- dynlm(NLD$I_dl~NLD$PS_l+NLD$Y_l)
NLD_iPS <- summary(NLD_investment)$coefficients["NLD$PS_l","Estimate"]
NLD_Ieffekt <- NLD_iPS*mean(NLD$I/NLD$R)
summary(NLD_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$I_dl ~ NLD$PS_l + NLD$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12975 -0.02652 -0.00109 0.03412 0.28220
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.14691 0.64143 1.788 0.0805 .
## NLD$PS_l 0.36922 0.18629 1.982 0.0536 .
## NLD$Y_l -0.11453 0.07209 -1.589 0.1191
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07171 on 45 degrees of freedom
## Multiple R-squared: 0.08352, Adjusted R-squared: 0.04278
## F-statistic: 2.05 on 2 and 45 DF, p-value: 0.1405
#Price deflator (P)
NLD_deflator <- dynlm(NLD$P_dl~L(NLD$ulc_dl)+NLD$Pm_dl)
NLD_ePULC <- summary(NLD_deflator)$coefficients["L(NLD$ulc_dl)","Estimate"]
summary(NLD_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$P_dl ~ L(NLD$ulc_dl) + NLD$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.028044 -0.005224 -0.000732 0.007861 0.031705
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.011668 0.002257 5.170 0.0000052075850 ***
## L(NLD$ulc_dl) 0.583037 0.059897 9.734 0.0000000000012 ***
## NLD$Pm_dl 0.178209 0.032417 5.497 0.0000017289440 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0123 on 45 degrees of freedom
## Multiple R-squared: 0.8115, Adjusted R-squared: 0.8031
## F-statistic: 96.88 on 2 and 45 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
NLD_exportdeflator <- dynlm(NLD$Px_dl~NLD$ulc_dl+NLD$Pm_l)
NLD_ePX <- summary(NLD_exportdeflator)$coefficients["NLD$ulc_dl","Estimate"]
summary(NLD_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$Px_dl ~ NLD$ulc_dl + NLD$Pm_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.167775 -0.026063 0.003188 0.023836 0.160499
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06150 0.24554 -0.250 0.8034
## NLD$ulc_dl 0.70960 0.35966 1.973 0.0547 .
## NLD$Pm_l 0.01390 0.05365 0.259 0.7968
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05023 on 45 degrees of freedom
## Multiple R-squared: 0.151, Adjusted R-squared: 0.1133
## F-statistic: 4.002 on 2 and 45 DF, p-value: 0.02514
#Exports (X)
NLD_exports <- dynlm(NLD$X_dl~L(NLD$dPxdPm)+NLD$Yrw_dl)
NLD_eXP <- summary(NLD_exports)$coefficients["L(NLD$dPxdPm)","Estimate"]
NLD_eXP <- 0
NLD_Xeffekt <- -(NLD_eXP*NLD_ePX*(1/(1-NLD_ePULC))*mean(NLD$Yf/NLD$Y)*(mean(NLD$X/NLD$Y)/mean(NLD$rulc)))
summary(NLD_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$X_dl ~ L(NLD$dPxdPm) + NLD$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.085052 -0.010273 -0.003301 0.017130 0.042476
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.002684 0.006806 -0.394 0.695
## L(NLD$dPxdPm) -0.165941 0.289928 -0.572 0.570
## NLD$Yrw_dl 1.965651 0.225100 8.732 0.0000000000304 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02448 on 45 degrees of freedom
## Multiple R-squared: 0.6303, Adjusted R-squared: 0.6139
## F-statistic: 38.36 on 2 and 45 DF, p-value: 0.000000000189
#Imports (M)
NLD_imports <- dynlm(NLD$M_dl~NLD$dPdPm+L(NLD$Y_dl)+L(NLD$M_l))
NLD_eMP <- summary(NLD_imports)$coefficients["NLD$dPdPm","Estimate"]
NLD_eMP <- 0
NLD_Meffekt <- -(NLD_eMP*NLD_ePULC*(1/(1-NLD_ePULC))*mean(NLD$Yf/NLD$Y)*(mean(NLD$M/NLD$Y)/mean(NLD$rulc)))
summary(NLD_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$M_dl ~ NLD$dPdPm + L(NLD$Y_dl) + L(NLD$M_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.075738 -0.010693 -0.001232 0.017270 0.083876
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.065992 0.035669 -1.850 0.071 .
## NLD$dPdPm 0.031245 0.088588 0.353 0.726
## L(NLD$Y_dl) 1.842630 0.239392 7.697 0.0000000011 ***
## L(NLD$M_l) 0.012933 0.006418 2.015 0.050 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02852 on 44 degrees of freedom
## Multiple R-squared: 0.5746, Adjusted R-squared: 0.5456
## F-statistic: 19.81 on 3 and 44 DF, p-value: 0.0000000282
names(NLD_consumption$coefficients) <- sub("NLD$","",names(NLD_consumption$coefficients),fixed=TRUE)
names(NLD_investment$coefficients) <- sub("NLD$","",names(NLD_investment$coefficients),fixed=TRUE)
names(NLD_deflator$coefficients) <- sub("NLD$","",names(NLD_deflator$coefficients),fixed=TRUE)
names(NLD_exportdeflator$coefficients) <- sub("NLD$","",names(NLD_exportdeflator$coefficients),fixed=TRUE)
names(NLD_exports$coefficients) <- sub("NLD$","",names(NLD_exports$coefficients),fixed=TRUE)
names(NLD_imports$coefficients) <- sub("NLD$","",names(NLD_imports$coefficients),fixed=TRUE)
NLD_Xeffekt
## [1] 0
NLD_Meffekt
## [1] 0
#Nettoeksport (NX)
NLD_NXeffekt <- NLD_Xeffekt - NLD_Meffekt
NLD_NXeffekt
## [1] 0
#Nettoeffekten
NLD_Neteffekt = NLD_Ceffekt + NLD_Ieffekt + NLD_NXeffekt
NLD_Neteffekt
## [1] -0.1220165
NLD_Lukket <- NLD_Ceffekt + NLD_Ieffekt
NLD_Lukket_Konklusion <- ifelse(NLD_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
NLD_Lukket_Konklusion
## [1] "Wage-led domestic"
NLD_Def <- ifelse(NLD_Neteffekt > 0, "Profit-led", "Wage-led")
NLD_Def
## [1] "Wage-led"
summary(ur.df(y=NLD_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0148947 -0.0038761 0.0005409 0.0040152 0.0126858
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.00899 0.57301 -1.761 0.0922 .
## z.diff.lag1 0.18691 0.52635 0.355 0.7259
## z.diff.lag2 0.28320 0.44932 0.630 0.5350
## z.diff.lag3 0.47678 0.34762 1.372 0.1840
## z.diff.lag4 0.24488 0.34095 0.718 0.4802
## z.diff.lag5 0.57802 0.32960 1.754 0.0934 .
## z.diff.lag6 0.43404 0.34633 1.253 0.2233
## z.diff.lag7 0.45231 0.33835 1.337 0.1949
## z.diff.lag8 0.43607 0.31402 1.389 0.1788
## z.diff.lag9 0.35486 0.27831 1.275 0.2156
## z.diff.lag10 -0.03887 0.28459 -0.137 0.8926
## z.diff.lag11 0.01951 0.26482 0.074 0.9419
## z.diff.lag12 0.04193 0.21097 0.199 0.8443
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.008356 on 22 degrees of freedom
## Multiple R-squared: 0.5938, Adjusted R-squared: 0.3538
## F-statistic: 2.474 on 13 and 22 DF, p-value: 0.02953
##
##
## Value of test-statistic is: -1.7609
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=NLD_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.101547 -0.031880 0.007131 0.033467 0.070539
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.49826 0.89973 -1.665 0.110
## z.diff.lag1 0.75385 0.87585 0.861 0.399
## z.diff.lag2 0.70337 0.85564 0.822 0.420
## z.diff.lag3 0.51260 0.81475 0.629 0.536
## z.diff.lag4 0.88037 0.80531 1.093 0.286
## z.diff.lag5 0.08630 0.77138 0.112 0.912
## z.diff.lag6 0.16549 0.71571 0.231 0.819
## z.diff.lag7 -0.05744 0.63796 -0.090 0.929
## z.diff.lag8 0.64461 0.56384 1.143 0.265
## z.diff.lag9 0.05817 0.48113 0.121 0.905
## z.diff.lag10 -0.08377 0.39838 -0.210 0.835
## z.diff.lag11 0.24478 0.33222 0.737 0.469
## z.diff.lag12 0.31779 0.24171 1.315 0.202
##
## Residual standard error: 0.05618 on 22 degrees of freedom
## Multiple R-squared: 0.8214, Adjusted R-squared: 0.7159
## F-statistic: 7.783 on 13 and 22 DF, p-value: 0.0000165
##
##
## Value of test-statistic is: -1.6652
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=NLD_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.029823 -0.006037 0.004097 0.016833 0.034089
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.47858 0.32494 -1.473 0.155
## z.diff.lag1 -0.33344 0.31651 -1.053 0.304
## z.diff.lag2 0.02375 0.31950 0.074 0.941
## z.diff.lag3 0.01385 0.32392 0.043 0.966
## z.diff.lag4 -0.01502 0.31709 -0.047 0.963
## z.diff.lag5 -0.04564 0.28544 -0.160 0.874
## z.diff.lag6 0.17049 0.26951 0.633 0.534
## z.diff.lag7 0.17107 0.26254 0.652 0.521
## z.diff.lag8 -0.06932 0.25067 -0.277 0.785
## z.diff.lag9 0.12340 0.23067 0.535 0.598
## z.diff.lag10 0.30148 0.22118 1.363 0.187
## z.diff.lag11 0.26894 0.22068 1.219 0.236
## z.diff.lag12 -0.11350 0.18283 -0.621 0.541
##
## Residual standard error: 0.02142 on 22 degrees of freedom
## Multiple R-squared: 0.6082, Adjusted R-squared: 0.3767
## F-statistic: 2.627 on 13 and 22 DF, p-value: 0.02217
##
##
## Value of test-statistic is: -1.4728
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=NLD_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042992 -0.002878 0.006385 0.016149 0.060338
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -3.2555 1.6287 -1.999 0.0581 .
## z.diff.lag1 2.0888 1.5745 1.327 0.1982
## z.diff.lag2 1.7765 1.4919 1.191 0.2464
## z.diff.lag3 1.7701 1.4204 1.246 0.2258
## z.diff.lag4 1.0956 1.3138 0.834 0.4133
## z.diff.lag5 1.1450 1.2004 0.954 0.3505
## z.diff.lag6 0.6607 1.0809 0.611 0.5473
## z.diff.lag7 0.5201 0.9574 0.543 0.5924
## z.diff.lag8 0.3417 0.7992 0.428 0.6731
## z.diff.lag9 0.1483 0.6443 0.230 0.8200
## z.diff.lag10 0.4764 0.5619 0.848 0.4057
## z.diff.lag11 0.1369 0.4125 0.332 0.7432
## z.diff.lag12 0.3523 0.3055 1.153 0.2612
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02896 on 22 degrees of freedom
## Multiple R-squared: 0.7412, Adjusted R-squared: 0.5882
## F-statistic: 4.846 on 13 and 22 DF, p-value: 0.0005922
##
##
## Value of test-statistic is: -1.9989
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(NLD_consumption)
plot(NLD_investment)
plot(NLD_deflator)
plot(NLD_exportdeflator)
plot(NLD_exports)
plot(NLD_imports)
bptest(NLD_consumption)
##
## studentized Breusch-Pagan test
##
## data: NLD_consumption
## BP = 3.4459, df = 2, p-value = 0.1785
bptest(NLD_investment)
##
## studentized Breusch-Pagan test
##
## data: NLD_investment
## BP = 2.8104, df = 2, p-value = 0.2453
bptest(NLD_deflator)
##
## studentized Breusch-Pagan test
##
## data: NLD_deflator
## BP = 1.2976, df = 2, p-value = 0.5227
bptest(NLD_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: NLD_exportdeflator
## BP = 3.336, df = 2, p-value = 0.1886
bptest(NLD_exports)
##
## studentized Breusch-Pagan test
##
## data: NLD_exports
## BP = 1.1065, df = 2, p-value = 0.5751
bptest(NLD_imports)
##
## studentized Breusch-Pagan test
##
## data: NLD_imports
## BP = 4.7615, df = 3, p-value = 0.1901
resettest(NLD_consumption)
##
## RESET test
##
## data: NLD_consumption
## RESET = 0.074004, df1 = 2, df2 = 43, p-value = 0.9288
resettest(NLD_investment)
##
## RESET test
##
## data: NLD_investment
## RESET = 1.8023, df1 = 2, df2 = 43, p-value = 0.1772
resettest(NLD_deflator)
##
## RESET test
##
## data: NLD_deflator
## RESET = 2.6332, df1 = 2, df2 = 43, p-value = 0.08341
resettest(NLD_exportdeflator)
##
## RESET test
##
## data: NLD_exportdeflator
## RESET = 4.3724, df1 = 2, df2 = 43, p-value = 0.01868
resettest(NLD_exports)
##
## RESET test
##
## data: NLD_exports
## RESET = 0.96104, df1 = 2, df2 = 43, p-value = 0.3906
resettest(NLD_imports)
##
## RESET test
##
## data: NLD_imports
## RESET = 0.53327, df1 = 2, df2 = 42, p-value = 0.5906
NLD_regtab <- matrix(c(NLD_Ceffekt, NLD_Ieffekt, NLD_Lukket, NLD_Xeffekt, NLD_Meffekt, NLD_NXeffekt, NLD_Neteffekt,NLD_Lukket_Konklusion, NLD_Def),ncol=9,byrow=TRUE)
colnames(NLD_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(NLD_regtab) <- c("NLD")
NLD_regtab <- as.table(NLD_regtab)
NLD_regtab
## consumption investment Lukket neteffekt exports
## NLD -0.328292807643207 0.206276261116581 -0.122016546526626 0
## imports netexports neteffect Lukket konklusion Konklusion
## NLD 0 0 -0.122016546526626 Wage-led domestic Wage-led
NLD_smoke <- matrix(c(mean(NLD$C/NLD$R), mean(NLD$C/NLD$W), mean(NLD$I/NLD$R), NLD_CR, NLD_CW, NLD_iPS, NLD_ePULC, (1/(1-NLD_ePULC)), NLD_eXP, NLD_ePX, NLD_eMP, mean(NLD$Yf/NLD$Y), mean(NLD$X/NLD$Y), mean(NLD$rulc), (mean(NLD$X/NLD$Y)/mean(NLD$rulc))),ncol=15,byrow=TRUE)
colnames(NLD_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(NLD_smoke) <- c("NLD")
NLD_smoke <- as.table(NLD_smoke)
NLD_smoke
## C/R C/W I/R CR CW iPS ePULC
## NLD 1.7450832 0.8046459 0.5586767 0.1925828 0.8256623 0.3692230 0.5830374
## 1/1-epulc eXP ePX eMP Yf/Y X/Y RULC
## NLD 2.3982968 0.0000000 0.7095967 0.0000000 0.9206594 0.4985315 0.6274543
## (X/Y)/rulc
## NLD 0.7945304
summary(NLD_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$C_dl ~ NLD$R_dl + NLD$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.020017 -0.006577 -0.001319 0.005159 0.024334
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.001298 0.002526 -0.514 0.61
## R_dl 0.192583 0.033147 5.810 0.00000059739981 ***
## W_dl 0.825662 0.084361 9.787 0.00000000000102 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01104 on 45 degrees of freedom
## Multiple R-squared: 0.6976, Adjusted R-squared: 0.6841
## F-statistic: 51.89 on 2 and 45 DF, p-value: 0.000000000002063
summary(NLD_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$I_dl ~ NLD$PS_l + NLD$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.12975 -0.02652 -0.00109 0.03412 0.28220
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 1.14691 0.64143 1.788 0.0805 .
## PS_l 0.36922 0.18629 1.982 0.0536 .
## Y_l -0.11453 0.07209 -1.589 0.1191
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.07171 on 45 degrees of freedom
## Multiple R-squared: 0.08352, Adjusted R-squared: 0.04278
## F-statistic: 2.05 on 2 and 45 DF, p-value: 0.1405
summary(NLD_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$P_dl ~ L(NLD$ulc_dl) + NLD$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.028044 -0.005224 -0.000732 0.007861 0.031705
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.011668 0.002257 5.170 0.0000052075850 ***
## L(ulc_dl) 0.583037 0.059897 9.734 0.0000000000012 ***
## Pm_dl 0.178209 0.032417 5.497 0.0000017289440 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0123 on 45 degrees of freedom
## Multiple R-squared: 0.8115, Adjusted R-squared: 0.8031
## F-statistic: 96.88 on 2 and 45 DF, p-value: < 0.00000000000000022
summary(NLD_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$Px_dl ~ NLD$ulc_dl + NLD$Pm_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.167775 -0.026063 0.003188 0.023836 0.160499
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.06150 0.24554 -0.250 0.8034
## ulc_dl 0.70960 0.35966 1.973 0.0547 .
## Pm_l 0.01390 0.05365 0.259 0.7968
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.05023 on 45 degrees of freedom
## Multiple R-squared: 0.151, Adjusted R-squared: 0.1133
## F-statistic: 4.002 on 2 and 45 DF, p-value: 0.02514
summary(NLD_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$X_dl ~ L(NLD$dPxdPm) + NLD$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.085052 -0.010273 -0.003301 0.017130 0.042476
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.002684 0.006806 -0.394 0.695
## L(dPxdPm) -0.165941 0.289928 -0.572 0.570
## Yrw_dl 1.965651 0.225100 8.732 0.0000000000304 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02448 on 45 degrees of freedom
## Multiple R-squared: 0.6303, Adjusted R-squared: 0.6139
## F-statistic: 38.36 on 2 and 45 DF, p-value: 0.000000000189
summary(NLD_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = NLD$M_dl ~ NLD$dPdPm + L(NLD$Y_dl) + L(NLD$M_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.075738 -0.010693 -0.001232 0.017270 0.083876
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.065992 0.035669 -1.850 0.071 .
## dPdPm 0.031245 0.088588 0.353 0.726
## L(Y_dl) 1.842630 0.239392 7.697 0.0000000011 ***
## L(M_l) 0.012933 0.006418 2.015 0.050 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02852 on 44 degrees of freedom
## Multiple R-squared: 0.5746, Adjusted R-squared: 0.5456
## F-statistic: 19.81 on 3 and 44 DF, p-value: 0.0000000282
PRT_df[!complete.cases(PRT_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.6724782 -0.39678554 NA 0.32752177 -1.1162008 NA
## 1961 0.7052518 -0.34920037 0.047585169 0.29474819 -1.2216339 -0.105433108
## 1962 0.6632485 -0.41060560 -0.061405235 0.33675154 -1.0884099 0.133223967
## 1963 0.7032633 -0.35202388 0.058581724 0.29673667 -1.2149102 -0.126500260
## 1964 0.7126318 -0.33879041 0.013233476 0.28736820 -1.2469909 -0.032080792
## 1965 0.6840850 -0.37967306 -0.040882655 0.31591497 -1.1522822 0.094708774
## 1966 0.7132323 -0.33794811 0.041724950 0.28676770 -1.2490828 -0.096800610
## 1967 0.7395210 -0.30175263 0.036195484 0.26047902 -1.3452330 -0.096150174
## 1968 0.7413201 -0.29932276 0.002429869 0.25867990 -1.3521639 -0.006930946
## 1969 0.7724867 -0.25814048 0.041182280 0.22751329 -1.4805466 -0.128382707
## 1970 0.7888944 -0.23712282 0.021017658 0.21110561 -1.5553967 -0.074850138
## 1971 0.7702652 -0.26102035 -0.023897527 0.22973475 -1.4708299 0.084566866
## 1972 0.7628420 -0.27070430 -0.009683949 0.23715796 -1.4390289 0.031801026
## 1973 0.7609457 -0.27319321 -0.002488919 0.23905425 -1.4310648 0.007964101
## 1974 0.8332972 -0.18236487 0.090828340 0.16670276 -1.7915429 -0.360478152
## 1975 0.9383954 -0.06358389 0.118780987 0.06160460 -2.7870187 -0.995475762
## 1976 0.9278648 -0.07486926 -0.011285375 0.07213521 -2.6292129 0.157805736
## 1977 0.8671001 -0.14260086 -0.067731594 0.13289990 -2.0181590 0.611053892
## 1978 0.7952647 -0.22908029 -0.086479435 0.20473532 -1.5860372 0.432121797
## 1979 0.7376890 -0.30423292 -0.075152630 0.26231098 -1.3382245 0.247812702
## 1980 0.7059547 -0.34820422 -0.043971295 0.29404531 -1.2240214 0.114203122
## 1981 0.7098594 -0.34268833 0.005515885 0.29014058 -1.2373897 -0.013368286
## 1982 0.7357476 -0.30686814 0.035820187 0.26425239 -1.3308506 -0.093460891
## 1983 0.6777412 -0.38898975 -0.082121607 0.32225878 -1.1324004 0.198450219
## 1984 0.6042436 -0.50377792 -0.114788173 0.39575644 -0.9269563 0.205444082
## 1985 0.6160102 -0.48449172 0.019286202 0.38398978 -0.9571393 -0.030183049
## 2019 0.5992491 -0.51207791 -0.003924482 0.40075090 -0.9144152 0.005897224
## 2020 0.6023634 -0.50689441 0.005183501 0.39763663 -0.9222167 -0.007801446
## 2021 0.5962770 -0.51704996 -0.010155557 0.40372301 -0.9070263 0.015190421
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 32.0900 3.468544 NA 8478987488619 29.76861 NA
## 1961 33.2388 3.503718 0.035173413 8860258182199 29.81260 0.0439848616
## 1962 36.7383 3.603820 0.100101939 9379237386071 29.86952 0.0569225532
## 1963 38.1489 3.641497 0.037677116 9891329794829 29.92268 0.0531601375
## 1964 40.4582 3.700269 0.058772419 10562831558643 29.98836 0.0656827872
## 1965 44.2657 3.790210 0.089940768 11159968865143 30.04335 0.0549917847
## 1966 46.2815 3.834742 0.044532202 11835570163916 30.10213 0.0587762508
## 1967 48.2037 3.875436 0.040693468 12365912083035 30.14596 0.0438342437
## 1968 50.6490 3.924919 0.049483706 13136925128664 30.20645 0.0604833157
## 1969 51.8823 3.948978 0.024058204 13896212050820 30.26264 0.0561893115
## 1970 56.2792 4.030325 0.081347326 14236997678385 30.28687 0.0242277579
## 1971 62.1822 4.130069 0.099743768 14821011015781 30.32707 0.0402017907
## 1972 68.6357 4.228813 0.098744022 15669311788602 30.38273 0.0556582991
## 1973 72.0132 4.276849 0.048036628 16653366518980 30.44363 0.0609082530
## 1974 74.1121 4.305579 0.028729376 16808158238841 30.45289 0.0092519887
## 1975 70.3361 4.253285 -0.052293631 16814407611785 30.45326 0.0003717368
## 1976 71.9468 4.275927 0.022641776 17626125898850 30.50040 0.0471461126
## 1977 76.2755 4.334352 0.058424829 18324959025266 30.53929 0.0388817843
## 1978 80.9782 4.394180 0.059828197 19089479321840 30.58016 0.0408733507
## 1979 86.7285 4.462783 0.068602567 19856349483031 30.61954 0.0393864667
## 1980 90.8604 4.509324 0.046541713 20127109972021 30.63309 0.0135438320
## 1981 92.8365 4.530840 0.021515619 20540754427572 30.65343 0.0203432724
## 1982 94.8448 4.552242 0.021401990 20522367047250 30.65254 -0.0008955667
## 1983 95.7664 4.561912 0.009670021 21098531494544 30.68022 0.0276880738
## 1984 94.7686 4.551438 -0.010473762 22076081679865 30.72552 0.0452913049
## 1985 96.3194 4.567670 0.016231622 22878130648022 30.76120 0.0356867152
## 2019 198.9762 5.293185 0.021336066 NA NA NA
## 2020 185.5151 5.223136 -0.070048939 NA NA NA
## 2021 196.3082 5.279686 0.056549593 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 0.02874 32.06126 3.467648 NA 19.6412 2.977629
## 1961 0.03357 33.20523 3.502707 0.035058946 20.7031 3.030283
## 1962 0.03770 36.70060 3.602793 0.100085710 21.7768 3.080845
## 1963 0.03894 38.10996 3.640476 0.037682562 23.2407 3.145905
## 1964 0.04332 40.41488 3.699198 0.058722369 24.1956 3.186171
## 1965 0.05160 44.21410 3.789044 0.089845709 26.4421 3.274957
## 1966 0.05773 46.22377 3.833494 0.044450425 27.4412 3.312046
## 1967 0.06922 48.13448 3.873999 0.040504592 28.7974 3.360285
## 1968 0.07893 50.57007 3.923360 0.049361139 30.7576 3.426137
## 1969 0.08754 51.79476 3.947289 0.023929087 29.9731 3.400300
## 1970 0.10612 56.17308 4.028438 0.081148653 32.7741 3.489639
## 1971 0.11300 62.06920 4.128250 0.099812253 36.0664 3.585362
## 1972 0.12747 68.50823 4.226954 0.098703992 37.6378 3.628009
## 1973 0.15318 71.86002 4.274720 0.047766176 40.1731 3.693198
## 1974 0.18666 73.92544 4.303057 0.028336958 43.6589 3.776407
## 1975 0.21056 70.12554 4.250287 -0.052769953 41.3185 3.721310
## 1976 0.31115 71.63565 4.271593 0.021305791 41.7955 3.732789
## 1977 0.40003 75.87547 4.329093 0.057500589 42.8834 3.758485
## 1978 0.47399 80.50421 4.388309 0.059216037 45.6072 3.820066
## 1979 0.58710 86.14140 4.455990 0.067680651 48.8533 3.888822
## 1980 0.86787 89.99253 4.499727 0.043736535 52.9964 3.970224
## 1981 1.05506 91.78144 4.519410 0.019683432 54.3172 3.994841
## 1982 1.35099 93.49381 4.537895 0.018485132 55.4023 4.014621
## 1983 1.75869 94.00771 4.543377 0.005481569 55.2098 4.011140
## 1984 2.14257 92.62603 4.528570 -0.014806597 55.2071 4.011092
## 1985 2.62037 93.69903 4.540088 0.011517633 55.9226 4.023969
## 2019 32.50151 166.47469 5.114843 0.018251666 129.7675 4.865744
## 2020 30.27231 155.24279 5.044990 -0.069853007 122.2410 4.805995
## 2021 32.41118 163.89702 5.099238 0.054248025 128.7198 4.857638
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA 21.56050 3.070863 NA 10.500761 2.351448
## 1961 0.05265404666 23.41805 3.153507 0.0826441145 9.787182 2.281074
## 1962 0.05056173541 24.34162 3.192187 0.0386804749 12.358983 2.514383
## 1963 0.06505986908 26.80134 3.288452 0.0962642852 11.308623 2.425566
## 1964 0.04026574644 28.80093 3.360408 0.0719558442 11.613951 2.452207
## 1965 0.08878663849 30.24620 3.409371 0.0489630538 13.967896 2.636762
## 1966 0.03708809674 32.96829 3.495546 0.0861753750 13.255484 2.584411
## 1967 0.04823957161 35.59646 3.572246 0.0767000764 12.538022 2.528766
## 1968 0.06585201290 37.48861 3.624037 0.0517910080 13.081460 2.571196
## 1969 -0.02583680544 40.01076 3.689149 0.0651113662 11.783996 2.466742
## 1970 0.08933825657 44.31463 3.791315 0.1021663108 11.858452 2.473041
## 1971 0.09572311468 47.80975 3.867230 0.0759147263 14.259452 2.657420
## 1972 0.04264718055 52.26096 3.956250 0.0890200439 16.247272 2.787925
## 1973 0.06518875286 54.68158 4.001527 0.0452772572 17.178443 2.843655
## 1974 0.08320953871 61.60186 4.120692 0.1191652972 12.323575 2.511514
## 1975 -0.05509681456 65.80548 4.186703 0.0660110333 4.320056 1.463268
## 1976 0.01147833667 66.46820 4.196724 0.0100204160 5.167453 1.642380
## 1977 0.02569612643 65.79163 4.186493 -0.0102310054 10.083843 2.310934
## 1978 0.06158079413 64.02215 4.159229 -0.0272633973 16.482055 2.802272
## 1979 0.06875633115 63.54557 4.151757 -0.0074719789 22.595835 3.117766
## 1980 0.08140205677 63.53065 4.151522 -0.0002347603 26.461881 3.275705
## 1981 0.02461694881 65.15192 4.176722 0.0251993166 26.629520 3.282020
## 1982 0.01978017361 68.78785 4.231027 0.0543053194 24.705963 3.207045
## 1983 -0.00348063538 63.71290 4.154387 -0.0766400376 30.294810 3.410976
## 1984 -0.00004890556 55.96868 4.024792 -0.1295947692 36.657348 3.601614
## 1985 0.01287702364 57.71956 4.055596 0.0308038358 35.979470 3.582948
## 2019 0.02210705864 99.75981 4.602765 0.0143271836 66.714882 4.200428
## 2020 -0.05974988170 93.51257 4.538096 -0.0646695059 61.730220 4.122774
## 2021 0.05164344291 97.72802 4.582188 0.0440924682 66.168998 4.192212
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA 5.54009 1.712011 NA 0.10354 -2.2677973
## 1961 -0.070374162 6.39898 1.856139 0.144127857 0.12588 -2.0724262
## 1962 0.233309677 6.38199 1.853480 -0.002658642 0.13198 -2.0251049
## 1963 -0.088817698 5.68120 1.737162 -0.116317483 0.12662 -2.0665648
## 1964 0.026641577 6.24993 1.832570 0.095407786 0.14197 -1.9521395
## 1965 0.184554483 7.17206 1.970193 0.137622658 0.16307 -1.8135757
## 1966 -0.052350185 8.63635 2.155980 0.185787118 0.20131 -1.6029093
## 1967 -0.055645581 8.57533 2.148889 -0.007090564 0.21867 -1.5201915
## 1968 0.042430193 9.11491 2.209912 0.061022058 0.23043 -1.4678082
## 1969 -0.104453621 10.31252 2.333359 0.123447157 0.26394 -1.3320335
## 1970 0.006298515 10.76649 2.376439 0.043079842 0.29210 -1.2306591
## 1971 0.184379119 12.96923 2.562580 0.186141096 0.37458 -0.9819499
## 1972 0.130505018 15.72750 2.755411 0.192831144 0.47117 -0.7525363
## 1973 0.055730277 17.13105 2.840893 0.085481834 0.57635 -0.5510402
## 1974 -0.332141194 18.20272 2.901571 0.060678427 0.75859 -0.2762938
## 1975 -1.048245716 14.36332 2.664678 -0.236893299 0.72613 -0.3200262
## 1976 0.179111527 13.44757 2.598798 -0.065879314 0.80855 -0.2125128
## 1977 0.668554481 16.13440 2.780954 0.182155218 1.24134 0.2161914
## 1978 0.491337834 15.53210 2.742909 -0.038044788 1.43544 0.3614714
## 1979 0.315493353 17.63096 2.869656 0.126747597 2.05359 0.7195895
## 1980 0.157939657 16.66890 2.813545 -0.056111740 2.40276 0.8766181
## 1981 0.006315145 19.13550 2.951545 0.138000541 3.29332 1.1918962
## 1982 -0.074975758 19.51990 2.971434 0.019889209 3.92550 1.3674937
## 1983 0.203931789 18.99461 2.944155 -0.027279203 4.75156 1.5584730
## 1984 0.190637485 16.73223 2.817337 -0.126818455 5.13198 1.6354915
## 1985 -0.018665416 16.58550 2.808529 -0.008807980 5.91447 1.7774019
## 2019 0.024148890 35.85562 3.579500 0.060864554 38.82011 3.6589384
## 2020 -0.077654454 32.77204 3.489576 -0.089924606 35.62351 3.5730058
## 2021 0.069438446 35.68875 3.574836 0.085259800 39.41470 3.6741388
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA 0.09001 -2.40783450 NA 0.8693259 -0.14003724
## 1961 0.19537106 0.11153 -2.19346167 0.21437284 0.8860025 -0.12103546
## 1962 0.04732132 0.11503 -2.16256232 0.03089935 0.8715715 -0.13745743
## 1963 -0.04145992 0.10606 -2.24375031 -0.08118799 0.8376244 -0.17718550
## 1964 0.11442529 0.12129 -2.10957091 0.13417940 0.8543354 -0.15743140
## 1965 0.13856379 0.14218 -1.95066142 0.15890949 0.8718955 -0.13708570
## 1966 0.21066645 0.17780 -1.72709596 0.22356546 0.8832149 -0.12418669
## 1967 0.08271774 0.19363 -1.64180616 0.08528980 0.8854896 -0.12161462
## 1968 0.05238338 0.20344 -1.59238416 0.04942200 0.8828712 -0.12457601
## 1969 0.13577468 0.23247 -1.45899409 0.13339006 0.8807684 -0.12696062
## 1970 0.10137440 0.25992 -1.34738139 0.11161271 0.8898322 -0.11672232
## 1971 0.24870919 0.33756 -1.08601201 0.26136938 0.9011693 -0.10406213
## 1972 0.22941356 0.42848 -0.84751122 0.23850079 0.9093958 -0.09497490
## 1973 0.20149615 0.52552 -0.64336703 0.20414419 0.9118071 -0.09232687
## 1974 0.27474633 0.69826 -0.35916375 0.28420328 0.9204709 -0.08286992
## 1975 -0.04373238 0.65125 -0.42886169 -0.06969793 0.8968780 -0.10883547
## 1976 0.10751346 0.70743 -0.34611659 0.08274509 0.8749366 -0.13360384
## 1977 0.42870420 1.10157 0.09673643 0.44285303 0.8874039 -0.11945501
## 1978 0.14527998 1.18218 0.16736019 0.07062376 0.8235663 -0.19411123
## 1979 0.35811806 1.73184 0.54918443 0.38182424 0.8433232 -0.17040505
## 1980 0.15702860 2.01453 0.70038592 0.15120149 0.8384233 -0.17623216
## 1981 0.31527810 2.73850 1.00741033 0.30702441 0.8315317 -0.18448585
## 1982 0.17559756 3.30461 1.19531846 0.18790814 0.8418316 -0.17217527
## 1983 0.19097925 4.05288 1.39942774 0.20410928 0.8529578 -0.15904525
## 1984 0.07701856 4.40072 1.48176816 0.08234042 0.8575092 -0.15372339
## 1985 0.14191034 5.04878 1.61914663 0.13737847 0.8536319 -0.15825526
## 2019 0.07984564 34.84021 3.55077218 0.08359107 0.8974784 -0.10816623
## 2020 -0.08593260 31.06675 3.43613812 -0.11463406 0.8720856 -0.13686770
## 2021 0.10113303 34.40241 3.53812662 0.10198850 0.8728320 -0.13601222
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA 4.816144 1.571974 NA NA NA
## 1961 0.0190017770 5.669513 1.735103 0.163129634 NA NA
## 1962 -0.0164219729 5.562360 1.716023 -0.019080615 NA NA
## 1963 -0.0397280714 4.758712 1.559977 -0.156045554 NA NA
## 1964 0.0197541081 5.339537 1.675139 0.115161894 NA NA
## 1965 0.0203456994 6.253287 1.833107 0.157968357 NA NA
## 1966 0.0128990105 7.627753 2.031793 0.198686129 NA NA
## 1967 0.0025720629 7.593365 2.027275 -0.004518501 NA NA
## 1968 -0.0029613850 8.047291 2.085336 0.058060673 NA NA
## 1969 -0.0023846126 9.082941 2.206398 0.121062544 NA NA
## 1970 0.0102383021 9.580370 2.259716 0.053318144 NA NA
## 1971 0.0126601920 11.687472 2.458518 0.198801288 NA NA
## 1972 0.0090872254 14.302522 2.660436 0.201918369 NA NA
## 1973 0.0026480341 15.620212 2.748566 0.088129868 NA NA
## 1974 0.0094569457 16.755074 2.818701 0.070135373 NA NA
## 1975 -0.0259655483 12.882145 2.555842 -0.262858847 NA NA
## 1976 -0.0247683662 11.765771 2.465195 -0.090647680 NA NA
## 1977 0.0141488290 14.317730 2.661499 0.196304047 NA NA
## 1978 -0.0746562244 12.791714 2.548798 -0.112701013 NA NA
## 1979 0.0237061768 14.868597 2.699251 0.150453774 NA NA
## 1980 -0.0058271051 13.975594 2.637313 -0.061938845 NA NA
## 1981 -0.0082536902 15.911775 2.767059 0.129746851 NA NA
## 1982 0.0123105809 16.432469 2.799259 0.032199790 NA NA
## 1983 0.0131300227 16.201600 2.785110 -0.014149181 NA NA
## 1984 0.0053218599 14.348041 2.663613 -0.121496595 NA NA
## 1985 -0.0045318750 14.157911 2.650274 -0.013339855 5.7590106 2.1851435
## 2019 0.0037454287 32.179644 3.471334 0.064609982 -0.9448307 0.7830259
## 2020 -0.0287014659 28.580024 3.352708 -0.118626072 NA NA
## 2021 0.0008554746 31.150282 3.438823 0.086115275 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 1.551567 0.4392657 NA 5.402471 1.686856
## 1961 NA 1.559447 0.4443310 0.005065304 5.254883 1.659158
## 1962 NA 1.583580 0.4596879 0.015356839 5.244678 1.657214
## 1963 NA 1.575633 0.4546569 -0.005030948 5.321812 1.671814
## 1964 NA 1.612759 0.4779466 0.023289657 5.529789 1.710150
## 1965 NA 1.714880 0.5393429 0.061396311 5.555577 1.714802
## 1966 NA 1.750566 0.5599394 0.020596576 5.625097 1.727238
## 1967 NA 1.882769 0.6327437 0.072804222 5.523424 1.708998
## 1968 NA 1.937839 0.6615734 0.028829763 5.258790 1.659901
## 1969 NA 2.029772 0.7079236 0.046350185 5.302536 1.668185
## 1970 NA 2.111065 0.7471927 0.039269082 5.645302 1.730824
## 1971 NA 2.211261 0.7935630 0.046370330 5.862544 1.768584
## 1972 NA 2.363526 0.8601546 0.066591583 5.978884 1.788234
## 1973 NA 2.663364 0.9795901 0.119435446 6.639915 1.893099
## 1974 NA 3.062979 1.1193879 0.139797879 9.297783 2.229776
## 1975 NA 3.736749 1.3182159 0.198827989 10.301745 2.332313
## 1976 NA 4.369834 1.4747249 0.156509002 11.626240 2.453265
## 1977 NA 5.297696 1.6672719 0.192547003 14.752467 2.691410
## 1978 NA 6.172219 1.8200584 0.152786435 17.784593 2.878333
## 1979 NA 7.327585 1.9916460 0.171587667 23.681052 3.164675
## 1980 NA 9.090450 2.2072244 0.215578333 29.391867 3.380718
## 1981 NA 10.689283 2.3692416 0.162017273 35.879367 3.580162
## 1982 NA 12.651973 2.5378132 0.168571538 41.159621 3.717458
## 1983 NA 16.009284 2.7731688 0.235355637 52.082947 3.952838
## 1984 NA 19.866163 2.9890179 0.215849131 68.277746 4.223584
## 1985 NA 23.995154 3.1778519 0.188833929 75.184926 4.319951
## 2019 -0.4356827 106.697575 4.6699984 0.017064490 102.685494 4.631671
## 2020 NA 108.002367 4.6821531 0.012154718 101.143954 4.616545
## 2021 NA 109.486086 4.6957975 0.013644330 102.379620 4.628688
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 4.113080 1.414172 NA 1.86167 0.6214739
## 1961 -0.027698607 4.126361 1.417396 0.00322374063 1.88798 0.6355075
## 1962 -0.001943891 4.017734 1.390718 -0.02667794024 2.31116 0.8377496
## 1963 0.014599941 4.122084 1.416359 0.02564092053 2.38477 0.8691027
## 1964 0.038335794 4.281545 1.454314 0.03795492130 2.81450 1.0347846
## 1965 0.004652647 4.421460 1.486470 0.03215605662 3.06680 1.1206347
## 1966 0.012435833 4.468426 1.497036 0.01056637518 3.20556 1.1648868
## 1967 -0.018240254 4.542076 1.513384 0.01634795347 3.54846 1.2665137
## 1968 -0.049096904 4.542243 1.513421 0.00003663456 3.83285 1.3436087
## 1969 0.008284215 4.630412 1.532646 0.01922484216 4.30766 1.4603948
## 1970 0.062638516 4.774879 1.563369 0.03072280849 4.59815 1.5256540
## 1971 0.037759909 5.043727 1.618145 0.05477664427 4.94697 1.5987753
## 1972 0.019650290 5.317502 1.671004 0.05285850683 5.49487 1.7038149
## 1973 0.104865235 5.875873 1.770855 0.09985091007 6.18017 1.8213458
## 1974 0.336676827 7.797988 2.053866 0.28301116665 5.87099 1.7700233
## 1975 0.102537344 7.920796 2.069492 0.01562587798 5.02530 1.6144852
## 1976 0.120951320 8.475099 2.137132 0.06764072648 5.01450 1.6123337
## 1977 0.238145658 11.206111 2.416459 0.27932685484 5.27458 1.6628991
## 1978 0.186922253 13.603255 2.610309 0.19384988774 5.80973 1.7595341
## 1979 0.286342682 17.335700 2.852768 0.24245882312 7.42646 2.0050493
## 1980 0.216042766 21.158644 3.052049 0.19928058842 8.25330 2.1106131
## 1981 0.199444409 24.165247 3.184916 0.13286698656 8.20444 2.1046755
## 1982 0.137295290 28.314493 3.343374 0.15845827826 8.60095 2.1518727
## 1983 0.235379894 35.225486 3.561770 0.21839604543 10.38957 2.3408024
## 1984 0.270746290 44.914227 3.804755 0.24298476473 11.87940 2.4748058
## 1985 0.096366877 52.376211 3.958453 0.15369789068 12.86764 2.5547156
## 2019 -0.001381291 103.939759 4.643811 0.00516939802 89.57350 4.4950595
## 2020 -0.015126069 104.052222 4.644893 0.00108141488 76.97389 4.3434663
## 2021 0.012142876 105.289363 4.656712 0.01181949114 87.09891 4.4670444
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA 1.80919 0.5928792 NA 0.6718760 -0.39768155
## 1961 0.014033540 2.43354 0.8893470 0.296467756 0.7045395 -0.35021084
## 1962 0.202242089 2.19247 0.7850288 -0.104318225 0.6625679 -0.41163231
## 1963 0.031353121 2.36971 0.8627676 0.077738823 0.7025455 -0.35304514
## 1964 0.165681942 2.70168 0.9938738 0.131106217 0.7118688 -0.33986171
## 1965 0.085850047 3.14846 1.1469134 0.153039643 0.6832876 -0.38083943
## 1966 0.044252129 3.41003 1.2267211 0.079807645 0.7123426 -0.33919626
## 1967 0.101626904 3.76862 1.3267089 0.099987798 0.7384590 -0.30318965
## 1968 0.077094945 4.47376 1.4982292 0.171520332 0.7401649 -0.30088235
## 1969 0.116786181 4.66472 1.5400278 0.041798593 0.7711833 -0.25982918
## 1970 0.065259215 5.24580 1.6574278 0.117399945 0.7874069 -0.23901020
## 1971 0.073121219 5.87931 1.7714394 0.114011652 0.7688655 -0.26283924
## 1972 0.105039662 6.52723 1.8759827 0.104543249 0.7614253 -0.27256322
## 1973 0.117530849 7.34906 1.9945724 0.118589757 0.7593271 -0.27532259
## 1974 -0.051322505 7.87766 2.0640309 0.069458492 0.8311985 -0.18488667
## 1975 -0.155538120 6.11357 1.8105109 -0.253520015 0.9355862 -0.06658200
## 1976 -0.002151438 6.51929 1.8747655 0.064254584 0.9238520 -0.07920336
## 1977 0.050565340 7.36853 1.9972182 0.122452755 0.8625526 -0.14785920
## 1978 0.096635043 7.41642 2.0036965 0.006478232 0.7906098 -0.23495079
## 1979 0.245515200 8.04333 2.0848432 0.081146716 0.7326953 -0.31102534
## 1980 0.105563822 9.64492 2.2664314 0.181588175 0.6992116 -0.35780181
## 1981 -0.005937649 10.28005 2.3302051 0.063773772 0.7017921 -0.35411811
## 1982 0.047197191 10.88371 2.3872672 0.057062052 0.7252675 -0.32121478
## 1983 0.188929756 10.17793 2.3202217 -0.067045525 0.6652949 -0.40752484
## 1984 0.134003389 9.96696 2.2992756 -0.020946028 0.5905826 -0.52664585
## 1985 0.079909825 10.42887 2.3445779 0.045302299 0.5992517 -0.51207364
## 2019 0.036611686 90.49024 4.5052420 0.050738553 0.5013655 -0.69041984
## 2020 -0.151593244 81.14376 4.3962224 -0.109019603 0.5040699 -0.68504041
## 2021 0.123578096 89.51869 4.4944474 0.098225034 0.4978295 -0.69749753
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA 1.042461 0.04158416 NA 34.94191 3.553687
## 1961 0.047470701 1.098692 0.09412017 0.052536006 35.79733 3.577873
## 1962 -0.061421464 1.049229 0.04805555 -0.046064625 39.17472 3.668032
## 1963 0.058587169 1.106954 0.10161177 0.053556221 40.48988 3.701052
## 1964 0.013183426 1.148073 0.13808485 0.036473083 42.77944 3.756058
## 1965 -0.040977715 1.171756 0.15850345 0.020418597 46.46949 3.838796
## 1966 0.041643173 1.247003 0.22074319 0.062239748 48.12456 3.873793
## 1967 0.036006608 1.390348 0.32955402 0.108810830 49.83344 3.908686
## 1968 0.002307302 1.434320 0.36069109 0.031137065 52.13218 3.953782
## 1969 0.041053162 1.565327 0.44809444 0.087403346 53.07453 3.971697
## 1970 0.020818985 1.662267 0.50818250 0.060088067 56.19065 4.028750
## 1971 -0.023829041 1.700162 0.53072379 0.022541289 60.11802 4.096310
## 1972 -0.009723979 1.799649 0.58759140 0.056867604 65.03633 4.174946
## 1973 -0.002759371 2.022365 0.70426747 0.116676076 66.86245 4.202638
## 1974 0.090435921 2.545943 0.93450127 0.230233800 67.30982 4.209306
## 1975 0.118304665 3.496051 1.25163392 0.317132654 63.30702 4.147996
## 1976 -0.012621361 4.037080 1.39552157 0.143887642 63.97082 4.158427
## 1977 -0.068655834 4.569541 1.51941273 0.123891169 66.39795 4.195666
## 1978 -0.087091594 4.879816 1.58510758 0.065694840 70.15304 4.250679
## 1979 -0.076074546 5.368887 1.68062070 0.095513121 72.71607 4.286562
## 1980 -0.046776474 6.356148 1.84942256 0.168801860 75.12962 4.319215
## 1981 0.003683698 7.501654 2.01512353 0.165700971 74.68688 4.313304
## 1982 0.032903329 9.176064 2.21659839 0.201474867 75.76264 4.327605
## 1983 -0.086310059 10.650895 2.36564397 0.149045578 75.73017 4.327177
## 1984 -0.119121007 11.732609 2.46237210 0.096728124 74.70186 4.313505
## 1985 0.014572214 14.379136 2.66577824 0.203406143 75.08911 4.318676
## 2019 -0.007008882 53.494486 3.97957858 0.010055608 105.55208 4.659205
## 2020 0.005379433 54.440738 3.99711273 0.017534152 100.67390 4.611887
## 2021 -0.012457125 54.505409 3.99829994 0.001187205 104.66626 4.650777
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA 0.1143926
## 1961 0.0241861775 0.0309223479 0.03276391179 0.1300143
## 1962 0.0901583825 -0.0247340490 0.01730073065 0.1225868
## 1963 0.0330204046 0.0110409793 -0.01963088945 0.1246295
## 1964 0.0550056789 -0.0003808723 -0.01504613657 0.1363427
## 1965 0.0827383601 0.0275034098 0.05674366432 0.1404080
## 1966 0.0349965792 -0.0018694578 0.00816074280 0.1429424
## 1967 0.0348935356 0.0345882071 0.09104447559 0.1517950
## 1968 0.0450962005 0.0491335387 0.07792666703 0.1640034
## 1969 0.0179148460 0.0109406268 0.03806596919 0.1729372
## 1970 0.0570531004 -0.0319157074 -0.02336943355 0.1749128
## 1971 0.0675593598 0.0170167348 0.00861042043 0.1741058
## 1972 0.0786363194 0.0332082171 0.04694129292 0.1751581
## 1973 0.0276915530 -0.0050143253 0.01457021100 0.1878715
## 1974 0.0066686276 -0.0536656601 -0.19687894812 0.1855115
## 1975 -0.0613099084 -0.0869114659 0.09629064551 0.1583663
## 1976 0.0104308446 -0.0533105940 0.03555768155 0.1603100
## 1977 0.0372390541 0.0411811972 -0.04559865469 0.1657558
## 1978 0.0550129902 0.0069276349 -0.03413581834 0.1633298
## 1979 0.0358832118 -0.0438838586 -0.11475501516 0.1783703
## 1980 0.0326525218 -0.0167621777 -0.00046443284 0.1969859
## 1981 -0.0059104196 -0.0665774229 -0.03742713594 0.1991080
## 1982 0.0143008554 0.0211629886 0.03127624827 0.2054373
## 1983 -0.0004286395 -0.0169838489 -0.00002425718 0.2147674
## 1984 -0.0136717015 -0.0277615257 -0.05489715901 0.2305232
## 1985 0.0051705449 0.0573310137 0.09246705178 0.2418673
## 2019 0.0153249760 0.0065506895 0.01844578158 0.9049511
## 2020 -0.0473178956 0.0162074843 0.02728078781 0.8523169
## 2021 0.0388902053 -0.0003233851 0.00150145382 0.8996955
## 2022 NA NA NA NA
PRT <- PRT_df[27:59,]
PRT[!complete.cases(PRT),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
PRT %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1986 0.6271932 -0.4665006 0.017991116 0.3728068 -0.9866950 -0.02955569
## 1987 0.6296429 -0.4626024 0.003898184 0.3703571 -0.9932876 -0.00659261
## 1988 0.6164334 -0.4838050 -0.021202621 0.3835666 -0.9582419 0.03504572
## 1989 0.6281430 -0.4649874 0.018817598 0.3718570 -0.9892459 -0.03100396
## 1990 0.6211951 -0.4761100 -0.011122582 0.3788049 -0.9707341 0.01851182
## 1991 0.6499058 -0.4309279 0.045182168 0.3500942 -1.0495530 -0.07881894
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1986 99.5171 4.600329 0.03265974 23624083194071 30.79329 0.03208521
## 1987 107.1125 4.673880 0.07355020 24454179122639 30.82782 0.03453446
## 1988 112.8323 4.725903 0.05202296 25642559603207 30.87527 0.04745233
## 1989 120.3341 4.790272 0.06436940 26650369509487 30.91382 0.03854956
## 1990 129.7917 4.865931 0.07565882 27509928411453 30.94557 0.03174396
## 1991 134.1655 4.899074 0.03314325 27928836767214 30.96068 0.01511276
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1986 3.81748 95.69962 4.561214 0.02112649 59.4709 4.085487 0.06151853
## 1987 4.35842 102.75408 4.632339 0.07112423 64.3688 4.164629 0.07914193
## 1988 5.43071 107.40159 4.676575 0.04423643 69.9737 4.248119 0.08349041
## 1989 6.08138 114.25272 4.738413 0.06183785 73.0129 4.290636 0.04251668
## 1990 7.13680 122.65490 4.809375 0.07096188 78.7328 4.366060 0.07542370
## 1991 8.18908 125.97642 4.836095 0.02672003 85.2952 4.446118 0.08005834
## W W_l W_dl R R_l R_dl It
## 1986 60.02215 4.094714 0.03911761 35.67747 3.574519 -0.008429197 17.57460
## 1987 64.69838 4.169736 0.07502242 38.05570 3.639051 0.064531623 21.43875
## 1988 66.20592 4.192770 0.02303380 41.19567 3.718333 0.079282144 24.72119
## 1989 71.76705 4.273425 0.08065545 42.48567 3.749167 0.030833894 25.56387
## 1990 76.19263 4.333265 0.05983930 46.46227 3.838641 0.089473706 27.35361
## 1991 81.87281 4.405167 0.07190219 44.10361 3.786542 -0.052098914 28.64788
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1986 2.866455 0.05792586 6.98533 1.943812 0.1664103 5.93503 1.780872
## 1987 3.065200 0.19874535 9.25839 2.225530 0.2817179 7.95046 2.073230
## 1988 3.207661 0.14246074 11.81936 2.469739 0.2442087 10.14721 2.317199
## 1989 3.241180 0.03351926 13.58043 2.608630 0.1388909 11.71996 2.461293
## 1990 3.308849 0.06766849 15.65607 2.750859 0.1422289 13.48111 2.601289
## 1991 3.355079 0.04623093 17.52999 2.863913 0.1130544 14.94035 2.704066
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1986 0.1617255 0.8496420 -0.1629402 -0.0046848921 14.93212 2.703515
## 1987 0.2923577 0.8587303 -0.1523004 0.0106397741 18.41010 2.912900
## 1988 0.2439690 0.8585245 -0.1525401 -0.0002396953 21.22375 3.055121
## 1989 0.1440946 0.8630036 -0.1473364 0.0052036595 22.06171 3.093844
## 1990 0.1399961 0.8610788 -0.1495693 -0.0022328402 23.55361 3.159279
## 1991 0.1027762 0.8522737 -0.1598475 -0.0102782671 24.41584 3.195232
## I_dl r r_l r_dl P P_l
## 1986 0.05324097 -2.1329139 0.000000 -2.18514351 28.38216 3.345761
## 1987 0.20938513 5.1605898 2.115473 2.11547252 31.07014 3.436247
## 1988 0.14222104 0.7375816 1.353383 -0.76208999 35.20688 3.561242
## 1989 0.03872292 3.7590534 1.930357 0.57697404 39.00073 3.663580
## 1990 0.06543565 3.6635757 1.916406 -0.01395033 43.41626 3.770834
## 1991 0.03595266 3.2549391 1.854398 -0.06200803 48.16136 3.874557
## P_dl Pm Pm_l Pm_dl Px Px_l Px_dl
## 1986 0.16790879 68.36295 4.224831 -0.09511978 54.49796 3.998163 0.03971083
## 1987 0.09048645 72.41301 4.282386 0.05755501 59.51848 4.086287 0.08812357
## 1988 0.12499444 77.47278 4.349927 0.06754072 65.28951 4.178831 0.09254448
## 1989 0.10233884 83.75031 4.427840 0.07791320 69.72157 4.244510 0.06567843
## 1990 0.10725355 85.81515 4.452196 0.02435563 72.50025 4.283590 0.03908016
## 1991 0.10372304 85.55934 4.449210 -0.00298535 73.32883 4.294954 0.01136388
## X X_l X_dl M M_l M_dl rulc
## 1986 13.89431 2.631479 0.076763771 12.39448 2.517251 0.17267329 0.6031341
## 1987 15.30250 2.728016 0.096536810 15.79084 2.759430 0.24217881 0.6040227
## 1988 16.62347 2.810816 0.082799338 19.20824 2.955339 0.19590933 0.5867639
## 1989 19.73157 2.982220 0.171404339 20.84014 3.036881 0.08154158 0.5963982
## 1990 22.29202 3.104229 0.122008876 24.19977 3.186343 0.14946219 0.5870377
## 1991 22.39257 3.108729 0.004500441 26.22355 3.266658 0.08031473 0.6102374
## rulc_l rulc_dl ulc ulc_l ulc_dl Tau
## 1986 -0.5056158 0.006457870 17.11825 2.840145 0.17436666 78.10826
## 1987 -0.5041435 0.001472221 18.76707 2.932104 0.09195868 81.68908
## 1988 -0.5331327 -0.028989157 20.65813 3.028109 0.09600528 83.42547
## 1989 -0.5168466 0.016286053 23.25997 3.146734 0.11862489 86.43287
## 1990 -0.5326662 -0.015819514 25.48698 3.238168 0.09143403 90.63955
## 1991 -0.4939072 0.038758939 29.38986 3.380650 0.14248198 90.49236
## Tau_l Tau_dl dPxdPm dPdPm Trade
## 1986 4.358096 0.039420266 0.13483061 0.26302857 0.2641635
## 1987 4.402920 0.044824493 0.03056856 0.03293145 0.2902868
## 1988 4.423954 0.021033415 0.02500376 0.05745372 0.3175661
## 1989 4.459368 0.035414296 -0.01223477 0.02442564 0.3371589
## 1990 4.506891 0.047522688 0.01472452 0.08289791 0.3582031
## 1991 4.505265 -0.001625204 0.01434923 0.10670839 0.3623593
PRT %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1986 0.6271932 -0.4665006 0.0179911158 0.3728068 -0.9866950 -0.0295556872
## 1987 0.6296429 -0.4626024 0.0038981837 0.3703571 -0.9932876 -0.0065926104
## 1988 0.6164334 -0.4838050 -0.0212026214 0.3835666 -0.9582419 0.0350457180
## 1989 0.6281430 -0.4649874 0.0188175976 0.3718570 -0.9892459 -0.0310039568
## 1990 0.6211951 -0.4761100 -0.0111225816 0.3788049 -0.9707341 0.0185118216
## 1991 0.6499058 -0.4309279 0.0451821685 0.3500942 -1.0495530 -0.0788189394
## 1992 0.6822369 -0.3823783 0.0485495162 0.3177631 -1.1464491 -0.0968960945
## 1993 0.6793541 -0.3866128 -0.0042344807 0.3206459 -1.1374178 0.0090312963
## 1994 0.6568704 -0.4202685 -0.0336557016 0.3431296 -1.0696471 0.0677707092
## 1995 0.6652631 -0.4075727 0.0126958626 0.3347369 -1.0944105 -0.0247633690
## 1996 0.6767678 -0.3904271 0.0171455576 0.3232322 -1.1293842 -0.0349737523
## 1997 0.6766205 -0.3906447 -0.0002176227 0.3233795 -1.1289287 0.0004554944
## 1998 0.6800022 -0.3856592 0.0049854776 0.3199978 -1.1394411 -0.0105124322
## 1999 0.6765340 -0.3907726 -0.0051133329 0.3234660 -1.1286613 0.0107798964
## 2000 0.6824396 -0.3820813 0.0086913317 0.3175604 -1.1470872 -0.0184259963
## 2001 0.6830525 -0.3811835 0.0008977262 0.3169475 -1.1490192 -0.0019319514
## 2002 0.6798595 -0.3858692 -0.0046856405 0.3201405 -1.1389952 0.0100239800
## 2003 0.6770505 -0.3900094 -0.0041402024 0.3229495 -1.1302594 0.0087358064
## 2004 0.6673790 -0.4043971 -0.0143877688 0.3326210 -1.1007517 0.0295077543
## 2005 0.6732692 -0.3956100 0.0087871340 0.3267308 -1.1186187 -0.0178670843
## 2006 0.6603351 -0.4150078 -0.0193977733 0.3396649 -1.0797959 0.0388228728
## 2007 0.6449137 -0.4386388 -0.0236310387 0.3550863 -1.0353943 0.0444015323
## 2008 0.6484139 -0.4332261 0.0054127487 0.3515861 -1.0453006 -0.0099062831
## 2009 0.6473374 -0.4348876 -0.0016615538 0.3526626 -1.0422435 0.0030571042
## 2010 0.6398506 -0.4465206 -0.0116329821 0.3601494 -1.0212363 0.0210072451
## 2011 0.6314910 -0.4596716 -0.0131509984 0.3685090 -0.9982901 0.0229461472
## 2012 0.6146048 -0.4867758 -0.0271042176 0.3853952 -0.9534860 0.0448041451
## 2013 0.6098064 -0.4946138 -0.0078379545 0.3901936 -0.9411122 0.0123737634
## 2014 0.6022511 -0.5070808 -0.0124669840 0.3977489 -0.9219345 0.0191777566
## 2015 0.5940705 -0.5207572 -0.0136764579 0.4059295 -0.9015759 0.0203585844
## 2016 0.5895286 -0.5284320 -0.0076747812 0.4104714 -0.8904491 0.0111267816
## 2017 0.5958927 -0.5176946 0.0107374041 0.4041073 -0.9060749 -0.0156258519
## 2018 0.6016055 -0.5081534 0.0095411639 0.3983945 -0.9203125 -0.0142375170
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1986 99.5171 4.600329 0.032659736 23624083194071 30.79329 0.032085205
## 1987 107.1125 4.673880 0.073550195 24454179122639 30.82782 0.034534461
## 1988 112.8323 4.725903 0.052022962 25642559603207 30.87527 0.047452329
## 1989 120.3341 4.790272 0.064369395 26650369509487 30.91382 0.038549560
## 1990 129.7917 4.865931 0.075658817 27509928411453 30.94557 0.031743957
## 1991 134.1655 4.899074 0.033143255 27928836767214 30.96068 0.015112758
## 1992 138.3650 4.929895 0.030821009 28529667872867 30.98197 0.021284793
## 1993 137.4140 4.922998 -0.006896854 28909028907293 30.99518 0.013209441
## 1994 139.4603 4.937780 0.014781706 29848212047259 31.02715 0.031970975
## 1995 142.6780 4.960590 0.022810370 30719734758139 31.05593 0.028780334
## 1996 147.6778 4.995033 0.034442531 31661091646051 31.08611 0.030183260
## 1997 154.1769 5.038101 0.043067771 32749184501605 31.11990 0.033789527
## 1998 161.5897 5.085060 0.046959762 33659011027078 31.14730 0.027402746
## 1999 167.9023 5.123382 0.038321856 34788388491677 31.18030 0.033002860
## 2000 174.3098 5.160834 0.037451913 36195342081813 31.21995 0.039646772
## 2001 177.6978 5.180084 0.019250179 36729616847822 31.23460 0.014652989
## 2002 179.0677 5.187764 0.007679592 37313726854050 31.25038 0.015777843
## 2003 177.4015 5.178416 -0.009348421 38173568100956 31.27316 0.022782070
## 2004 180.5747 5.196145 0.017729017 39478890447414 31.30679 0.033622768
## 2005 181.9865 5.203933 0.007787966 40652016743473 31.33607 0.029282337
## 2006 184.9439 5.220053 0.016120027 41954129731257 31.36760 0.031528425
## 2007 189.5796 5.244809 0.024756453 43153140482357 31.39578 0.028178323
## 2008 190.1849 5.247997 0.003187768 43348647495202 31.40030 0.004520308
## 2009 184.2471 5.216278 -0.031718965 41953351144208 31.36758 -0.032717189
## 2010 187.4487 5.233505 0.017227417 43222634517500 31.39739 0.029805991
## 2011 184.2692 5.216398 -0.017107476 44050574023489 31.41636 0.018974078
## 2012 176.7929 5.174979 -0.041418741 44706810112916 31.43115 0.014787458
## 2013 175.1617 5.165710 -0.009269444 45418921323386 31.44695 0.015802946
## 2014 176.5493 5.173600 0.007890610 46380715499582 31.46790 0.020954971
## 2015 179.7132 5.191362 0.017762089 47493314960046 31.49161 0.023705205
## 2016 183.3424 5.211355 0.019993196 48316048857195 31.50878 0.017174816
## 2017 189.7711 5.245819 0.034463166 49440913416599 31.53180 0.023014508
## 2018 194.7758 5.271849 0.026030544 50578433663437 31.55455 0.022746985
## Tax Yf Yf_l Yf_dl C C_l
## 1986 3.81748 95.69962 4.561214 0.0211264907 59.4709 4.085487
## 1987 4.35842 102.75408 4.632339 0.0711242329 64.3688 4.164629
## 1988 5.43071 107.40159 4.676575 0.0442364258 69.9737 4.248119
## 1989 6.08138 114.25272 4.738413 0.0618378505 73.0129 4.290636
## 1990 7.13680 122.65490 4.809375 0.0709618841 78.7328 4.366060
## 1991 8.18908 125.97642 4.836095 0.0267200256 85.2952 4.446118
## 1992 9.78728 128.57772 4.856534 0.0204387998 88.4031 4.481907
## 1993 9.75894 127.65506 4.849332 -0.0072017639 88.9505 4.488080
## 1994 11.12618 128.33412 4.854637 0.0053053929 89.6962 4.496428
## 1995 11.92270 130.75530 4.873328 0.0186904620 91.1823 4.512861
## 1996 12.79976 134.87804 4.904371 0.0310433252 94.3893 4.547428
## 1997 13.59422 140.58268 4.945796 0.0414248227 97.5999 4.580876
## 1998 15.38856 146.20114 4.984983 0.0391875594 102.2698 4.627614
## 1999 16.84636 151.05594 5.017650 0.0326668870 107.6547 4.678929
## 2000 17.43525 156.87455 5.055446 0.0377962096 111.6243 4.715139
## 2001 18.37486 159.32294 5.070933 0.0154867702 112.6177 4.723999
## 2002 19.96457 159.10313 5.069553 -0.0013806033 114.0624 4.736746
## 2003 20.39563 157.00587 5.056283 -0.0132694151 113.6986 4.733551
## 2004 21.21472 159.35998 5.071166 0.0148824751 116.6051 4.758793
## 2005 23.24563 158.74087 5.067273 -0.0038925440 118.4436 4.774437
## 2006 24.84860 160.09530 5.075769 0.0084961386 120.2401 4.789491
## 2007 25.50782 164.07178 5.100304 0.0245347521 123.2573 4.814274
## 2008 25.20729 164.97761 5.105810 0.0055057527 124.9479 4.827897
## 2009 22.11213 162.13497 5.088429 -0.0173806312 122.0591 4.804505
## 2010 23.89531 163.55339 5.097139 0.0087103449 124.9343 4.827788
## 2011 24.48768 159.78152 5.073807 -0.0233320993 120.3622 4.790506
## 2012 23.41349 153.37941 5.032915 -0.0408927264 113.9607 4.735854
## 2013 23.50911 151.65259 5.021592 -0.0113223429 112.7724 4.725372
## 2014 24.78170 151.76760 5.022350 0.0007580907 115.4572 4.748900
## 2015 26.33146 153.38174 5.032930 0.0105794432 117.8104 4.769077
## 2016 27.79053 155.55187 5.046979 0.0140493985 120.8259 4.794351
## 2017 29.47174 160.29936 5.077043 0.0300638220 123.3643 4.815142
## 2018 31.31199 163.46381 5.096592 0.0195485532 126.9302 4.843637
## C_dl W W_l W_dl R R_l
## 1986 0.061518525 60.02215 4.094714 0.0391176065 35.67747 3.574519
## 1987 0.079141926 64.69838 4.169736 0.0750224166 38.05570 3.639051
## 1988 0.083490413 66.20592 4.192770 0.0230338044 41.19567 3.718333
## 1989 0.042516681 71.76705 4.273425 0.0806554481 42.48567 3.749167
## 1990 0.075423703 76.19263 4.333265 0.0598393024 46.46227 3.838641
## 1991 0.080058340 81.87281 4.405167 0.0719021941 44.10361 3.786542
## 1992 0.035788856 87.72046 4.474155 0.0689883160 40.85726 3.710084
## 1993 0.006172998 86.72299 4.462719 -0.0114362445 40.93207 3.711914
## 1994 0.008348370 84.29889 4.434369 -0.0283503087 44.03523 3.784990
## 1995 0.016432395 86.98668 4.465755 0.0313863246 43.76862 3.778917
## 1996 0.034566920 91.28111 4.513944 0.0481888829 43.59693 3.774987
## 1997 0.033448750 95.12112 4.555151 0.0412072000 45.46156 3.816867
## 1998 0.046737950 99.41710 4.599324 0.0441730369 46.78404 3.845542
## 1999 0.051314464 102.19448 4.626878 0.0275535541 48.86146 3.888989
## 2000 0.036209885 107.05741 4.673365 0.0464875413 49.81714 3.908359
## 2001 0.008860129 108.82594 4.689750 0.0163844964 50.49700 3.921914
## 2002 0.012746770 108.16777 4.683683 -0.0060662438 50.93536 3.930557
## 2003 -0.003194579 106.30091 4.666274 -0.0174096175 50.70496 3.926024
## 2004 0.025241925 106.35351 4.666769 0.0004947063 53.00647 3.970414
## 2005 0.015643886 106.87534 4.671663 0.0048945900 51.86553 3.948654
## 2006 0.015053679 105.71655 4.660761 -0.0109016347 54.37875 3.995973
## 2007 0.024783463 105.81213 4.661665 0.0009037134 58.25965 4.064910
## 2008 0.013622810 106.97377 4.672584 0.0109185014 58.00384 4.060509
## 2009 -0.023391497 104.95603 4.653542 -0.0190421850 57.17894 4.046186
## 2010 0.023282645 104.64973 4.650619 -0.0029226372 58.90366 4.075903
## 2011 -0.037282469 100.90059 4.614136 -0.0364830977 58.88093 4.075517
## 2012 -0.054651878 94.26772 4.546139 -0.0679969440 59.11169 4.079429
## 2013 -0.010482024 92.47872 4.526979 -0.0191602974 59.17387 4.080480
## 2014 0.023528270 91.40221 4.515270 -0.0117088934 60.36539 4.100416
## 2015 0.020176654 91.11957 4.512173 -0.0030970147 62.26217 4.131354
## 2016 0.025274114 91.70228 4.518547 0.0063746173 63.84959 4.156530
## 2017 0.020791100 95.52123 4.559348 0.0408012261 64.77813 4.170968
## 2018 0.028495563 98.34072 4.588438 0.0290897171 65.12309 4.176279
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1986 -0.0084291965 17.57460 2.866455 0.057925858 6.98533 1.943812
## 1987 0.0645316225 21.43875 3.065200 0.198745354 9.25839 2.225530
## 1988 0.0792821438 24.72119 3.207661 0.142460738 11.81936 2.469739
## 1989 0.0308338937 25.56387 3.241180 0.033519256 13.58043 2.608630
## 1990 0.0894737057 27.35361 3.308849 0.067668486 15.65607 2.750859
## 1991 -0.0520989138 28.64788 3.355079 0.046230931 17.52999 2.863913
## 1992 -0.0764572946 30.88957 3.430419 0.075339143 19.59172 2.975107
## 1993 0.0018295324 28.09673 3.335653 -0.094765387 18.49150 2.917311
## 1994 0.0730761021 28.25059 3.341114 0.005461143 19.25347 2.957691
## 1995 -0.0060729069 29.44446 3.382506 0.041391435 20.72721 3.031447
## 1996 -0.0039304271 30.97178 3.433076 0.050570690 22.47812 3.112542
## 1997 0.0418803171 35.35809 3.565527 0.132450753 26.60335 3.281037
## 1998 0.0286751272 39.50716 3.676482 0.110954701 30.45317 3.416190
## 1999 0.0434467833 41.90504 3.735406 0.058924185 32.99991 3.496505
## 2000 0.0193702132 43.60529 3.775178 0.039772367 35.95996 3.582406
## 2001 0.0135548188 44.02935 3.784856 0.009677984 37.17736 3.615700
## 2002 0.0086433767 42.53593 3.750349 -0.034507326 36.86041 3.607138
## 2003 -0.0045336087 39.42490 3.674398 -0.075951534 34.70637 3.546923
## 2004 0.0443902295 39.49935 3.676284 0.001886620 35.66277 3.574107
## 2005 -0.0217596284 39.54286 3.677385 0.001100931 36.66781 3.601899
## 2006 0.0473190114 39.24361 3.669789 -0.007596519 37.46323 3.623360
## 2007 0.0689362843 40.45475 3.700184 0.030395437 39.50065 3.676317
## 2008 -0.0044005304 40.62606 3.704410 0.004225667 40.92899 3.711839
## 2009 -0.0143235270 37.56356 3.626034 -0.078375301 37.19108 3.616069
## 2010 0.0297175900 37.14077 3.614715 -0.011319143 36.95280 3.609641
## 2011 -0.0003859521 32.46392 3.480129 -0.134585969 32.43736 3.479311
## 2012 0.0039114186 27.03838 3.297257 -0.182871981 26.63146 3.282093
## 2013 0.0010514205 25.73905 3.248009 -0.049248044 25.15031 3.224870
## 2014 0.0199358473 26.32809 3.270636 0.022627136 26.01273 3.258586
## 2015 0.0309380276 27.88649 3.328142 0.057505912 27.88649 3.328142
## 2016 0.0251761800 28.59682 3.353296 0.025153181 28.89336 3.363612
## 2017 0.0144379701 31.88231 3.462051 0.108755788 32.88773 3.493100
## 2018 0.0053110361 33.73837 3.518636 0.056584455 35.84101 3.579093
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1986 0.166410345 5.93503 1.780872 0.161725453 0.8496420 -0.1629402
## 1987 0.281717932 7.95046 2.073230 0.292357706 0.8587303 -0.1523004
## 1988 0.244208698 10.14721 2.317199 0.243969002 0.8585245 -0.1525401
## 1989 0.138890921 11.71996 2.461293 0.144094580 0.8630036 -0.1473364
## 1990 0.142228915 13.48111 2.601289 0.139996075 0.8610788 -0.1495693
## 1991 0.113054427 14.94035 2.704066 0.102776160 0.8522737 -0.1598475
## 1992 0.111193900 16.40855 2.797803 0.093736934 0.8375247 -0.1773045
## 1993 -0.057795861 15.07874 2.713286 -0.084516736 0.8154417 -0.2040254
## 1994 0.040380137 15.85153 2.763266 0.049980221 0.8233077 -0.1944253
## 1995 0.073756026 16.80234 2.821518 0.058252137 0.8106417 -0.2099292
## 1996 0.081095062 17.88417 2.883916 0.062397802 0.7956257 -0.2286264
## 1997 0.168494756 20.90383 3.039932 0.156016432 0.7857593 -0.2411048
## 1998 0.135152946 24.77206 3.209716 0.169784009 0.8134477 -0.2064737
## 1999 0.080314740 27.09619 3.299393 0.089676722 0.8210989 -0.1971117
## 2000 0.085901263 30.04326 3.402638 0.103245215 0.8354642 -0.1797678
## 2001 0.033293877 30.34364 3.412587 0.009948597 0.8161860 -0.2031130
## 2002 -0.008561899 30.29181 3.410877 -0.001709561 0.8217980 -0.1962607
## 2003 -0.060214832 28.31384 3.343351 -0.067526648 0.8158110 -0.2035725
## 2004 0.027184044 28.90766 3.364107 0.020755881 0.8105837 -0.2100007
## 2005 0.027791971 30.19976 3.407834 0.043727365 0.8236041 -0.1940653
## 2006 0.021460660 31.88356 3.462091 0.054256539 0.8510628 -0.1612694
## 2007 0.052957209 33.85598 3.522116 0.060025129 0.8570993 -0.1542015
## 2008 0.035521486 34.27825 3.534511 0.012395397 0.8375054 -0.1773276
## 2009 -0.095769666 29.98560 3.400717 -0.133793776 0.8062578 -0.2153517
## 2010 -0.006427525 27.47407 3.313243 -0.087474616 0.7434909 -0.2963988
## 2011 -0.130330578 26.29793 3.269490 -0.043752422 0.8107297 -0.2098206
## 2012 -0.197217621 22.47316 3.112322 -0.157168521 0.8438576 -0.1697715
## 2013 -0.057223001 21.44917 3.065686 -0.046635758 0.8528392 -0.1591843
## 2014 0.033715811 22.56640 3.116462 0.050776124 0.8675137 -0.1421240
## 2015 0.069556309 23.84104 3.171408 0.054946391 0.8549315 -0.1567339
## 2016 0.035469469 26.01819 3.258796 0.087387443 0.9004903 -0.1048159
## 2017 0.129487829 29.39127 3.380698 0.121901783 0.8936850 -0.1124019
## 2018 0.085993129 32.04628 3.467181 0.086483417 0.8941232 -0.1119117
## Ips_dl I I_l I_dl r r_l
## 1986 -0.0046848921 14.93212 2.703515 0.053240966 -2.1329139 0.000000
## 1987 0.0106397741 18.41010 2.912900 0.209385128 5.1605898 2.115473
## 1988 -0.0002396953 21.22375 3.055121 0.142221043 0.7375816 1.353383
## 1989 0.0052036595 22.06171 3.093844 0.038722915 3.7590534 1.930357
## 1990 -0.0022328402 23.55361 3.159279 0.065435646 3.6635757 1.916406
## 1991 -0.0102782671 24.41584 3.195232 0.035952664 3.2549391 1.854398
## 1992 -0.0174569655 25.87078 3.253114 0.057882177 4.4189533 2.021795
## 1993 -0.0267208748 22.91124 3.131628 -0.121486262 4.1825243 1.989987
## 1994 0.0096000837 23.25893 3.146689 0.015061227 3.4154941 1.879222
## 1995 -0.0155038888 23.86891 3.172577 0.025887546 5.5142940 2.157236
## 1996 -0.0186972602 24.64194 3.204450 0.031873430 6.0249626 2.214614
## 1997 -0.0124783243 27.78295 3.324422 0.119972429 2.3822391 1.707499
## 1998 0.0346310633 32.13701 3.470008 0.145585764 1.0161012 1.422871
## 1999 0.0093619821 34.40818 3.538294 0.068286167 1.3635053 1.503281
## 2000 0.0173439523 36.43066 3.595411 0.057116319 2.0979741 1.654581
## 2001 -0.0233452792 35.93614 3.581743 -0.013667295 1.3922887 1.509662
## 2002 0.0068523371 34.95594 3.554088 -0.027654989 0.7872349 1.366130
## 2003 -0.0073118162 32.16327 3.470825 -0.083263350 0.7278982 1.350878
## 2004 -0.0064281630 32.01753 3.466284 -0.004541543 1.6995998 1.575367
## 2005 0.0159353945 32.56766 3.483320 0.017036325 0.1036463 1.174511
## 2006 0.0327958790 33.39878 3.508519 0.025199360 0.7030631 1.344424
## 2007 0.0070679202 34.67374 3.545983 0.037463357 1.4117803 1.513960
## 2008 -0.0231260897 34.02454 3.527082 -0.018900423 2.7347538 1.769457
## 2009 -0.0380241095 30.28591 3.410683 -0.116399411 3.0780616 1.826318
## 2010 -0.0810470907 27.61382 3.318317 -0.092366234 4.7273442 2.061819
## 2011 0.0865781558 26.31946 3.270309 -0.048007813 10.5330490 2.614908
## 2012 0.0400491006 22.81654 3.127486 -0.142822880 10.9808240 2.647149
## 2013 0.0105872429 21.95127 3.088825 -0.038660801 3.9524678 1.958034
## 2014 0.0170603133 22.83998 3.128512 0.039687449 3.0240948 1.817591
## 2015 -0.0146099175 23.84104 3.171408 0.042895995 0.3921167 1.259889
## 2016 0.0519179746 25.75116 3.248480 0.077071155 1.4288102 1.517701
## 2017 -0.0075860463 28.49274 3.349649 0.101169741 1.5151814 1.536458
## 2018 0.0004902879 30.16626 3.406724 0.057074743 0.2499024 1.218709
## r_dl P P_l P_dl Pm Pm_l
## 1986 -2.18514351 28.38216 3.345761 0.167908786 68.36295 4.224831
## 1987 2.11547252 31.07014 3.436247 0.090486454 72.41301 4.282386
## 1988 -0.76208999 35.20688 3.561242 0.124994438 77.47278 4.349927
## 1989 0.57697404 39.00073 3.663580 0.102338837 83.75031 4.427840
## 1990 -0.01395033 43.41626 3.770834 0.107253548 85.81515 4.452196
## 1991 -0.06200803 48.16136 3.874557 0.103723039 85.55934 4.449210
## 1992 0.16739663 52.50203 3.960852 0.086294904 81.04045 4.394948
## 1993 -0.03180791 55.28756 4.012548 0.051696119 81.34504 4.398700
## 1994 -0.11076497 59.06436 4.078628 0.066079713 83.77931 4.428186
## 1995 0.27801452 62.39822 4.133537 0.054909064 85.09283 4.443743
## 1996 0.05737785 63.89015 4.157165 0.023628454 86.47017 4.459800
## 1997 -0.50711493 66.37242 4.195282 0.038116315 88.80889 4.486487
## 1998 -0.28462841 68.91118 4.232818 0.037536917 87.53459 4.472034
## 1999 0.08041037 71.23386 4.265968 0.033149796 87.02972 4.466250
## 2000 0.15129971 73.67025 4.299599 0.033630787 94.34585 4.546967
## 2001 -0.14491870 76.40782 4.336085 0.036485960 94.74599 4.551200
## 2002 -0.14353274 79.60914 4.377129 0.041043874 93.34972 4.536353
## 2003 -0.01525206 82.33747 4.410826 0.033697368 91.87750 4.520456
## 2004 0.22448922 84.31325 4.434539 0.023712780 93.81187 4.541291
## 2005 -0.40085567 87.12333 4.467325 0.032785622 96.47577 4.569292
## 2006 0.16991306 89.89781 4.498674 0.031348922 100.16514 4.606820
## 2007 0.16953628 92.56449 4.527906 0.029231968 101.59064 4.620951
## 2008 0.25549679 94.17300 4.545134 0.017227979 106.82168 4.671161
## 2009 0.05686074 95.20715 4.556055 0.010921513 96.86197 4.573287
## 2010 0.23550147 95.81866 4.562457 0.006402385 101.45695 4.619635
## 2011 0.55308884 95.56462 4.559803 -0.002654755 108.64128 4.688051
## 2012 0.03224036 95.19364 4.555913 -0.003889522 109.71593 4.697895
## 2013 -0.68911490 97.33422 4.578151 0.022237454 106.83047 4.671243
## 2014 -0.14044269 98.02003 4.585172 0.007021267 104.54321 4.649601
## 2015 -0.55770194 100.00000 4.605170 0.019998321 100.00000 4.605170
## 2016 0.25781153 101.71666 4.622191 0.017020938 96.80468 4.572695
## 2017 0.01875688 103.25453 4.637197 0.015005950 100.47698 4.609929
## 2018 -0.31774894 104.89228 4.652934 0.015736862 102.82743 4.633052
## Pm_dl Px Px_l Px_dl X X_l
## 1986 -0.095119781 54.49796 3.998163 0.039710829 13.89431 2.631479
## 1987 0.057555009 59.51848 4.086287 0.088123569 15.30250 2.728016
## 1988 0.067540721 65.28951 4.178831 0.092544478 16.62347 2.810816
## 1989 0.077913199 69.72157 4.244510 0.065678425 19.73157 2.982220
## 1990 0.024355634 72.50025 4.283590 0.039080157 22.29202 3.104229
## 1991 -0.002985350 73.32883 4.294954 0.011363882 22.39257 3.108729
## 1992 -0.054261732 71.93455 4.275757 -0.019197148 23.61190 3.161751
## 1993 0.003751357 73.15634 4.292599 0.016842114 23.91971 3.174703
## 1994 0.029486322 76.57540 4.338276 0.045677107 26.42283 3.274228
## 1995 0.015556681 79.40724 4.374590 0.036313661 30.01327 3.401640
## 1996 0.016056707 78.95851 4.368923 -0.005667065 31.72413 3.457078
## 1997 0.026687285 81.62636 4.402152 0.033229791 34.04182 3.527590
## 1998 -0.014452730 82.69090 4.415110 0.012957202 36.80537 3.605644
## 1999 -0.005784464 83.12483 4.420343 0.005233951 38.10332 3.640301
## 2000 0.080717653 87.58670 4.472629 0.052285749 41.35195 3.722120
## 2001 0.004232243 88.06338 4.478057 0.005427606 42.30252 3.744847
## 2002 -0.014846679 88.31048 4.480859 0.002801926 43.70289 3.777414
## 2003 -0.015896707 87.15449 4.467682 -0.013176461 45.86645 3.825734
## 2004 0.020835280 88.68714 4.485115 0.017432618 47.49577 3.860641
## 2005 0.028000449 90.18127 4.501822 0.016706873 47.61818 3.863215
## 2006 0.037528344 94.26179 4.546076 0.044254097 53.54488 3.980520
## 2007 0.014131207 96.04438 4.564810 0.018734525 56.99513 4.042966
## 2008 0.050209478 98.64689 4.591547 0.026736330 56.75745 4.038787
## 2009 -0.097873903 93.77532 4.540902 -0.050645046 51.05577 3.932919
## 2010 0.046347558 96.86180 4.573285 0.032383581 55.75750 4.021012
## 2011 0.068416886 101.80962 4.623105 0.049819387 59.59524 4.087576
## 2012 0.009843166 103.49598 4.639533 0.016428140 61.43111 4.117916
## 2013 -0.026651395 102.53655 4.630219 -0.009313454 65.85557 4.187464
## 2014 -0.021642672 101.31831 4.618267 -0.011952225 68.68968 4.229599
## 2015 -0.044430339 100.00000 4.605170 -0.013096917 72.99071 4.290332
## 2016 -0.032474819 98.37903 4.588828 -0.016342528 76.22467 4.333685
## 2017 0.037233298 101.31327 4.618217 0.029389753 82.63183 4.414395
## 2018 0.023123487 103.40384 4.638642 0.020424681 86.35337 4.458448
## X_dl M M_l M_dl rulc rulc_l
## 1986 0.076763771 12.39448 2.517251 0.172673290 0.6031341 -0.5056158
## 1987 0.096536810 15.79084 2.759430 0.242178813 0.6040227 -0.5041435
## 1988 0.082799338 19.20824 2.955339 0.195909329 0.5867639 -0.5331327
## 1989 0.171404339 20.84014 3.036881 0.081541581 0.5963982 -0.5168466
## 1990 0.122008876 24.19977 3.186343 0.149462194 0.5870377 -0.5326662
## 1991 0.004500441 26.22355 3.266658 0.080314733 0.6102374 -0.4939072
## 1992 0.053021615 29.10638 3.370957 0.104299532 0.6339787 -0.4557399
## 1993 0.012951983 28.65985 3.355497 -0.015460206 0.6311073 -0.4602793
## 1994 0.099525604 31.68765 3.455927 0.100429826 0.6044651 -0.5034113
## 1995 0.127411208 34.67775 3.546098 0.090171256 0.6096713 -0.4948354
## 1996 0.055437973 36.72944 3.603579 0.057480342 0.6181099 -0.4810890
## 1997 0.070512179 40.50288 3.701373 0.097794469 0.6169609 -0.4829496
## 1998 0.078053990 46.43098 3.837967 0.136593826 0.6152440 -0.4857363
## 1999 0.034657659 50.61801 3.924307 0.086340533 0.6086544 -0.4965046
## 2000 0.081818161 53.42110 3.978206 0.053898357 0.6141789 -0.4874690
## 2001 0.022727080 53.96068 3.988256 0.010049834 0.6124214 -0.4903347
## 2002 0.032567574 53.80718 3.985407 -0.002848718 0.6040608 -0.5040805
## 2003 0.048319680 53.69071 3.983240 -0.002166927 0.5992109 -0.5121417
## 2004 0.034906741 57.67430 4.054812 0.071571679 0.5889724 -0.5293760
## 2005 0.002573967 58.93452 4.076427 0.021615330 0.5872707 -0.5322694
## 2006 0.117305560 63.38961 4.149300 0.072872971 0.5716142 -0.5592910
## 2007 0.062445645 66.93846 4.203774 0.054473722 0.5581409 -0.5831438
## 2008 -0.004178900 68.43199 4.225840 0.022066716 0.5624725 -0.5754131
## 2009 -0.105868361 61.93409 4.126071 -0.099769650 0.5696482 -0.5627363
## 2010 0.088093366 66.76565 4.201189 0.075117972 0.5582846 -0.5828863
## 2011 0.066563775 62.63900 4.137388 -0.063800639 0.5475717 -0.6022619
## 2012 0.030340679 58.70749 4.072567 -0.064820771 0.5332099 -0.6288402
## 2013 0.069547626 61.45535 4.118311 0.045743578 0.5279620 -0.6387310
## 2014 0.042134959 66.32308 4.194538 0.076227056 0.5177149 -0.6583305
## 2015 0.060733203 71.66202 4.271961 0.077422949 0.5070277 -0.6791896
## 2016 0.043352991 75.25387 4.320867 0.048906431 0.5001695 -0.6928082
## 2017 0.080709794 81.35110 4.398774 0.077907025 0.5033497 -0.6864701
## 2018 0.044052874 86.01343 4.454503 0.055729091 0.5048919 -0.6834110
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1986 0.006457870 17.11825 2.840145 0.174366656 78.10826 4.358096
## 1987 0.001472221 18.76707 2.932104 0.091958676 81.68908 4.402920
## 1988 -0.028989157 20.65813 3.028109 0.096005281 83.42547 4.423954
## 1989 0.016286053 23.25997 3.146734 0.118624890 86.43287 4.459368
## 1990 -0.015819514 25.48698 3.238168 0.091434034 90.63955 4.506891
## 1991 0.038758939 29.38986 3.380650 0.142481979 90.49236 4.505265
## 1992 0.038167307 33.28517 3.505112 0.124462211 92.54678 4.527714
## 1993 -0.004539390 34.89239 3.552269 0.047156729 91.80990 4.519720
## 1994 -0.043132015 35.70235 3.575216 0.022947698 92.60535 4.528347
## 1995 0.008575955 38.04240 3.638701 0.063485019 94.15523 4.544945
## 1996 0.013746352 39.49114 3.676076 0.037374806 95.32857 4.557330
## 1997 -0.001860571 40.94919 3.712332 0.036255744 96.45821 4.569110
## 1998 -0.002786725 42.39719 3.747082 0.034750192 97.62255 4.581108
## 1999 -0.010768302 43.35680 3.769464 0.022381494 98.66917 4.591773
## 2000 0.009035628 45.24671 3.812130 0.042666415 99.28133 4.597958
## 2001 -0.002865682 46.79378 3.845750 0.033620278 98.50386 4.590096
## 2002 -0.013745836 48.08876 3.873048 0.027298038 97.67767 4.581673
## 2003 -0.008061196 49.33751 3.898685 0.025636172 96.35626 4.568052
## 2004 -0.017234311 49.65817 3.905163 0.006478469 97.56618 4.580531
## 2005 -0.002893376 51.16498 3.935055 0.029892246 97.72529 4.582160
## 2006 -0.027021662 51.38686 3.939383 0.004327260 98.25422 4.587558
## 2007 -0.023852740 51.66403 3.944762 0.005379228 99.85144 4.603683
## 2008 0.007730734 52.96972 3.969720 0.024958713 99.15634 4.596698
## 2009 0.012676780 54.23458 3.993319 0.023598293 97.22282 4.577005
## 2010 -0.020150054 53.49409 3.979571 -0.013747669 99.36168 4.598767
## 2011 -0.019375622 52.32848 3.957541 -0.022030377 98.77955 4.592891
## 2012 -0.026578203 50.75819 3.927073 -0.030467726 97.50188 4.579872
## 2013 -0.009890854 51.38877 3.939420 0.012346600 98.67276 4.591809
## 2014 -0.019599504 50.74643 3.926841 -0.012578236 98.87750 4.593882
## 2015 -0.020859104 50.70277 3.925981 -0.000860783 100.00000 4.605170
## 2016 -0.013618579 50.87557 3.929383 0.003402360 101.22996 4.617395
## 2017 0.006338060 51.97313 3.950727 0.021344009 102.75933 4.632390
## 2018 0.003059173 52.95926 3.969523 0.018796035 103.94683 4.643880
## Tau_dl dPxdPm dPdPm Trade
## 1986 0.039420266 0.134830610 0.263028567 0.2641635
## 1987 0.044824493 0.030568560 0.032931445 0.2902868
## 1988 0.021033415 0.025003757 0.057453718 0.3175661
## 1989 0.035414296 -0.012234774 0.024425638 0.3371589
## 1990 0.047522688 0.014724523 0.082897914 0.3582031
## 1991 -0.001625204 0.014349232 0.106708389 0.3623593
## 1992 0.022448764 0.035064584 0.140556635 0.3810088
## 1993 -0.007994089 0.013090757 0.047944763 0.3826361
## 1994 0.008626744 0.016190785 0.036593391 0.4166812
## 1995 0.016597879 0.020756980 0.039352383 0.4534057
## 1996 0.012384804 -0.021723772 0.007571747 0.4635332
## 1997 0.011780293 0.006542506 0.011429030 0.4835011
## 1998 0.011998619 0.027409932 0.051989646 0.5151093
## 1999 0.010664058 0.011018415 0.038934261 0.5284105
## 2000 0.006184980 -0.028431904 -0.047086866 0.5437047
## 2001 -0.007861785 0.001195364 0.032253717 0.5417242
## 2002 -0.008422800 0.017648605 0.055890552 0.5445430
## 2003 -0.013620604 0.002720246 0.049594075 0.5611968
## 2004 0.012478588 -0.003402661 0.002877500 0.5824186
## 2005 0.001629405 -0.011293576 0.004785173 0.5854978
## 2006 0.005397840 0.006725752 -0.006179422 0.6322701
## 2007 0.016125264 0.004603318 0.015100761 0.6537285
## 2008 -0.006985610 -0.023473148 -0.032981498 0.6582512
## 2009 -0.019692365 0.047228857 0.108795416 0.6132518
## 2010 0.021761081 -0.013963977 -0.039945173 0.6536356
## 2011 -0.005875973 -0.018597499 -0.071071641 0.6633460
## 2012 -0.013018896 0.006584974 -0.013732689 0.6795443
## 2013 0.011937280 0.017337941 0.048888849 0.7268194
## 2014 0.002072712 0.009690447 0.028663939 0.7647312
## 2015 0.011288523 0.031333422 0.064428660 0.8049088
## 2016 0.012224591 0.016132291 0.049495757 0.8262057
## 2017 0.014994878 -0.007843545 -0.022227349 0.8641091
## 2018 0.011489879 -0.002698805 -0.007386625 0.8849498
adf.PRT.WS <- adf.test((PRT$WS), alternative = c("stationary"), k = 2)
adf.PRT.PS <- adf.test((PRT$PS), alternative = c("stationary"), k = 2)
adf.PRT.Y <- adf.test((PRT$Y), alternative = c("stationary"), k = 2)
adf.PRT.Yrw <- adf.test((PRT$Yrw), alternative = c("stationary"), k = 2)
adf.PRT.r <- adf.test((PRT$r), alternative = c("stationary"), k = 2)
adf.PRT.R <- adf.test((PRT$R), alternative = c("stationary"), k = 2)
adf.PRT.Tau <- adf.test((PRT$Tau), alternative = c("stationary"), k = 2)
adf.PRT.rulc <- adf.test((PRT$rulc), alternative = c("stationary"), k = 2)
adf.PRT.ulc <- adf.test((PRT$ulc), alternative = c("stationary"), k = 2)
adf.PRT.P <- adf.test((PRT$P), alternative = c("stationary"), k = 2)
adf.PRT.Pm <- adf.test((PRT$Pm), alternative = c("stationary"), k = 2)
adf.PRT.Px <- adf.test((PRT$Px), alternative = c("stationary"), k = 2)
adf.PRT.X <- adf.test((PRT$X), alternative = c("stationary"), k = 2)
adf.PRT.M <- adf.test((PRT$M), alternative = c("stationary"), k = 2)
adf.PRT.I <- adf.test((PRT$I), alternative = c("stationary"), k = 2)
adf.PRT.C <- adf.test((PRT$C), alternative = c("stationary"), k = 2)
adf.PRT.Ipr <- adf.test((PRT$Ipr), alternative = c("stationary"), k = 2)
adf.PRT.Ips <- adf.test((PRT$Ips), alternative = c("stationary"), k = 2)
adf.PRT.It <- adf.test((PRT$It), alternative = c("stationary"), k = 2)
adf.PRT.Itcurr <- adf.test((PRT$Itcurr), alternative = c("stationary"), k = 2)
adf.PRT.Yf <- adf.test((PRT$Yf), alternative = c("stationary"), k = 2)
adf.PRT.W <- adf.test((PRT$W), alternative = c("stationary"), k = 2)
adf.PRT.WS.pval <- adf.PRT.WS$p.value
adf.PRT.PS.pval <- adf.PRT.PS$p.value
adf.PRT.Y.pval <- adf.PRT.Y$p.value
adf.PRT.Yrw.pval <- adf.PRT.Yrw$p.value
adf.PRT.r.pval <- adf.PRT.r$p.value
adf.PRT.R.pval <- adf.PRT.R$p.value
adf.PRT.Tau.pval <- adf.PRT.Tau$p.value
adf.PRT.rulc.pval <- adf.PRT.rulc$p.value
adf.PRT.ulc.pval <- adf.PRT.ulc$p.value
adf.PRT.P.pval <- adf.PRT.P$p.value
adf.PRT.Pm.pval <- adf.PRT.Pm$p.value
adf.PRT.Px.pval <- adf.PRT.Px$p.value
adf.PRT.X.pval <- adf.PRT.X$p.value
adf.PRT.M.pval <- adf.PRT.M$p.value
adf.PRT.I.pval <- adf.PRT.I$p.value
adf.PRT.C.pval <- adf.PRT.C$p.value
adf.PRT.Ipr.pval <- adf.PRT.Ipr$p.value
adf.PRT.Ips.pval <- adf.PRT.Ips$p.value
adf.PRT.It.pval <- adf.PRT.It$p.value
adf.PRT.Itcurr.pval <- adf.PRT.Itcurr$p.value
adf.PRT.Yf.pval <- adf.PRT.Yf$p.value
adf.PRT.W.pval <- adf.PRT.W$p.value
adf.PRT_non <- rbind(adf.PRT.WS.pval,adf.PRT.PS.pval,adf.PRT.Y.pval,adf.PRT.Yrw.pval,adf.PRT.r.pval,adf.PRT.R.pval,adf.PRT.Tau.pval,adf.PRT.rulc.pval,adf.PRT.ulc.pval,adf.PRT.P.pval,adf.PRT.Pm.pval,adf.PRT.Px.pval,adf.PRT.X.pval,adf.PRT.M.pval,adf.PRT.I.pval,adf.PRT.C.pval,adf.PRT.Ipr.pval,adf.PRT.Ips.pval,adf.PRT.It.pval,adf.PRT.Itcurr.pval,adf.PRT.Yf.pval,adf.PRT.W.pval)
colnames(adf.PRT_non) <- c("PRT")
rownames(adf.PRT_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.PRT_non
## PRT
## WS 0.50971813
## PS 0.50971813
## Y 0.52845778
## Yrw 0.48090271
## r 0.32791071
## R 0.24365182
## Tau 0.07881049
## rulc 0.46599332
## ulc 0.59499074
## P 0.59757098
## Pm 0.29905806
## Px 0.30749404
## X 0.97445453
## M 0.47280397
## I 0.53869343
## C 0.62907486
## Ipr 0.49489428
## Ips 0.56250103
## It 0.61690375
## Itcurr 0.52601405
## Yf 0.49952653
## W 0.46407123
adf.PRT.WS_dl <- adf.test((PRT$WS_dl), alternative = c("stationary"), k = 2)
adf.PRT.PS_dl <- adf.test((PRT$PS_dl), alternative = c("stationary"), k = 2)
adf.PRT.Y_dl <- adf.test((PRT$Y_dl), alternative = c("stationary"), k = 2)
adf.PRT.Yrw_dl <- adf.test((PRT$Yrw_dl), alternative = c("stationary"), k = 2)
adf.PRT.r_dl <- adf.test((PRT$r_dl), alternative = c("stationary"), k = 2)
adf.PRT.R_dl <- adf.test((PRT$R_dl), alternative = c("stationary"), k = 2)
adf.PRT.Tau_dl <- adf.test((PRT$Tau_dl), alternative = c("stationary"), k = 2)
adf.PRT.rulc_dl <- adf.test((PRT$rulc_dl), alternative = c("stationary"), k = 2)
adf.PRT.ulc_dl <- adf.test((PRT$ulc_dl), alternative = c("stationary"), k = 2)
adf.PRT.P_dl <- adf.test((PRT$P_dl), alternative = c("stationary"), k = 2)
adf.PRT.Pm_dl <- adf.test((PRT$Pm_dl), alternative = c("stationary"), k = 2)
adf.PRT.Px_dl <- adf.test((PRT$Px_dl), alternative = c("stationary"), k = 2)
adf.PRT.X_dl <- adf.test((PRT$X_dl), alternative = c("stationary"), k = 2)
adf.PRT.M_dl <- adf.test((PRT$M_dl), alternative = c("stationary"), k = 2)
adf.PRT.I_dl <- adf.test((PRT$I_dl), alternative = c("stationary"), k = 2)
adf.PRT.C_dl <- adf.test((PRT$C_dl), alternative = c("stationary"), k = 2)
adf.PRT.Ipr_dl <- adf.test((PRT$Ipr_dl), alternative = c("stationary"), k = 2)
adf.PRT.Ips_dl <- adf.test((PRT$Ips_dl), alternative = c("stationary"), k = 2)
adf.PRT.It_dl <- adf.test((PRT$It_dl), alternative = c("stationary"), k = 2)
adf.PRT.Itcurr_dl <- adf.test((PRT$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.PRT.Yf_dl <- adf.test((PRT$Yf_dl), alternative = c("stationary"), k = 2)
adf.PRT.W_dl <- adf.test((PRT$W_dl), alternative = c("stationary"), k = 2)
adf.PRT.WS_dl.pval <- adf.PRT.WS_dl$p.value
adf.PRT.PS_dl.pval <- adf.PRT.PS_dl$p.value
adf.PRT.Y_dl.pval <- adf.PRT.Y_dl$p.value
adf.PRT.Yrw_dl.pval <- adf.PRT.Yrw_dl$p.value
adf.PRT.r_dl.pval <- adf.PRT.r_dl$p.value
adf.PRT.R_dl.pval <- adf.PRT.R_dl$p.value
adf.PRT.Tau_dl.pval <- adf.PRT.Tau_dl$p.value
adf.PRT.rulc_dl.pval <- adf.PRT.rulc_dl$p.value
adf.PRT.ulc_dl.pval <- adf.PRT.ulc_dl$p.value
adf.PRT.P_dl.pval <- adf.PRT.P_dl$p.value
adf.PRT.Pm_dl.pval <- adf.PRT.Pm_dl$p.value
adf.PRT.Px_dl.pval <- adf.PRT.Px_dl$p.value
adf.PRT.X_dl.pval <- adf.PRT.X_dl$p.value
adf.PRT.M_dl.pval <- adf.PRT.M_dl$p.value
adf.PRT.I_dl.pval <- adf.PRT.I_dl$p.value
adf.PRT.C_dl.pval <- adf.PRT.C_dl$p.value
adf.PRT.Ipr_dl.pval <- adf.PRT.Ipr_dl$p.value
adf.PRT.Ips_dl.pval <- adf.PRT.Ips_dl$p.value
adf.PRT.It_dl.pval <- adf.PRT.It_dl$p.value
adf.PRT.Itcurr_dl.pval <- adf.PRT.Itcurr_dl$p.value
adf.PRT.Yf_dl.pval <- adf.PRT.Yf_dl$p.value
adf.PRT.W_dl.pval <- adf.PRT.W_dl$p.value
adf.PRT_dl <- rbind(adf.PRT.WS_dl.pval,adf.PRT.PS_dl.pval,adf.PRT.Y_dl.pval,adf.PRT.Yrw_dl.pval,adf.PRT.r_dl.pval,adf.PRT.R_dl.pval,adf.PRT.Tau_dl.pval,adf.PRT.rulc_dl.pval,adf.PRT.ulc_dl.pval,adf.PRT.P_dl.pval,adf.PRT.Pm_dl.pval,adf.PRT.Px_dl.pval,adf.PRT.X_dl.pval,adf.PRT.M_dl.pval,adf.PRT.I_dl.pval,adf.PRT.C_dl.pval,adf.PRT.Ipr_dl.pval,adf.PRT.Ips_dl.pval,adf.PRT.It_dl.pval,adf.PRT.Itcurr_dl.pval,adf.PRT.Yf_dl.pval,adf.PRT.W_dl.pval)
colnames(adf.PRT_dl) <- c("PRT")
rownames(adf.PRT_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.PRT_dl
## PRT
## dlog(WS) 0.02068038
## dlog(PS) 0.02303049
## dlog(Y) 0.53302850
## dlog(Yrw) 0.07806157
## dlog(r) 0.07551683
## dlog(R) 0.03848169
## dlog(Tau) 0.70194486
## dlog(rulc) 0.01000000
## dlog(ulc) 0.75505073
## dlog(P) 0.73357655
## dlog(Pm) 0.01000000
## dlog(Px) 0.01000000
## dlog(X) 0.04321573
## dlog(M) 0.30445631
## dlog(I) 0.42290877
## dlog(C) 0.48184499
## dlog(Ipr) 0.47293246
## dlog(Ips) 0.01000000
## dlog(It) 0.46009203
## dlog(Itcurr) 0.51302956
## dlog(Yf) 0.40548087
## dlog(W) 0.38307142
adf.PRT <- NULL
adf.PRT <- rbind(adf.PRT_non,adf.PRT_dl)
#Consumption (C)
PRT_consumption <- dynlm(PRT$C_dl~PRT$R_dl+PRT$W_dl)
PRT_CR <- summary(PRT_consumption)$coefficients["PRT$R_dl","Estimate"]
PRT_CW <- summary(PRT_consumption)$coefficients["PRT$W_dl","Estimate"]
PRT_Ceffekt <- (PRT_CR*mean(PRT$C/PRT$R))-(PRT_CW*mean(PRT$C/PRT$W))
summary(PRT_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$C_dl ~ PRT$R_dl + PRT$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.033169 -0.011253 -0.001263 0.006030 0.036607
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.008018 0.003301 2.429 0.02134 *
## PRT$R_dl 0.277266 0.076923 3.604 0.00112 **
## PRT$W_dl 0.732978 0.077393 9.471 0.00000000016 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0155 on 30 degrees of freedom
## Multiple R-squared: 0.7693, Adjusted R-squared: 0.754
## F-statistic: 50.03 on 2 and 30 DF, p-value: 0.0000000002783
#Investments (I)
PRT_investment <- dynlm(PRT$I_dl~PRT$PS_dl+PRT$Y_dl+PRT$r_dl)
PRT_iPS <- summary(PRT_investment)$coefficients["PRT$PS_dl","Estimate"]
PRT_iPS <- 0
PRT_Ieffekt <- PRT_iPS*mean(PRT$I/PRT$R)
summary(PRT_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$I_dl ~ PRT$PS_dl + PRT$Y_dl + PRT$r_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10480 -0.01702 0.00474 0.02719 0.06366
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.030992 0.010405 -2.978 0.0058 **
## PRT$PS_dl 0.045434 0.249678 0.182 0.8569
## PRT$Y_dl 2.518881 0.314782 8.002 0.00000000797 ***
## PRT$r_dl -0.003897 0.012920 -0.302 0.7651
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04488 on 29 degrees of freedom
## Multiple R-squared: 0.7078, Adjusted R-squared: 0.6776
## F-statistic: 23.41 on 3 and 29 DF, p-value: 0.00000006722
#Price deflator (P)
PRT_deflator <- dynlm(PRT$P_dl~L(PRT$ulc_dl)+PRT$Pm_dl)
PRT_ePULC <- summary(PRT_deflator)$coefficients["L(PRT$ulc_dl)","Estimate"]
summary(PRT_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$P_dl ~ L(PRT$ulc_dl) + PRT$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.021558 -0.008767 0.001024 0.005927 0.033484
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.013456 0.003447 3.904 0.000497 ***
## L(PRT$ulc_dl) 0.779323 0.054358 14.337 0.0000000000000058 ***
## PRT$Pm_dl 0.047901 0.060425 0.793 0.434158
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01479 on 30 degrees of freedom
## Multiple R-squared: 0.8732, Adjusted R-squared: 0.8647
## F-statistic: 103.3 on 2 and 30 DF, p-value: 0.00000000000003523
#Export price deflator (Px)
PRT_exportdeflator <- dynlm(PRT$Px_dl~PRT$ulc_dl+PRT$Pm_dl)
PRT_ePX <- summary(PRT_exportdeflator)$coefficients["PRT$ulc_dl","Estimate"]
summary(PRT_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$Px_dl ~ PRT$ulc_dl + PRT$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.029462 -0.009716 -0.002200 0.007224 0.043386
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.004872 0.003747 1.300 0.203370
## PRT$ulc_dl 0.261634 0.059086 4.428 0.000116 ***
## PRT$Pm_dl 0.569470 0.065681 8.670 0.00000000114 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01608 on 30 degrees of freedom
## Multiple R-squared: 0.7424, Adjusted R-squared: 0.7253
## F-statistic: 43.24 on 2 and 30 DF, p-value: 0.000000001456
#Exports (X)
PRT_exports <- dynlm(PRT$X_dl~L(PRT$dPxdPm)+PRT$Yrw_l)
PRT_eXP <- summary(PRT_exports)$coefficients["L(PRT$dPxdPm)","Estimate"]
PRT_eXP <- 0
PRT_Xeffekt <- -(PRT_eXP*PRT_ePX*(1/(1-PRT_ePULC))*mean(PRT$Yf/PRT$Y)*(mean(PRT$X/PRT$Y)/mean(PRT$rulc)))
summary(PRT_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$X_dl ~ L(PRT$dPxdPm) + PRT$Yrw_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.135753 -0.020592 0.008386 0.028111 0.075938
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.96084 1.24308 2.382 0.0238 *
## L(PRT$dPxdPm) -0.39441 0.31350 -1.258 0.2181
## PRT$Yrw_l -0.09285 0.03977 -2.335 0.0264 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04607 on 30 degrees of freedom
## Multiple R-squared: 0.1561, Adjusted R-squared: 0.09987
## F-statistic: 2.775 on 2 and 30 DF, p-value: 0.07837
#Imports (M)
PRT_imports <- dynlm(PRT$M_dl~PRT$dPdPm+L(PRT$Y_dl))
PRT_eMP <- summary(PRT_imports)$coefficients["PRT$dPdPm","Estimate"]
PRT_Meffekt <- -(PRT_eMP*PRT_ePULC*(1/(1-PRT_ePULC))*mean(PRT$Yf/PRT$Y)*(mean(PRT$M/PRT$Y)/mean(PRT$rulc)))
summary(PRT_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$M_dl ~ PRT$dPdPm + L(PRT$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.074171 -0.020440 -0.003927 0.022759 0.064471
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009364 0.008586 1.091 0.2841
## PRT$dPdPm 0.223409 0.105420 2.119 0.0425 *
## L(PRT$Y_dl) 2.188797 0.242017 9.044 0.00000000045 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03606 on 30 degrees of freedom
## Multiple R-squared: 0.7597, Adjusted R-squared: 0.7437
## F-statistic: 47.43 on 2 and 30 DF, p-value: 0.0000000005129
names(PRT_consumption$coefficients) <- sub("PRT$","",names(PRT_consumption$coefficients),fixed=TRUE)
names(PRT_investment$coefficients) <- sub("PRT$","",names(PRT_investment$coefficients),fixed=TRUE)
names(PRT_deflator$coefficients) <- sub("PRT$","",names(PRT_deflator$coefficients),fixed=TRUE)
names(PRT_exportdeflator$coefficients) <- sub("PRT$","",names(PRT_exportdeflator$coefficients),fixed=TRUE)
names(PRT_exports$coefficients) <- sub("PRT$","",names(PRT_exports$coefficients),fixed=TRUE)
names(PRT_imports$coefficients) <- sub("PRT$","",names(PRT_imports$coefficients),fixed=TRUE)
PRT_Xeffekt
## [1] 0
PRT_Meffekt
## [1] -0.3577985
#Nettoeksport (NX)
PRT_NXeffekt <- PRT_Xeffekt - PRT_Meffekt
PRT_NXeffekt
## [1] 0.3577985
#Nettoeffekten
PRT_Neteffekt = PRT_Ceffekt + PRT_Ieffekt + PRT_NXeffekt
PRT_Neteffekt
## [1] 0.1061998
PRT_Lukket <- PRT_Ceffekt + PRT_Ieffekt
PRT_Lukket_Konklusion <- ifelse(PRT_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
PRT_Lukket_Konklusion
## [1] "Wage-led domestic"
PRT_Def <- ifelse(PRT_Neteffekt > 0, "Profit-led", "Wage-led")
PRT_Def
## [1] "Profit-led"
summary(ur.df(y=PRT_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0169377 -0.0048232 -0.0015165 0.0003436 0.0090948
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.60644 1.58582 -1.013 0.345
## z.diff.lag1 0.91555 1.53360 0.597 0.569
## z.diff.lag2 0.94252 1.41953 0.664 0.528
## z.diff.lag3 0.45961 1.23966 0.371 0.722
## z.diff.lag4 0.53117 1.12618 0.472 0.652
## z.diff.lag5 0.41236 1.02799 0.401 0.700
## z.diff.lag6 0.60060 0.91459 0.657 0.532
## z.diff.lag7 0.20981 0.83888 0.250 0.810
## z.diff.lag8 0.41110 0.75397 0.545 0.603
## z.diff.lag9 0.07654 0.63781 0.120 0.908
## z.diff.lag10 0.08317 0.48917 0.170 0.870
## z.diff.lag11 0.32676 0.37265 0.877 0.410
## z.diff.lag12 0.31015 0.23688 1.309 0.232
##
## Residual standard error: 0.01067 on 7 degrees of freedom
## Multiple R-squared: 0.8263, Adjusted R-squared: 0.5038
## F-statistic: 2.562 on 13 and 7 DF, p-value: 0.1083
##
##
## Value of test-statistic is: -1.013
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=PRT_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.065976 -0.005997 -0.000649 0.012141 0.044429
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.29871 2.27079 -0.572 0.585
## z.diff.lag1 0.45094 2.16414 0.208 0.841
## z.diff.lag2 0.80071 1.98869 0.403 0.699
## z.diff.lag3 0.82871 1.71643 0.483 0.644
## z.diff.lag4 0.33308 1.46445 0.227 0.827
## z.diff.lag5 0.06986 1.27921 0.055 0.958
## z.diff.lag6 0.23715 1.12719 0.210 0.839
## z.diff.lag7 0.27402 0.86224 0.318 0.760
## z.diff.lag8 0.14878 0.60274 0.247 0.812
## z.diff.lag9 0.19023 0.49866 0.381 0.714
## z.diff.lag10 0.04858 0.44994 0.108 0.917
## z.diff.lag11 0.42398 0.34803 1.218 0.263
## z.diff.lag12 0.03368 0.33225 0.101 0.922
##
## Residual standard error: 0.04348 on 7 degrees of freedom
## Multiple R-squared: 0.6659, Adjusted R-squared: 0.04544
## F-statistic: 1.073 on 13 and 7 DF, p-value: 0.4855
##
##
## Value of test-statistic is: -0.5719
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=PRT_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.119399 -0.028599 -0.004743 0.021497 0.062522
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.2737 1.6780 -0.759 0.473
## z.diff.lag1 0.3663 1.6262 0.225 0.828
## z.diff.lag2 0.1850 1.5847 0.117 0.910
## z.diff.lag3 0.1187 1.5390 0.077 0.941
## z.diff.lag4 0.2900 1.5242 0.190 0.855
## z.diff.lag5 0.2476 1.5089 0.164 0.874
## z.diff.lag6 0.2626 1.4575 0.180 0.862
## z.diff.lag7 0.2558 1.4047 0.182 0.861
## z.diff.lag8 0.2770 1.2535 0.221 0.831
## z.diff.lag9 0.2107 1.1099 0.190 0.855
## z.diff.lag10 0.1858 0.9300 0.200 0.847
## z.diff.lag11 0.2372 0.6710 0.354 0.734
## z.diff.lag12 0.1857 0.4681 0.397 0.703
##
## Residual standard error: 0.07106 on 7 degrees of freedom
## Multiple R-squared: 0.5255, Adjusted R-squared: -0.3556
## F-statistic: 0.5964 on 13 and 7 DF, p-value: 0.8003
##
##
## Value of test-statistic is: -0.759
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=PRT_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.043091 -0.012405 -0.002683 0.014392 0.046725
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.73912 1.13713 -0.650 0.536
## z.diff.lag1 -0.07105 1.12382 -0.063 0.951
## z.diff.lag2 0.22568 1.09320 0.206 0.842
## z.diff.lag3 -0.07884 1.06905 -0.074 0.943
## z.diff.lag4 0.01180 1.03415 0.011 0.991
## z.diff.lag5 -0.14130 0.95911 -0.147 0.887
## z.diff.lag6 -0.19074 0.90776 -0.210 0.840
## z.diff.lag7 0.13795 0.83543 0.165 0.874
## z.diff.lag8 -0.08574 0.66955 -0.128 0.902
## z.diff.lag9 0.11838 0.60666 0.195 0.851
## z.diff.lag10 0.28641 0.46789 0.612 0.560
## z.diff.lag11 0.02145 0.36347 0.059 0.955
## z.diff.lag12 0.35519 0.32412 1.096 0.309
##
## Residual standard error: 0.03798 on 7 degrees of freedom
## Multiple R-squared: 0.6813, Adjusted R-squared: 0.08951
## F-statistic: 1.151 on 13 and 7 DF, p-value: 0.445
##
##
## Value of test-statistic is: -0.65
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(PRT_consumption)
plot(PRT_investment)
plot(PRT_deflator)
plot(PRT_exportdeflator)
plot(PRT_exports)
plot(PRT_imports)
bptest(PRT_consumption)
##
## studentized Breusch-Pagan test
##
## data: PRT_consumption
## BP = 3.5747, df = 2, p-value = 0.1674
bptest(PRT_investment)
##
## studentized Breusch-Pagan test
##
## data: PRT_investment
## BP = 7.2728, df = 3, p-value = 0.06369
bptest(PRT_deflator)
##
## studentized Breusch-Pagan test
##
## data: PRT_deflator
## BP = 6.6354, df = 2, p-value = 0.03624
bptest(PRT_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: PRT_exportdeflator
## BP = 17.632, df = 2, p-value = 0.0001483
bptest(PRT_exports)
##
## studentized Breusch-Pagan test
##
## data: PRT_exports
## BP = 0.72708, df = 2, p-value = 0.6952
bptest(PRT_imports)
##
## studentized Breusch-Pagan test
##
## data: PRT_imports
## BP = 2.5753, df = 2, p-value = 0.2759
resettest(PRT_consumption)
##
## RESET test
##
## data: PRT_consumption
## RESET = 2.0791, df1 = 2, df2 = 28, p-value = 0.1439
resettest(PRT_investment)
##
## RESET test
##
## data: PRT_investment
## RESET = 1.846, df1 = 2, df2 = 27, p-value = 0.1772
resettest(PRT_deflator)
##
## RESET test
##
## data: PRT_deflator
## RESET = 0.68259, df1 = 2, df2 = 28, p-value = 0.5135
resettest(PRT_exportdeflator)
##
## RESET test
##
## data: PRT_exportdeflator
## RESET = 0.094798, df1 = 2, df2 = 28, p-value = 0.9098
resettest(PRT_exports)
##
## RESET test
##
## data: PRT_exports
## RESET = 1.7097, df1 = 2, df2 = 28, p-value = 0.1993
resettest(PRT_imports)
##
## RESET test
##
## data: PRT_imports
## RESET = 0.059965, df1 = 2, df2 = 28, p-value = 0.9419
PRT_regtab <- matrix(c(PRT_Ceffekt, PRT_Ieffekt, PRT_Lukket, PRT_Xeffekt, PRT_Meffekt, PRT_NXeffekt, PRT_Neteffekt,PRT_Lukket_Konklusion, PRT_Def),ncol=9,byrow=TRUE)
colnames(PRT_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(PRT_regtab) <- c("PRT")
PRT_regtab <- as.table(PRT_regtab)
PRT_regtab
## consumption investment Lukket neteffekt exports
## PRT -0.251598745040635 0 -0.251598745040635 0
## imports netexports neteffect
## PRT -0.357798545960897 0.357798545960897 0.106199800920262
## Lukket konklusion Konklusion
## PRT Wage-led domestic Profit-led
PRT_smoke <- matrix(c(mean(PRT$C/PRT$R), mean(PRT$C/PRT$W), mean(PRT$I/PRT$R), PRT_CR, PRT_CW, PRT_iPS, PRT_ePULC, (1/(1-PRT_ePULC)), PRT_eXP, PRT_ePX, PRT_eMP, mean(PRT$Yf/PRT$Y), mean(PRT$X/PRT$Y), mean(PRT$rulc), (mean(PRT$X/PRT$Y)/mean(PRT$rulc))),ncol=15,byrow=TRUE)
colnames(PRT_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(PRT_smoke) <- c("PRT")
PRT_smoke <- as.table(PRT_smoke)
PRT_smoke
## C/R C/W I/R CR CW iPS ePULC
## PRT 2.0352530 1.1131361 0.5422046 0.2772657 0.7329783 0.0000000 0.7793232
## 1/1-epulc eXP ePX eMP Yf/Y X/Y RULC
## PRT 4.5315145 0.0000000 0.2616339 0.2234085 0.8955345 0.2627164 0.5786048
## (X/Y)/rulc
## PRT 0.4540515
summary(PRT_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$C_dl ~ PRT$R_dl + PRT$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.033169 -0.011253 -0.001263 0.006030 0.036607
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.008018 0.003301 2.429 0.02134 *
## R_dl 0.277266 0.076923 3.604 0.00112 **
## W_dl 0.732978 0.077393 9.471 0.00000000016 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0155 on 30 degrees of freedom
## Multiple R-squared: 0.7693, Adjusted R-squared: 0.754
## F-statistic: 50.03 on 2 and 30 DF, p-value: 0.0000000002783
summary(PRT_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$I_dl ~ PRT$PS_dl + PRT$Y_dl + PRT$r_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.10480 -0.01702 0.00474 0.02719 0.06366
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.030992 0.010405 -2.978 0.0058 **
## PS_dl 0.045434 0.249678 0.182 0.8569
## Y_dl 2.518881 0.314782 8.002 0.00000000797 ***
## r_dl -0.003897 0.012920 -0.302 0.7651
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04488 on 29 degrees of freedom
## Multiple R-squared: 0.7078, Adjusted R-squared: 0.6776
## F-statistic: 23.41 on 3 and 29 DF, p-value: 0.00000006722
summary(PRT_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$P_dl ~ L(PRT$ulc_dl) + PRT$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.021558 -0.008767 0.001024 0.005927 0.033484
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.013456 0.003447 3.904 0.000497 ***
## L(ulc_dl) 0.779323 0.054358 14.337 0.0000000000000058 ***
## Pm_dl 0.047901 0.060425 0.793 0.434158
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01479 on 30 degrees of freedom
## Multiple R-squared: 0.8732, Adjusted R-squared: 0.8647
## F-statistic: 103.3 on 2 and 30 DF, p-value: 0.00000000000003523
summary(PRT_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$Px_dl ~ PRT$ulc_dl + PRT$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.029462 -0.009716 -0.002200 0.007224 0.043386
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.004872 0.003747 1.300 0.203370
## ulc_dl 0.261634 0.059086 4.428 0.000116 ***
## Pm_dl 0.569470 0.065681 8.670 0.00000000114 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01608 on 30 degrees of freedom
## Multiple R-squared: 0.7424, Adjusted R-squared: 0.7253
## F-statistic: 43.24 on 2 and 30 DF, p-value: 0.000000001456
summary(PRT_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$X_dl ~ L(PRT$dPxdPm) + PRT$Yrw_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.135753 -0.020592 0.008386 0.028111 0.075938
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 2.96084 1.24308 2.382 0.0238 *
## L(dPxdPm) -0.39441 0.31350 -1.258 0.2181
## Yrw_l -0.09285 0.03977 -2.335 0.0264 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04607 on 30 degrees of freedom
## Multiple R-squared: 0.1561, Adjusted R-squared: 0.09987
## F-statistic: 2.775 on 2 and 30 DF, p-value: 0.07837
summary(PRT_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 33
##
## Call:
## dynlm(formula = PRT$M_dl ~ PRT$dPdPm + L(PRT$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.074171 -0.020440 -0.003927 0.022759 0.064471
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009364 0.008586 1.091 0.2841
## dPdPm 0.223409 0.105420 2.119 0.0425 *
## L(Y_dl) 2.188797 0.242017 9.044 0.00000000045 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03606 on 30 degrees of freedom
## Multiple R-squared: 0.7597, Adjusted R-squared: 0.7437
## F-statistic: 47.43 on 2 and 30 DF, p-value: 0.0000000005129
ESP_df[!complete.cases(ESP_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.6717477 -0.3978724 NA 0.3282523 -1.1139728 NA
## 1961 0.6658382 -0.4067086 -0.0088361777 0.3341618 -1.0961300 0.017842893
## 1962 0.6673198 -0.4044859 0.0022226887 0.3326802 -1.1005736 -0.004443630
## 1963 0.6884415 -0.3733249 0.0311610406 0.3115585 -1.1661683 -0.065594731
## 1964 0.6979412 -0.3596205 0.0137044057 0.3020588 -1.1971335 -0.030965184
## 1965 0.7006723 -0.3557150 0.0039054557 0.2993277 -1.2062163 -0.009082767
## 1966 0.7190446 -0.3298319 0.0258830898 0.2809554 -1.2695593 -0.063343033
## 1967 0.7331358 -0.3104243 0.0194075729 0.2668642 -1.3210153 -0.051456043
## 1968 0.7087531 -0.3442480 -0.0338236727 0.2912469 -1.2335840 0.087431324
## 1969 0.7016937 -0.3542583 -0.0100102701 0.2983063 -1.2096345 0.023949513
## 1970 0.6991849 -0.3578401 -0.0035818089 0.3008151 -1.2012594 0.008375103
## 1971 0.7040055 -0.3509691 0.0068709721 0.2959945 -1.2174144 -0.016154990
## 1972 0.7095527 -0.3431205 0.0078485846 0.2904473 -1.2363331 -0.018918680
## 1973 0.7132502 -0.3379230 0.0051975608 0.2867498 -1.2491453 -0.012812243
## 1974 0.7035358 -0.3516365 -0.0137135660 0.2964642 -1.2158288 0.033316555
## 1975 0.7190342 -0.3298464 0.0217901803 0.2809658 -1.2695223 -0.053693566
## 1976 0.7274291 -0.3182387 0.0116076283 0.2725709 -1.2998566 -0.030334227
## 1977 0.7211266 -0.3269405 -0.0087017911 0.2788734 -1.2769975 0.022859063
## 1978 0.7149758 -0.3355066 -0.0085660639 0.2850242 -1.2551812 0.021816299
## 2019 0.5910583 -0.5258405 0.0037676684 0.4089417 -0.8941828 -0.005420586
## 2020 0.5889009 -0.5294973 -0.0036567659 0.4110991 -0.8889210 0.005261739
## 2021 0.5893824 -0.5286800 0.0008173009 0.4106176 -0.8900930 -0.001171952
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 173.115 5.153956 NA 9016605110162 29.83009 NA
## 1961 193.608 5.265835 0.111879383 9442371649204 29.87623 0.0461392930
## 1962 211.622 5.354802 0.088966168 9997890937655 29.93340 0.0571669819
## 1963 230.157 5.438762 0.083960020 10544882392477 29.98666 0.0532664964
## 1964 244.398 5.498798 0.060036359 11234199429060 30.04998 0.0633219853
## 1965 259.681 5.559454 0.060655911 11853676920422 30.10366 0.0536754619
## 1966 278.497 5.629407 0.069953333 12571278829990 30.16244 0.0587766460
## 1967 290.585 5.671896 0.042488845 13155132138723 30.20783 0.0453972051
## 1968 309.754 5.735778 0.063882302 13978033221153 30.26851 0.0606750825
## 1969 337.346 5.821109 0.085330676 14788205965421 30.32485 0.0563429271
## 1970 351.668 5.862688 0.041578439 15176075660154 30.35074 0.0258902493
## 1971 368.018 5.908132 0.045444301 15777060332611 30.38958 0.0388367892
## 1972 398.008 5.986472 0.078340256 16660284959581 30.44405 0.0544707337
## 1973 429.008 6.061476 0.075003461 17714798870869 30.50542 0.0613726436
## 1974 453.112 6.116139 0.054663769 17928154433421 30.51739 0.0119719659
## 1975 455.568 6.121545 0.005405657 17911659793114 30.51647 -0.0009204647
## 1976 470.619 6.154049 0.032503857 18802198754711 30.56499 0.0485219322
## 1977 483.980 6.182044 0.027994734 19531286231937 30.60304 0.0380437840
## 1978 491.058 6.196562 0.014518664 20334772541434 30.64335 0.0403147517
## 2019 1192.358 7.083688 0.019597710 NA NA NA
## 2020 1080.463 6.985145 -0.098543206 NA NA NA
## 2021 1155.838 7.052581 0.067435969 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l
## 1960 0.3304 172.7846 5.152046 NA 112.6766 4.724522
## 1961 0.3639 193.2441 5.263954 0.111908425 125.0607 4.828799
## 1962 0.4231 211.1989 5.352800 0.088846187 136.0493 4.913017
## 1963 0.4727 229.6843 5.436706 0.083905414 151.4597 5.020320
## 1964 0.5584 243.8396 5.496511 0.059804875 157.9676 5.062390
## 1965 0.6729 259.0081 5.556859 0.060348703 168.7049 5.128151
## 1966 0.7989 277.6981 5.626535 0.069675217 180.8832 5.197852
## 1967 0.9019 289.6831 5.668788 0.042253014 191.7737 5.256316
## 1968 0.9558 308.7982 5.732688 0.063900422 203.2352 5.314364
## 1969 1.1475 336.1985 5.817702 0.085013770 217.7806 5.383488
## 1970 1.2862 350.3818 5.859023 0.041321658 227.9390 5.429078
## 1971 1.3955 366.6225 5.904333 0.045309291 239.5639 5.478820
## 1972 1.6662 396.3418 5.982277 0.077944262 259.4477 5.558555
## 1973 2.0830 426.9250 6.056608 0.074331383 279.6846 5.633663
## 1974 2.2245 450.8875 6.111218 0.054609509 293.9485 5.683405
## 1975 2.5395 453.0285 6.115955 0.004737175 299.2396 5.701245
## 1976 3.0204 467.5986 6.147610 0.031655198 315.9970 5.755733
## 1977 3.8554 480.1246 6.174046 0.026435418 320.7370 5.770621
## 1978 4.3592 486.6988 6.187645 0.013599798 323.6236 5.779581
## 2019 145.3390 1047.0190 6.953702 0.020635146 686.2780 6.531283
## 2020 128.4797 951.9833 6.858547 -0.095154865 612.6404 6.417778
## 2021 142.9979 1012.8401 6.920514 0.061966151 667.1654 6.503038
## 2022 NA NA NA NA NA NA
## C_dl W W_l W_dl R R_l
## 1960 NA 116.0677 4.754173 NA 56.71694 4.038073
## 1961 0.104277451 128.6693 4.857246 0.103072247 64.57480 4.167824
## 1962 0.084218101 140.9372 4.948314 0.091068876 70.26169 4.252227
## 1963 0.107302263 158.1242 5.063381 0.115066454 71.56008 4.270537
## 1964 0.042070366 170.1857 5.136890 0.073509280 73.65390 4.299377
## 1965 0.065761086 181.4798 5.201144 0.064254159 77.52830 4.350643
## 1966 0.069700484 199.6773 5.296703 0.095558307 78.02078 4.356975
## 1967 0.058464512 212.3770 5.358363 0.061660587 77.30605 4.347772
## 1968 0.058047898 218.8617 5.388440 0.030076750 89.93651 4.499104
## 1969 0.069124205 235.9084 5.463443 0.075003500 100.29013 4.608067
## 1970 0.045589915 244.9817 5.501183 0.037739849 105.40015 4.657764
## 1971 0.049742138 258.1043 5.553364 0.052180263 108.51825 4.686918
## 1972 0.079734954 281.2254 5.639156 0.085792847 115.11641 4.745944
## 1973 0.075107399 304.5044 5.718685 0.079528944 122.42065 4.807463
## 1974 0.049742042 317.2155 5.759581 0.040895943 133.67201 4.895389
## 1975 0.017840008 325.7430 5.786109 0.026527355 127.28551 4.846433
## 1976 0.054488130 340.1448 5.829372 0.043262827 127.45377 4.847754
## 1977 0.014888753 346.2306 5.847105 0.017733627 133.89396 4.897048
## 1978 0.008959639 347.9779 5.852139 0.005033734 138.72094 4.932464
## 2019 0.010972465 618.8493 6.427862 0.024402814 428.16968 6.059520
## 2020 -0.113504653 560.6239 6.329050 -0.098811631 391.35945 5.969626
## 2021 0.085259851 596.9502 6.391834 0.062783452 415.88993 6.030421
## 2022 NA NA NA NA NA NA
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1960 NA 25.3830 3.234080 NA 0.9546 -0.04646287
## 1961 0.129751318 29.9286 3.398815 0.164734886 1.1399 0.13094054
## 1962 0.084402557 33.3343 3.506587 0.107772352 1.3457 0.29691432
## 1963 0.018310683 37.1431 3.614778 0.108191124 1.6069 0.47430686
## 1964 0.028839690 42.7174 3.754606 0.139828311 1.9385 0.66191448
## 1965 0.051265937 49.7383 3.906775 0.152168929 2.3670 0.86162333
## 1966 0.006332184 56.2439 4.029698 0.122922331 2.7670 1.01776370
## 1967 -0.009203029 59.6435 4.088385 0.058687583 3.1488 1.14702143
## 1968 0.151331746 65.2854 4.178768 0.090383254 3.6148 1.28503653
## 1969 0.108963283 71.8110 4.274038 0.095269240 4.1896 1.43260526
## 1970 0.049696760 74.2724 4.307739 0.033701748 4.6379 1.53426168
## 1971 0.029154301 72.0442 4.277280 -0.030459596 4.7863 1.56575767
## 1972 0.059025582 82.2745 4.410061 0.132781398 5.8824 1.77196484
## 1973 0.061519141 92.9702 4.532279 0.122217794 7.5118 2.01647512
## 1974 0.087926064 98.7343 4.592432 0.060153392 9.7353 2.27575845
## 1975 -0.048956391 94.2913 4.546389 -0.046043477 10.7964 2.37921275
## 1976 0.001320971 93.5369 4.538356 -0.008032916 12.2539 2.50584425
## 1977 0.049294481 92.6951 4.529316 -0.009040398 14.9253 2.70305776
## 1978 0.035416097 90.1924 4.501945 -0.027370446 17.2984 2.85061401
## 2019 0.015214560 225.5290 5.418449 0.017741780 249.2590 5.51849252
## 2020 -0.089893127 178.8909 5.186776 -0.231672631 193.6569 5.26608804
## 2021 0.060794200 197.3425 5.284941 0.098164675 215.5849 5.37335480
## 2022 NA NA NA NA NA NA
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1960 NA NA NA NA NA NA
## 1961 0.17740341 NA NA NA NA NA
## 1962 0.16597378 NA NA NA NA NA
## 1963 0.17739253 NA NA NA NA NA
## 1964 0.18760762 NA NA NA NA NA
## 1965 0.19970885 NA NA NA NA NA
## 1966 0.15614037 NA NA NA NA NA
## 1967 0.12925773 NA NA NA NA NA
## 1968 0.13801510 NA NA NA NA NA
## 1969 0.14756873 NA NA NA NA NA
## 1970 0.10165641 4.0249 1.392500 NA 0.8678281 -0.1417616
## 1971 0.03149599 4.0280 1.393270 0.000769909 0.8415686 -0.1724877
## 1972 0.20620717 5.0553 1.620437 0.227167223 0.8593941 -0.1515276
## 1973 0.24451028 6.5482 1.879190 0.258753005 0.8717218 -0.1372849
## 1974 0.25928334 8.5511 2.146060 0.266869727 0.8783602 -0.1296985
## 1975 0.10345429 9.3461 2.234959 0.088899214 0.8656682 -0.1442536
## 1976 0.12663151 10.7094 2.371122 0.136162716 0.8739585 -0.1347224
## 1977 0.19721351 12.7965 2.549172 0.178049836 0.8573697 -0.1538861
## 1978 0.14755625 15.0997 2.714675 0.165503180 0.8728958 -0.1359391
## 2019 0.06495076 223.8870 5.411141 0.074233387 0.8982103 -0.1073511
## 2020 -0.25240448 167.4223 5.120519 -0.290622097 0.8645305 -0.1455687
## 2021 0.10726676 188.5894 5.239572 0.119052802 0.8747802 -0.1337826
## 2022 NA NA NA NA NA NA
## Ips_dl I I_l I_dl r r_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA 64.45568 4.165978 NA NA NA
## 1971 -0.030726084 60.63014 4.104792 -0.061185680 NA NA
## 1972 0.020960051 70.70622 4.258534 0.153741450 NA NA
## 1973 0.014242729 81.04415 4.394994 0.136460523 NA NA
## 1974 0.007586389 86.72428 4.462734 0.067739782 NA NA
## 1975 -0.014555076 81.62498 4.402135 -0.060598553 NA NA
## 1976 0.009531208 81.74737 4.403634 0.001498292 NA NA
## 1977 -0.019163670 79.47397 4.375430 -0.028204069 NA NA
## 1978 0.017946928 78.72856 4.366006 -0.009423518 -7.1321438 0.000000
## 2019 0.009282626 202.57247 5.311098 0.027024406 -0.9036864 1.978026
## 2020 -0.038217617 154.65664 5.041207 -0.269890248 NA NA
## 2021 0.011786039 172.63131 5.151158 0.109950714 NA NA
## 2022 NA NA NA NA NA NA
## r_dl P P_l P_dl Pm Pm_l
## 1960 NA 2.632800 0.9680479 NA 7.336537 1.992867
## 1961 NA 2.681436 0.9863525 0.018304591 7.486655 2.013122
## 1962 NA 2.834865 1.0419944 0.055641843 7.636019 2.032876
## 1963 NA 3.076196 1.1236936 0.081699286 7.792479 2.053159
## 1964 NA 3.270711 1.1850073 0.061313662 7.976290 2.076473
## 1965 NA 3.570701 1.2727620 0.087754690 8.040066 2.084437
## 1966 NA 3.862427 1.3512956 0.078533648 8.055159 2.086313
## 1967 NA 4.191855 1.4331434 0.081847766 8.267778 2.112366
## 1968 NA 4.439621 1.4905691 0.057425698 9.153906 2.214181
## 1969 NA 4.667614 1.5406480 0.050078896 9.415334 2.242340
## 1970 NA 4.945115 1.5984002 0.057752201 9.838823 2.286336
## 1971 NA 5.332994 1.6739128 0.075512587 10.376214 2.339516
## 1972 NA 5.787499 1.7557003 0.081787528 10.526460 2.353892
## 1973 NA 6.472928 1.8676285 0.111928225 11.617909 2.452548
## 1974 NA 7.505420 2.0156255 0.147996939 16.490961 2.802812
## 1975 NA 8.764583 2.1707189 0.155093451 17.639178 2.870122
## 1976 NA 10.210007 2.3233683 0.152649378 20.257750 3.008537
## 1977 NA 12.597268 2.5334799 0.210111633 24.716597 3.207475
## 1978 NA 15.196559 2.7210691 0.187589112 26.589052 3.280500
## 2019 -0.1567918 104.442709 4.6486387 0.015656259 105.795169 4.661505
## 2020 NA 104.678675 4.6508954 0.002256735 102.833525 4.633111
## 2021 NA 105.767392 4.6612423 0.010346847 104.124807 4.645590
## 2022 NA NA NA NA NA NA
## Pm_dl Px Px_l Px_dl X X_l
## 1960 NA 4.161636 1.425908 NA 8.8244 2.177521
## 1961 0.020255142 4.245383 1.445832 0.019923655 9.5241 2.253825
## 1962 0.019754305 4.449607 1.492816 0.046983900 10.7424 2.374199
## 1963 0.020282695 4.732011 1.554350 0.061534320 11.1540 2.411798
## 1964 0.023314239 4.863226 1.581702 0.027351880 14.0021 2.639207
## 1965 0.007964001 4.915147 1.592322 0.010619596 14.9487 2.704624
## 1966 0.001875451 5.357191 1.678440 0.086118092 17.2675 2.848826
## 1967 0.026053022 6.116385 1.810971 0.132531470 16.4703 2.801559
## 1968 0.101814816 7.205735 1.974877 0.163906075 19.5025 2.970543
## 1969 0.028159007 7.643839 2.033900 0.059022633 22.5765 3.116910
## 1970 0.043996423 7.852245 2.060799 0.026899554 26.6364 3.282279
## 1971 0.053179993 8.326690 2.119466 0.058666601 30.4188 3.415061
## 1972 0.014376073 8.833338 2.178533 0.059066895 34.4949 3.540811
## 1973 0.098655662 9.668492 2.268872 0.090339421 37.9444 3.636122
## 1974 0.350264646 11.836574 2.471194 0.202321881 37.5649 3.626070
## 1975 0.067310026 13.096286 2.572329 0.101134431 37.4147 3.622064
## 1976 0.138414971 15.241585 2.724028 0.151698880 39.2854 3.670853
## 1977 0.198937519 18.192012 2.900983 0.176955034 44.0389 3.785073
## 1978 0.073024604 21.067895 3.047750 0.146767686 48.7511 3.886728
## 2019 0.012000521 102.744588 4.632246 0.002924247 422.6500 6.046544
## 2020 -0.028393436 101.584544 4.620891 -0.011354781 338.8810 5.825649
## 2021 0.012478829 102.644238 4.631269 0.010377609 379.2166 5.938108
## 2022 NA NA NA NA NA NA
## X_dl M M_l M_dl rulc rulc_l
## 1960 NA 4.4091 1.483671 NA 0.6704657 -0.3997828
## 1961 0.076304817 6.1785 1.821076 0.337404937 0.6645867 -0.4085899
## 1962 0.120373099 8.3052 2.116882 0.295806301 0.6659856 -0.4064872
## 1963 0.037599650 10.2591 2.328165 0.211283292 0.6870276 -0.3753808
## 1964 0.227409140 11.5905 2.450186 0.122020680 0.6963465 -0.3619079
## 1965 0.065417021 15.4080 2.734887 0.284701058 0.6988567 -0.3583096
## 1966 0.144201782 18.3935 2.911997 0.177110486 0.7169819 -0.3327046
## 1967 -0.047267363 17.7950 2.878918 -0.033079822 0.7308603 -0.3135329
## 1968 0.168983904 19.2386 2.956919 0.078001159 0.7065661 -0.3473385
## 1969 0.146366880 22.3144 3.105232 0.148313532 0.6993069 -0.3576656
## 1970 0.165369159 23.9804 3.177237 0.072004620 0.6966277 -0.3615042
## 1971 0.132782137 24.1483 3.184214 0.006977154 0.7013360 -0.3547683
## 1972 0.125750649 30.0163 3.401741 0.217526583 0.7065822 -0.3473157
## 1973 0.095310443 35.0290 3.556176 0.154435722 0.7097871 -0.3427902
## 1974 -0.010051827 37.8314 3.633139 0.076963156 0.7000819 -0.3565580
## 1975 -0.004006428 37.4909 3.624098 -0.009041209 0.7150260 -0.3354363
## 1976 0.048789273 41.1650 3.717588 0.093490144 0.7227605 -0.3246773
## 1977 0.114220386 38.9009 3.661017 -0.056570994 0.7153821 -0.3349384
## 1978 0.101654427 38.5119 3.650967 -0.010050102 0.7086288 -0.3444234
## 2019 0.025288081 377.2280 5.932850 0.012199404 0.5190130 -0.6558263
## 2020 -0.220895400 297.5937 5.695729 -0.237120646 0.5188737 -0.6560947
## 2021 0.112458532 334.3942 5.812321 0.116591403 0.5164653 -0.6607473
## 2022 NA NA NA NA NA NA
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1960 NA 1.765202 0.5682651 NA 42.21355 3.742741
## 1961 -0.0088071359 1.782047 0.5777626 0.009497455 46.76196 3.845070
## 1962 0.0021027076 1.887979 0.6355071 0.057744551 50.33934 3.918787
## 1963 0.0311064341 2.113431 0.7483129 0.112805720 53.92263 3.987550
## 1964 0.0134729213 2.277548 0.8230994 0.074786583 56.27686 4.030283
## 1965 0.0035982483 2.495408 0.9144524 0.091352939 58.58643 4.070503
## 1966 0.0256049742 2.769290 1.0185910 0.104138622 61.42394 4.117800
## 1967 0.0191717422 3.063661 1.1196105 0.101019508 62.47019 4.134690
## 1968 -0.0338055521 3.136886 1.1432306 0.023620146 64.87452 4.172455
## 1969 -0.0103271757 3.264094 1.1829824 0.039751721 68.73563 4.230268
## 1970 -0.0038385900 3.444904 1.2368960 0.053913612 69.86313 4.246538
## 1971 0.0067359621 3.740220 1.3191445 0.082248549 71.55517 4.270469
## 1972 0.0074525910 4.089344 1.4083846 0.089240119 75.58344 4.325237
## 1973 0.0045254831 4.594401 1.5248384 0.116453708 78.55238 4.363766
## 1974 -0.0137678258 5.254409 1.6590675 0.134229113 80.58577 4.389322
## 1975 0.0211216985 6.266905 1.8352826 0.176215149 80.12778 4.383623
## 1976 0.0107589691 7.379390 1.9986910 0.163408347 81.74978 4.403663
## 1977 -0.0102611072 9.011860 2.1985415 0.199850526 82.97153 4.418498
## 1978 -0.0094849297 10.768720 2.3766457 0.178104183 83.76998 4.428075
## 2019 0.0048051044 54.207125 3.9928124 0.020461363 102.24030 4.627326
## 2020 -0.0002684249 54.315013 3.9948007 0.001988310 97.80809 4.583007
## 2021 -0.0046525170 54.625183 4.0004950 0.005694330 100.71104 4.612255
## 2022 NA NA NA NA NA NA
## Tau_dl dPxdPm dPdPm Trade
## 1960 NA NA NA 0.07644340
## 1961 0.1023287851 -0.0003314874 -0.001950552 0.08110512
## 1962 0.0737167497 0.0272295947 0.035887538 0.09000766
## 1963 0.0687634570 0.0412516249 0.061416591 0.09303693
## 1964 0.0427331010 0.0040376405 0.037999423 0.10471690
## 1965 0.0402197047 0.0026555954 0.079790689 0.11689997
## 1966 0.0472965150 0.0842426408 0.076658197 0.12804806
## 1967 0.0168899057 0.1064784473 0.055794743 0.11791834
## 1968 0.0377654325 0.0620912596 -0.044389118 0.12507054
## 1969 0.0578127758 0.0308636258 0.021919889 0.13307079
## 1970 0.0162703912 -0.0170968694 0.013755778 0.14393348
## 1971 0.0239306231 0.0054866079 0.022332594 0.14827291
## 1972 0.0547685306 0.0446908216 0.067411455 0.16208518
## 1973 0.0385283990 -0.0083162417 0.013272563 0.17009799
## 1974 0.0255564594 -0.1479427653 -0.202267708 0.16639661
## 1975 -0.0056994724 0.0338244045 0.087783425 0.16442244
## 1976 0.0200404194 0.0132839092 0.014234407 0.17094592
## 1977 0.0148345070 -0.0219824856 0.011174114 0.17137030
## 1978 0.0095770874 0.0737430829 0.114564509 0.17770406
## 2019 0.0004326794 -0.0090762737 0.003655738 0.67083711
## 2020 -0.0443186412 0.0170386553 0.030650172 0.58907589
## 2021 0.0292481113 -0.0021012204 -0.002131982 0.61739690
## 2022 NA NA NA NA
ESP <- ESP_df[20:59,]
ESP[!complete.cases(ESP),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
ESP %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1979 0.7172094 -0.3323874 0.003119163 0.2827906 -1.263049 -0.007867423
## 1980 0.7095305 -0.3431519 -0.010764431 0.2904695 -1.236257 0.026792048
## 1981 0.7199671 -0.3285497 0.014602104 0.2800329 -1.272848 -0.036591660
## 1982 0.7066255 -0.3472545 -0.018704711 0.2933745 -1.226305 0.046542896
## 1983 0.7096897 -0.3429274 0.004327079 0.2903103 -1.236805 -0.010499768
## 1984 0.6824170 -0.3821144 -0.039187045 0.3175830 -1.147016 0.089789130
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1979 491.265 6.196984 0.000421450 21176395335039 30.68391 0.0405547800
## 1980 497.654 6.209905 0.012921359 21492832259592 30.69874 0.0148323625
## 1981 496.989 6.208568 -0.001337163 21918223140569 30.71834 0.0195989014
## 1982 503.183 6.220954 0.012386028 21905421952763 30.71776 -0.0005842138
## 1983 512.096 6.238512 0.017558186 22497472943710 30.74442 0.0266688054
## 1984 521.229 6.256189 0.017677377 23519674704853 30.78886 0.0444343031
## Tax Yf Yf_l Yf_dl C C_l
## 1979 5.1806 486.0844 6.186382 -0.001263180 327.8307 5.792497
## 1980 6.3031 491.3509 6.197159 0.010776265 329.7977 5.798479
## 1981 7.7741 489.2149 6.192802 -0.004356675 326.5012 5.788434
## 1982 9.5175 493.6655 6.201858 0.009056301 326.6330 5.788837
## 1983 11.8525 500.2435 6.215095 0.013236818 327.9063 5.792728
## 1984 14.1957 507.0333 6.228577 0.013481702 327.2553 5.790741
## C_dl W W_l W_dl R R_l
## 1979 0.0129162045 348.6243 5.853995 0.00185598348 137.4601 4.923334
## 1980 0.0059821196 348.6284 5.854007 0.00001183453 142.7225 4.960902
## 1981 -0.0100458121 352.2186 5.864252 0.01024542920 136.9963 4.919954
## 1982 0.0004035924 348.8366 5.854604 -0.00964840952 144.8289 4.975553
## 1983 0.0038906804 355.0177 5.872168 0.01756389626 145.2258 4.978290
## 1984 -0.0019872966 346.0081 5.846462 -0.02570534261 161.0252 5.081561
## R_dl It It_l It_dl Itcurr Itcurr_l Itcurr_dl
## 1979 -0.009130603 86.2239 4.456947 -0.04499776 19.2704 2.958570 0.10795623
## 1980 0.037568313 86.8275 4.463923 0.00697599 22.8354 3.128312 0.16974172
## 1981 -0.040948335 85.3883 4.447209 -0.01671430 25.4812 3.237941 0.10962896
## 1982 0.055599198 86.2497 4.457247 0.01003749 29.0103 3.367651 0.12971001
## 1983 0.002737050 85.1898 4.444882 -0.01236487 32.1308 3.469815 0.10216413
## 1984 0.103270832 81.1148 4.395865 -0.04901627 33.2289 3.503420 0.03360491
## Ipr Ipr_l Ipr_dl Ips Ips_l Ips_dl
## 1979 17.0485 2.836062 0.12138735 0.8846988 -0.1225080 0.013431119
## 1980 20.1474 3.003075 0.16701302 0.8822880 -0.1252367 -0.002728699
## 1981 22.0404 3.092877 0.08980189 0.8649671 -0.1450638 -0.019827077
## 1982 24.1425 3.183974 0.09109664 0.8322044 -0.1836772 -0.038613374
## 1983 26.9470 3.293872 0.10989820 0.8386657 -0.1759431 0.007734069
## 1984 27.2308 3.304349 0.01047671 0.8194915 -0.1990713 -0.023128196
## I I_l I_dl r r_l r_dl
## 1979 76.28218 4.334439 -0.031566646 -3.096070 1.616627 1.61662683
## 1980 76.60686 4.338687 0.004247291 2.235864 2.338725 0.72209802
## 1981 73.85807 4.302145 -0.036541379 3.079742 2.416974 0.07824959
## 1982 71.77738 4.273569 -0.028575885 2.118644 2.327355 -0.08961986
## 1983 71.44576 4.268939 -0.004630801 4.492840 2.535678 0.20832313
## 1984 66.47289 4.196794 -0.072144469 5.099785 2.582633 0.04695502
## P P_l P_dl Pm Pm_l Pm_dl Px
## 1979 17.76937 2.877476 0.1564073 28.49851 3.349852 0.06935225 23.04301
## 1980 20.15473 3.003439 0.1259628 39.08486 3.665735 0.31588335 27.21591
## 1981 22.64383 3.119887 0.1164480 50.30663 3.918137 0.25240165 31.26597
## 1982 25.71966 3.247256 0.1273687 56.44431 4.033255 0.11511774 35.50486
## 1983 28.77600 3.359542 0.1122859 68.85514 4.232005 0.19875029 41.44205
## 1984 31.90282 3.462694 0.1031527 77.02188 4.344090 0.11208476 46.61403
## Px_l Px_dl X X_l X_dl M M_l
## 1979 3.137362 0.08961196 51.4811 3.941215 0.05448699 42.9022 3.758923
## 1980 3.303802 0.16643937 52.6652 3.963955 0.02274015 44.3180 3.791391
## 1981 3.442530 0.13872880 58.6148 4.070987 0.10703233 42.7206 3.754681
## 1982 3.569670 0.12713923 61.8783 4.125170 0.05418233 44.8239 3.802741
## 1983 3.724296 0.15462639 67.8262 4.216949 0.09177900 44.2872 3.790696
## 1984 3.841902 0.11760561 75.9901 4.330603 0.11365452 43.6964 3.777266
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1979 0.10795582 0.7096461 -0.3429888 0.001434533503 12.60997 2.534488
## 1980 0.03246781 0.7005438 -0.3558984 -0.012909524843 14.11927 2.647541
## 1981 -0.03670968 0.7087051 -0.3443158 0.011582592586 16.04779 2.775571
## 1982 0.04806024 0.6932600 -0.3663502 -0.022034437493 17.83041 2.880906
## 1983 -0.01204578 0.6932639 -0.3663445 0.000005709827 19.94936 2.993197
## 1984 -0.01342998 0.6638313 -0.4097272 -0.043382719678 21.17809 3.052967
## ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm
## 1979 0.15784188 83.57964 4.425800 -0.002274708 0.020259713 0.087055099
## 1980 0.11305325 85.18639 4.444842 0.019041675 -0.149443983 -0.189920580
## 1981 0.12803063 85.43515 4.447758 0.002915942 -0.113672853 -0.135953618
## 1982 0.10533422 86.08373 4.455320 0.007562889 0.012021491 0.012250919
## 1983 0.11229156 87.01584 4.466090 0.010769714 -0.044123901 -0.086464441
## 1984 0.05976998 89.21445 4.491043 0.024952805 0.005520852 -0.008932056
## Trade
## 1979 0.1921230
## 1980 0.1948808
## 1981 0.2038987
## 1982 0.2120545
## 1983 0.2189304
## 1984 0.2296236
ESP %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1979 0.7172094 -0.3323874 0.0031191634 0.2827906 -1.2630486 -0.0078674228
## 1980 0.7095305 -0.3431519 -0.0107644306 0.2904695 -1.2362566 0.0267920475
## 1981 0.7199671 -0.3285497 0.0146021045 0.2800329 -1.2728482 -0.0365916602
## 1982 0.7066255 -0.3472545 -0.0187047106 0.2933745 -1.2263053 0.0465428965
## 1983 0.7096897 -0.3429274 0.0043270787 0.2903103 -1.2368051 -0.0104997677
## 1984 0.6824170 -0.3821144 -0.0391870446 0.3175830 -1.1470160 0.0897891295
## 1985 0.6675080 -0.4042039 -0.0220895069 0.3324920 -1.1011394 0.0458765391
## 1986 0.6533950 -0.4255734 -0.0213695136 0.3466050 -1.0595695 0.0415699724
## 1987 0.6529307 -0.4262843 -0.0007108350 0.3470693 -1.0582308 0.0013386428
## 1988 0.6474136 -0.4347700 -0.0084856759 0.3525864 -1.0424595 0.0157712751
## 1989 0.6439243 -0.4401740 -0.0054040905 0.3560757 -1.0326120 0.0098474952
## 1990 0.6596059 -0.4161128 0.0240612325 0.3403941 -1.0776511 -0.0450390402
## 1991 0.6692025 -0.4016686 0.0144442556 0.3307975 -1.1062489 -0.0285978268
## 1992 0.6866135 -0.3759837 0.0256848099 0.3133865 -1.1603180 -0.0540690940
## 1993 0.6813670 -0.3836541 -0.0076703938 0.3186330 -1.1437154 0.0166025568
## 1994 0.6643175 -0.4089951 -0.0253409847 0.3356825 -1.0915894 0.0521260270
## 1995 0.6498502 -0.4310135 -0.0220183348 0.3501498 -1.0493941 0.0421953066
## 1996 0.6447620 -0.4388740 -0.0078605025 0.3552380 -1.0349674 0.0144267119
## 1997 0.6509923 -0.4292575 0.0096164681 0.3490077 -1.0526612 -0.0176938382
## 1998 0.6529500 -0.4262548 0.0030027349 0.3470500 -1.0582863 -0.0056251085
## 1999 0.6518788 -0.4278966 -0.0016418526 0.3481212 -1.0552046 0.0030817411
## 2000 0.6490653 -0.4322219 -0.0043253086 0.3509347 -1.0471552 0.0080494373
## 2001 0.6353400 -0.4535949 -0.0213729977 0.3646600 -1.0087900 0.0383651772
## 2002 0.6298767 -0.4622312 -0.0086362894 0.3701233 -0.9939191 0.0148709312
## 2003 0.6215533 -0.4755337 -0.0133024749 0.3784467 -0.9716799 0.0222391425
## 2004 0.6216967 -0.4753030 0.0002307147 0.3783033 -0.9720590 -0.0003790366
## 2005 0.6189587 -0.4797167 -0.0044137243 0.3810413 -0.9648476 0.0072113843
## 2006 0.6171356 -0.4826665 -0.0029498353 0.3828644 -0.9600744 0.0047732056
## 2007 0.6125441 -0.4901343 -0.0074677597 0.3874559 -0.9481533 0.0119210398
## 2008 0.6209590 -0.4764902 0.0136440539 0.3790410 -0.9701109 -0.0219575562
## 2009 0.6173568 -0.4823081 -0.0058178262 0.3826432 -0.9606524 0.0094584345
## 2010 0.6238001 -0.4719254 0.0103826726 0.3761999 -0.9776345 -0.0169820610
## 2011 0.6117623 -0.4914114 -0.0194860366 0.3882377 -0.9461376 0.0314969355
## 2012 0.6017901 -0.5078466 -0.0164351690 0.3982099 -0.9207760 0.0253615872
## 2013 0.5988247 -0.5127864 -0.0049398361 0.4011753 -0.9133567 0.0074192703
## 2014 0.6017075 -0.5079839 0.0048025263 0.3982925 -0.9205685 -0.0072117982
## 2015 0.6008877 -0.5093473 -0.0013633951 0.3991123 -0.9185123 0.0020561858
## 2016 0.5924552 -0.5234800 -0.0141326612 0.4075448 -0.8976045 0.0209078233
## 2017 0.5874347 -0.5319902 -0.0085102299 0.4125653 -0.8853608 0.0122437218
## 2018 0.5888356 -0.5296082 0.0023819774 0.4111644 -0.8887622 -0.0034014201
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1979 491.265 6.196984 0.000421450 21176395335039 30.68391 0.0405547800
## 1980 497.654 6.209905 0.012921359 21492832259592 30.69874 0.0148323625
## 1981 496.989 6.208568 -0.001337163 21918223140569 30.71834 0.0195989014
## 1982 503.183 6.220954 0.012386028 21905421952763 30.71776 -0.0005842138
## 1983 512.096 6.238512 0.017558186 22497472943710 30.74442 0.0266688054
## 1984 521.229 6.256189 0.017677377 23519674704853 30.78886 0.0444343031
## 1985 533.328 6.279137 0.022947135 24362117732744 30.82405 0.0351920815
## 1986 550.683 6.311159 0.032022706 25149261349926 30.85585 0.0317991524
## 1987 581.229 6.365145 0.053985501 26027893824112 30.89019 0.0343402760
## 1988 610.837 6.414830 0.049685321 27281425092223 30.93723 0.0470372687
## 1989 640.327 6.461979 0.047148836 28343370791677 30.97541 0.0381870973
## 1990 664.551 6.499112 0.037132641 29235751998760 31.00641 0.0309991755
## 1991 681.453 6.524227 0.025115659 29679422567731 31.02148 0.0150616190
## 1992 687.793 6.533488 0.009260637 30294588897954 31.04199 0.0205151495
## 1993 680.699 6.523120 -0.010367709 30657491406528 31.05390 0.0119079380
## 1994 696.920 6.546671 0.023550415 31633799857983 31.08525 0.0313491144
## 1995 716.137 6.573871 0.027200863 32557307771876 31.11402 0.0287756879
## 1996 735.190 6.600129 0.026257480 33521905586406 31.14322 0.0291972707
## 1997 762.411 6.636486 0.036356811 34642853419027 31.17611 0.0328923306
## 1998 795.904 6.679479 0.042992795 35585580405717 31.20296 0.0268490572
## 1999 831.644 6.723404 0.043925889 36743897917809 31.23499 0.0320316578
## 2000 875.272 6.774535 0.051130231 38223228224240 31.27446 0.0394712307
## 2001 909.696 6.813110 0.038575783 38796837825824 31.28936 0.0148953445
## 2002 934.540 6.840054 0.026943952 39384706635477 31.30440 0.0150388405
## 2003 962.407 6.869437 0.029383008 40246771762069 31.32605 0.0216522115
## 2004 992.461 6.900188 0.030750279 41580642631952 31.35866 0.0326049416
## 2005 1028.706 6.936057 0.035869264 42769881848529 31.38686 0.0281994221
## 2006 1070.911 6.976265 0.040207986 44108320526112 31.41767 0.0308142790
## 2007 1109.514 7.011677 0.035412394 45335959385747 31.44512 0.0274520843
## 2008 1119.357 7.020510 0.008832332 45510638076825 31.44897 0.0038455795
## 2009 1077.233 6.982151 -0.038358697 44000679006245 31.41523 -0.0337410368
## 2010 1078.989 6.983780 0.001628775 45303439883935 31.44440 0.0291778995
## 2011 1070.202 6.975603 -0.008177076 46145122819988 31.46281 0.0184083091
## 2012 1038.530 6.945562 -0.030041164 46737488239453 31.47557 0.0127553143
## 2013 1023.623 6.931104 -0.014457957 47409225395627 31.48984 0.0142702497
## 2014 1037.789 6.944848 0.013744194 48368504905460 31.50987 0.0200320385
## 2015 1077.590 6.982482 0.037634578 49494501589178 31.53288 0.0230127076
## 2016 1110.255 7.012345 0.029862652 50340823934674 31.54984 0.0169547726
## 2017 1142.361 7.040852 0.028507455 51500382515799 31.57261 0.0227728782
## 2018 1169.218 7.064090 0.023237976 52652325007526 31.59473 0.0221211622
## Tax Yf Yf_l Yf_dl C C_l
## 1979 5.1806 486.0844 6.186382 -0.001263180 327.8307 5.792497
## 1980 6.3031 491.3509 6.197159 0.010776265 329.7977 5.798479
## 1981 7.7741 489.2149 6.192802 -0.004356675 326.5012 5.788434
## 1982 9.5175 493.6655 6.201858 0.009056301 326.6330 5.788837
## 1983 11.8525 500.2435 6.215095 0.013236818 327.9063 5.792728
## 1984 14.1957 507.0333 6.228577 0.013481702 327.2553 5.790741
## 1985 16.7781 516.5499 6.247172 0.018595214 334.7271 5.813316
## 1986 21.9440 528.7390 6.270495 0.023323031 346.1158 5.846773
## 1987 24.5713 556.6577 6.321951 0.051455582 366.7164 5.904589
## 1988 27.6260 583.2110 6.368549 0.046598533 384.6521 5.952339
## 1989 30.8703 609.4567 6.412568 0.044018863 405.5276 6.005189
## 1990 33.6741 630.8769 6.447111 0.034542852 419.7621 6.039688
## 1991 37.0226 644.4304 6.468367 0.021256070 431.8814 6.068151
## 1992 41.8614 645.9316 6.470694 0.002326790 441.2692 6.089655
## 1993 40.4117 640.2873 6.461917 -0.008776634 432.8736 6.070446
## 1994 44.6759 652.2441 6.480419 0.018501896 437.5650 6.081225
## 1995 47.1682 668.9688 6.505737 0.025318544 445.0640 6.098218
## 1996 50.1351 685.0549 6.529499 0.023761559 455.9730 6.122434
## 1997 54.6492 707.7618 6.562108 0.032608615 468.8720 6.150330
## 1998 61.3912 734.5128 6.599207 0.037099826 489.5420 6.193470
## 1999 68.8060 762.8380 6.637046 0.037838267 513.0310 6.240336
## 2000 74.0620 801.2100 6.686123 0.049077396 535.7910 6.283744
## 2001 77.8270 831.8690 6.723675 0.037551892 556.5570 6.321770
## 2002 83.0770 851.4630 6.746956 0.023281070 573.6790 6.352070
## 2003 91.0590 871.3480 6.770041 0.023085391 587.2520 6.375454
## 2004 101.9030 890.5580 6.791848 0.021806795 611.0780 6.415225
## 2005 113.9340 914.7720 6.818675 0.026826621 636.3350 6.455725
## 2006 123.9710 946.9400 6.853236 0.034560879 661.6920 6.494800
## 2007 124.7340 984.7800 6.892418 0.039182533 684.1520 6.528180
## 2008 106.0930 1013.2640 6.920932 0.028513816 679.3490 6.521135
## 2009 87.5460 989.6870 6.897389 -0.023543351 654.9420 6.484547
## 2010 107.5890 971.4000 6.878738 -0.018650402 657.3610 6.488233
## 2011 104.0820 966.1200 6.873288 -0.005450280 641.1770 6.463306
## 2012 106.8350 931.6950 6.837006 -0.036282542 619.9010 6.429560
## 2013 114.1440 909.4790 6.812872 -0.024133600 602.0010 6.400259
## 2014 120.0450 917.7440 6.821918 0.009046577 612.1710 6.417012
## 2015 128.9550 948.6350 6.855024 0.033105625 630.2150 6.446061
## 2016 131.4790 978.7760 6.886303 0.031278702 647.1900 6.472640
## 2017 137.6730 1004.6880 6.912432 0.026129513 666.4840 6.502016
## 2018 143.5830 1025.6350 6.933067 0.020634887 678.7890 6.520310
## C_dl W W_l W_dl R R_l
## 1979 0.0129162045 348.6243 5.853995 0.00185598348 137.4601 4.923334
## 1980 0.0059821196 348.6284 5.854007 0.00001183453 142.7225 4.960902
## 1981 -0.0100458121 352.2186 5.864252 0.01024542920 136.9963 4.919954
## 1982 0.0004035924 348.8366 5.854604 -0.00964840952 144.8289 4.975553
## 1983 0.0038906804 355.0177 5.872168 0.01756389626 145.2258 4.978290
## 1984 -0.0019872966 346.0081 5.846462 -0.02570534261 161.0252 5.081561
## 1985 0.0225749727 344.8012 5.842968 -0.00349429310 171.7487 5.146032
## 1986 0.0334578282 345.4754 5.844921 0.00195351705 183.2636 5.210925
## 1987 0.0578153961 363.4589 5.895666 0.05074474746 193.1988 5.263720
## 1988 0.0477504921 377.5787 5.933779 0.03811285722 205.6323 5.326090
## 1989 0.0528496460 392.4440 5.972394 0.03861477211 217.0127 5.379956
## 1990 0.0344991869 416.1301 6.030998 0.05860408429 214.7468 5.369460
## 1991 0.0284628913 431.2544 6.066698 0.03570032511 213.1760 5.362118
## 1992 0.0215041065 443.5054 6.094710 0.02801159986 202.4262 5.310376
## 1993 -0.0192093515 436.2707 6.078263 -0.01644702776 204.0166 5.318202
## 1994 0.0107794977 433.2972 6.071424 -0.00683908825 218.9469 5.388829
## 1995 0.0169928259 434.7295 6.074724 0.00330020911 234.2393 5.456343
## 1996 0.0242155052 441.6974 6.090625 0.01590105631 243.3575 5.494532
## 1997 0.0278962129 460.7475 6.132850 0.04222508343 247.0143 5.509446
## 1998 0.0431404500 479.6001 6.172953 0.04010256079 254.9127 5.540921
## 1999 0.0468660121 497.2779 6.209149 0.03619641411 265.5601 5.581841
## 2000 0.0434078875 520.0376 6.253901 0.04475208748 281.1724 5.638968
## 2001 0.0380254317 528.5197 6.270080 0.01617889379 303.3493 5.714885
## 2002 0.0303004151 536.3167 6.284725 0.01464478051 315.1463 5.753037
## 2003 0.0233840228 541.5892 6.294508 0.00978291647 329.7588 5.798362
## 2004 0.0397705814 553.6569 6.316545 0.02203750942 336.9011 5.819789
## 2005 0.0405005436 566.2061 6.338958 0.02241289703 348.5659 5.853827
## 2006 0.0390750366 584.3904 6.370569 0.03161104400 362.5496 5.893161
## 2007 0.0333799243 603.2212 6.402284 0.03171477304 381.5588 5.944265
## 2008 -0.0070451285 629.1954 6.444442 0.04215787024 384.0686 5.950821
## 2009 -0.0365883046 610.9900 6.415081 -0.02936117699 378.6970 5.936736
## 2010 0.0036866528 605.9594 6.406813 -0.00826772903 365.4406 5.901104
## 2011 -0.0249277850 591.0358 6.381877 -0.02493631638 375.0842 5.927150
## 2012 -0.0337457620 560.6848 6.329159 -0.05271771114 371.0102 5.916230
## 2013 -0.0293006814 544.6185 6.300085 -0.02907343589 364.8605 5.899515
## 2014 0.0167525488 552.2134 6.313935 0.01384910281 365.5306 5.901350
## 2015 0.0290493758 570.0231 6.345677 0.03174222954 378.6119 5.936512
## 2016 0.0265788834 579.8810 6.362823 0.01714604104 398.8950 5.988698
## 2017 0.0293762189 590.1886 6.380442 0.01761928320 414.4994 6.027072
## 2018 0.0182941948 603.9304 6.403459 0.02301686481 421.7046 6.044305
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1979 -0.009130603 86.2239 4.456947 -0.04499776 19.2704 2.958570
## 1980 0.037568313 86.8275 4.463923 0.00697599 22.8354 3.128312
## 1981 -0.040948335 85.3883 4.447209 -0.01671430 25.4812 3.237941
## 1982 0.055599198 86.2497 4.457247 0.01003749 29.0103 3.367651
## 1983 0.002737050 85.1898 4.444882 -0.01236487 32.1308 3.469815
## 1984 0.103270832 81.1148 4.395865 -0.04901627 33.2289 3.503420
## 1985 0.064471753 86.5496 4.460718 0.06485222 37.9148 3.635342
## 1986 0.064893003 95.6037 4.560212 0.09949386 44.5602 3.796841
## 1987 0.052794225 107.2642 4.675295 0.11508343 52.7438 3.965446
## 1988 0.062369808 121.8031 4.802406 0.12711086 63.5165 4.151300
## 1989 0.053866358 136.4345 4.915845 0.11343884 75.2586 4.320930
## 1990 -0.010496188 145.2372 4.978368 0.06252362 84.6482 4.438504
## 1991 -0.007341757 147.6467 4.994822 0.01645399 90.1755 4.501758
## 1992 -0.051742304 141.5459 4.952624 -0.04219821 89.4054 4.493181
## 1993 0.007825923 128.9358 4.859315 -0.09330944 85.0349 4.443062
## 1994 0.070627923 131.3261 4.877684 0.01836894 89.7962 4.497543
## 1995 0.067513850 141.4930 4.952250 0.07456670 100.8540 4.613674
## 1996 0.038188271 144.9430 4.976341 0.02409032 106.0930 4.664316
## 1997 0.014914777 152.9730 5.030261 0.05392087 114.9210 4.744245
## 1998 0.031474717 169.4820 5.132747 0.10248529 129.4170 4.863040
## 1999 0.040920008 186.2700 5.227197 0.09445051 147.3320 4.992689
## 2000 0.057126833 200.2870 5.299751 0.07255410 168.0580 5.124309
## 2001 0.075917069 208.6610 5.340711 0.04095959 181.3980 5.200694
## 2002 0.038152001 217.1290 5.380492 0.03978072 196.0510 5.278375
## 2003 0.045324534 231.3140 5.443776 0.06328445 217.4030 5.381753
## 2004 0.021427758 241.8910 5.488487 0.04471112 238.9890 5.476418
## 2005 0.034038006 258.7450 5.555843 0.06735581 269.0410 5.594864
## 2006 0.039334085 277.4220 5.625540 0.06969679 301.4210 5.708508
## 2007 0.051103573 288.3350 5.664123 0.03858319 321.1800 5.772002
## 2008 0.006556260 275.9570 5.620245 -0.04387794 308.8570 5.732878
## 2009 -0.014084916 228.2560 5.430468 -0.18977725 247.1550 5.510016
## 2010 -0.035632463 215.9800 5.375186 -0.05528200 233.7320 5.454175
## 2011 0.026046656 199.6490 5.296561 -0.07862499 212.9840 5.361217
## 2012 -0.010920955 184.8440 5.219512 -0.07704860 191.0380 5.252472
## 2013 -0.016714330 177.8520 5.180952 -0.03856048 177.2400 5.177505
## 2014 0.001834778 185.1090 5.220945 0.03999310 183.5150 5.212296
## 2015 0.035161810 194.1220 5.268487 0.04754199 194.1220 5.268487
## 2016 0.052186526 198.6950 5.291771 0.02328416 200.0480 5.298557
## 2017 0.038373235 210.4330 5.349167 0.05739633 216.8380 5.379151
## 2018 0.017233467 221.5630 5.400707 0.05153966 233.5840 5.453542
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1979 0.107956228 17.0485 2.836062 0.12138735 0.8846988 -0.1225080
## 1980 0.169741724 20.1474 3.003075 0.16701302 0.8822880 -0.1252367
## 1981 0.109628962 22.0404 3.092877 0.08980189 0.8649671 -0.1450638
## 1982 0.129710014 24.1425 3.183974 0.09109664 0.8322044 -0.1836772
## 1983 0.102164132 26.9470 3.293872 0.10989820 0.8386657 -0.1759431
## 1984 0.033604908 27.2308 3.304349 0.01047671 0.8194915 -0.1990713
## 1985 0.131921558 29.9938 3.400991 0.09664201 0.7910842 -0.2343508
## 1986 0.161499547 35.4829 3.569051 0.16806020 0.7962913 -0.2277902
## 1987 0.168605146 42.8814 3.758438 0.18938728 0.8130131 -0.2070081
## 1988 0.185853485 51.3753 3.939158 0.18071935 0.8088497 -0.2121422
## 1989 0.169630468 59.5242 4.086383 0.14722544 0.7909289 -0.2345472
## 1990 0.117573662 65.6858 4.184883 0.09849982 0.7759858 -0.2536211
## 1991 0.063253927 69.6647 4.243694 0.05881097 0.7725458 -0.2580640
## 1992 -0.008576689 70.4571 4.255004 0.01131028 0.7880631 -0.2381771
## 1993 -0.050119323 65.7919 4.186497 -0.06850728 0.7737047 -0.2565650
## 1994 0.054480898 69.9420 4.247666 0.06116960 0.7788971 -0.2498763
## 1995 0.116131268 80.5540 4.388928 0.14126144 0.7987189 -0.2247462
## 1996 0.050642141 87.8240 4.475335 0.08640704 0.8278020 -0.1889813
## 1997 0.079928868 95.5460 4.559608 0.08427300 0.8314059 -0.1846371
## 1998 0.118794813 107.9130 4.681325 0.12171754 0.8338394 -0.1817144
## 1999 0.129648795 124.1740 4.821684 0.14035846 0.8428176 -0.1710047
## 2000 0.131620614 144.0440 4.970119 0.14843500 0.8571089 -0.1541903
## 2001 0.076384354 154.7830 5.042024 0.07190533 0.8532784 -0.1586694
## 2002 0.077681317 165.4840 5.108875 0.06685038 0.8440865 -0.1695003
## 2003 0.103377945 184.0630 5.215278 0.10640358 0.8466443 -0.1664747
## 2004 0.094664752 204.5150 5.320641 0.10536323 0.8557507 -0.1557762
## 2005 0.118446259 229.8350 5.437362 0.11672034 0.8542750 -0.1575021
## 2006 0.113644174 257.5190 5.551094 0.11373184 0.8543499 -0.1574145
## 2007 0.063493755 270.7220 5.601092 0.04999896 0.8428981 -0.1709092
## 2008 -0.039123327 257.1350 5.549601 -0.05149123 0.8325374 -0.1832771
## 2009 -0.222862716 191.8000 5.256453 -0.29314808 0.7760312 -0.2535625
## 2010 -0.055840510 182.8220 5.208513 -0.04794016 0.7821864 -0.2456622
## 2011 -0.092958114 173.0490 5.153575 -0.05493821 0.8124977 -0.2076423
## 2012 -0.108744684 163.8900 5.099195 -0.05437932 0.8578921 -0.1532769
## 2013 -0.074967615 153.9640 5.036719 -0.06247666 0.8686752 -0.1407859
## 2014 0.034791662 161.0870 5.081945 0.04522578 0.8777866 -0.1303518
## 2015 0.056190419 166.8780 5.117263 0.03531841 0.8596553 -0.1512238
## 2016 0.030070510 178.1470 5.182609 0.06534605 0.8905213 -0.1159483
## 2017 0.080593193 193.6550 5.266078 0.08346917 0.8930861 -0.1130723
## 2018 0.074391224 207.8690 5.336908 0.07082985 0.8899111 -0.1166337
## Ips_dl I I_l I_dl r r_l
## 1979 0.01343111906 76.28218 4.334439 -0.031566646 -3.0960697 1.616627
## 1980 -0.00272869910 76.60686 4.338687 0.004247291 2.2358636 2.338725
## 1981 -0.01982707677 73.85807 4.302145 -0.036541379 3.0797420 2.416974
## 1982 -0.03861337407 71.77738 4.273569 -0.028575885 2.1186443 2.327355
## 1983 0.00773406872 71.44576 4.268939 -0.004630801 4.4928404 2.535678
## 1984 -0.02312819582 66.47289 4.196794 -0.072144469 5.0997848 2.582633
## 1985 -0.03527954996 68.46802 4.226367 0.029572675 4.3962394 2.527997
## 1986 0.00656064990 76.12840 4.332421 0.106054512 0.4353914 2.147980
## 1987 0.02078212923 87.20720 4.468287 0.135865557 6.4806204 2.681895
## 1988 -0.00513413803 98.52040 4.590264 0.121976719 5.4886371 2.611597
## 1989 -0.02240502781 107.90999 4.681297 0.091033812 6.3642899 2.673903
## 1990 -0.01907384587 112.70200 4.724747 0.043449776 6.8544590 2.707157
## 1991 -0.00444296218 114.06383 4.736758 0.012011028 4.1531179 2.508400
## 1992 0.01988696924 111.54711 4.714447 -0.022311242 4.6951231 2.551573
## 1993 -0.01838796093 99.75823 4.602750 -0.111697401 5.4275515 2.607102
## 1994 0.00668869902 102.28952 4.627807 0.025057636 5.8811591 2.640007
## 1995 0.02513017150 113.01314 4.727504 0.099696874 6.0390290 2.651210
## 1996 0.03576490335 119.98411 4.787359 0.059855219 5.1032909 2.582898
## 1997 0.00434412727 127.18266 4.845624 0.058265001 3.9510169 2.491813
## 1998 0.00292272678 141.32078 4.951032 0.105408018 2.2066975 2.335908
## 1999 0.01070966630 156.99163 5.056192 0.105160174 2.1345855 2.328909
## 2000 0.01681438633 171.66776 5.145561 0.089368490 2.1293927 2.328403
## 2001 -0.00447902680 178.04593 5.182042 0.036480561 0.9717897 2.208707
## 2002 -0.01083093980 183.27565 5.210991 0.028949782 0.8410469 2.194241
## 2003 0.00302563233 195.84067 5.277301 0.066310080 0.1793981 2.117645
## 2004 0.01069848039 206.99839 5.332711 0.055409597 0.2096964 2.121284
## 2005 -0.00172592083 221.03938 5.398341 0.065629888 -0.6830324 2.008095
## 2006 0.00008766935 237.01546 5.468125 0.069784461 -0.1919466 2.071938
## 2007 -0.01349479471 243.03701 5.493214 0.025088391 0.8640336 2.196800
## 2008 -0.01236789827 229.74452 5.436968 -0.056245840 2.0691091 2.322511
## 2009 -0.07028535993 177.13379 5.176905 -0.260062610 3.8305823 2.481796
## 2010 0.00790034976 168.93663 5.129524 -0.047381646 4.0903372 2.503277
## 2011 0.03801990384 162.21434 5.088919 -0.040605082 5.4608293 2.609553
## 2012 0.05436536407 158.57622 5.066235 -0.022683235 5.9713984 2.646426
## 2013 0.01249095258 154.49563 5.040166 -0.026069530 4.1450449 2.507743
## 2014 0.01043412116 162.48619 5.090593 0.050427218 2.9499578 2.405331
## 2015 -0.02087200455 166.87800 5.117263 0.026669982 1.1780172 2.231106
## 2016 0.03527553528 176.94212 5.175823 0.058559694 1.0636666 2.218748
## 2017 0.00287598003 187.93478 5.236095 0.060272307 0.1764423 2.117289
## 2018 -0.00356137631 197.17138 5.284073 0.047978284 0.3233590 2.134817
## r_dl P P_l P_dl Pm Pm_l
## 1979 1.6166268301 17.76937 2.877476 0.1564073488 28.49851 3.349852
## 1980 0.7220980232 20.15473 3.003439 0.1259627716 39.08486 3.665735
## 1981 0.0782495944 22.64383 3.119887 0.1164480360 50.30663 3.918137
## 1982 -0.0896198573 25.71966 3.247256 0.1273686606 56.44431 4.033255
## 1983 0.2083231332 28.77600 3.359542 0.1122858533 68.85514 4.232005
## 1984 0.0469550186 31.90282 3.462694 0.1031527022 77.02188 4.344090
## 1985 -0.0546360160 34.64514 3.545158 0.0824631513 78.64299 4.364919
## 1986 -0.3800166430 38.41358 3.648411 0.1032535489 65.87704 4.187790
## 1987 0.5339153237 40.69695 3.706153 0.0577419855 64.00551 4.158969
## 1988 -0.0702987732 43.11255 3.763814 0.0576609915 64.07556 4.160063
## 1989 0.0623060336 46.08593 3.830508 0.0666935008 65.30602 4.179084
## 1990 0.0332539879 49.46105 3.901186 0.0706779296 63.49324 4.150933
## 1991 -0.1987563472 52.89301 3.968271 0.0670856737 62.56610 4.136224
## 1992 0.0431728236 56.44205 4.033214 0.0649432036 63.31447 4.148114
## 1993 0.0555286800 59.00240 4.077578 0.0443636356 67.20074 4.207684
## 1994 0.0329052738 61.29205 4.115650 0.0380721274 71.10144 4.264108
## 1995 0.0112027311 64.31563 4.163803 0.0481524574 74.25201 4.307465
## 1996 -0.0683121368 66.54103 4.197819 0.0340161216 74.34190 4.308675
## 1997 -0.0910848742 68.10867 4.221105 0.0232857796 76.77832 4.340922
## 1998 -0.1559050028 69.85679 4.246447 0.0253427825 75.09115 4.318703
## 1999 -0.0069993009 71.63197 4.271542 0.0250941998 75.36655 4.322363
## 2000 -0.0005059171 74.01711 4.304296 0.0327547071 83.35483 4.423107
## 2001 -0.1196960120 77.05794 4.344558 0.0402613871 83.19274 4.421160
## 2002 -0.0144652521 80.20545 4.384591 0.0400338424 81.27241 4.397807
## 2003 -0.0765961815 83.36037 4.423173 0.0385815195 79.99721 4.381992
## 2004 0.0036387003 86.59655 4.461260 0.0380870216 81.72951 4.403415
## 2005 -0.1131890894 90.14791 4.501452 0.0401918176 84.34980 4.434972
## 2006 0.0638433611 93.73543 4.540476 0.0390243983 87.64100 4.473249
## 2007 0.1248616426 96.93785 4.574070 0.0335938275 89.07308 4.489457
## 2008 0.1257107923 99.12307 4.596362 0.0222921532 92.94824 4.532043
## 2009 0.1592851113 99.26571 4.597800 0.0014380181 86.43828 4.459431
## 2010 0.0214813036 99.41797 4.599333 0.0015327120 92.03350 4.522153
## 2011 0.1062760144 99.39834 4.599135 -0.0001975271 99.57322 4.600893
## 2012 0.0368730103 99.28447 4.597989 -0.0011462342 102.95855 4.634327
## 2013 -0.1386830224 99.68006 4.601966 0.0039764789 100.86584 4.613791
## 2014 -0.1024116249 99.45740 4.599729 -0.0022361829 99.97864 4.604957
## 2015 -0.1742249541 100.00000 4.605170 0.0054407320 100.00000 4.605170
## 2016 -0.0123583953 100.32290 4.608394 0.0032237860 98.41219 4.589165
## 2017 -0.1014585390 101.70848 4.622111 0.0137167022 101.75465 4.622565
## 2018 0.0175279984 102.82026 4.632982 0.0108717518 104.53316 4.649504
## Pm_dl Px Px_l Px_dl X X_l
## 1979 0.0693522501 23.04301 3.137362 0.0896119630 51.4811 3.941215
## 1980 0.3158833518 27.21591 3.303802 0.1664393689 52.6652 3.963955
## 1981 0.2524016536 31.26597 3.442530 0.1387288005 58.6148 4.070987
## 1982 0.1151177415 35.50486 3.569670 0.1271392326 61.8783 4.125170
## 1983 0.1987502938 41.44205 3.724296 0.1546263924 67.8262 4.216949
## 1984 0.1120847578 46.61403 3.841902 0.1176056097 75.9901 4.330603
## 1985 0.0208289605 50.39635 3.919919 0.0780170432 76.4974 4.337257
## 1986 -0.1771285280 50.20543 3.916123 -0.0037954224 76.6739 4.339561
## 1987 -0.0288209180 51.94611 3.950207 0.0340835475 80.7140 4.390912
## 1988 0.0010938979 54.37977 3.995992 0.0457854007 83.7948 4.428371
## 1989 0.0190212805 57.64554 4.054313 0.0583206816 84.9928 4.442567
## 1990 -0.0281507876 58.08677 4.061938 0.0076249966 88.9818 4.488432
## 1991 -0.0147099264 58.97643 4.077138 0.0151999644 96.3225 4.567702
## 1992 0.0118903737 60.68603 4.105713 0.0285756030 103.5515 4.640069
## 1993 0.0595703015 63.69440 4.154097 0.0483831774 111.6669 4.715520
## 1994 0.0564233887 66.59364 4.198609 0.0445124771 130.2818 4.869700
## 1995 0.0433572711 70.53413 4.256097 0.0574875676 142.5310 4.959560
## 1996 0.0012098532 71.88473 4.275064 0.0189671551 156.7440 5.054614
## 1997 0.0322475521 74.34189 4.308675 0.0336106696 179.3000 5.189060
## 1998 -0.0222195983 74.84258 4.315387 0.0067124413 193.9070 5.267379
## 1999 0.0036607660 74.91136 4.316306 0.0009185923 209.5570 5.344996
## 2000 0.1007431045 79.95817 4.381504 0.0651981083 231.4310 5.444282
## 2001 -0.0019464859 81.19092 4.396803 0.0152997245 240.5540 5.482945
## 2002 -0.0233534880 81.58016 4.401586 0.0047826501 243.9760 5.497070
## 2003 -0.0158149043 81.37184 4.399029 -0.0025567359 252.6820 5.532132
## 2004 0.0214234259 82.86601 4.417225 0.0181956692 263.5580 5.574273
## 2005 0.0315573588 86.26132 4.457381 0.0401562730 268.5410 5.593004
## 2006 0.0382764839 90.09284 4.500841 0.0434594326 281.2410 5.639212
## 2007 0.0162082284 92.35609 4.525652 0.0248109955 302.6070 5.712435
## 2008 0.0425855798 94.81231 4.551899 0.0262476318 299.8640 5.703329
## 2009 -0.0726121571 92.23496 4.524339 -0.0275600737 267.3650 5.588615
## 2010 0.0627219671 95.46943 4.558806 0.0344668824 291.5970 5.675373
## 2011 0.0787406425 99.60403 4.601203 0.0423965502 315.4310 5.753940
## 2012 0.0334332801 101.87009 4.623698 0.0224956760 318.3810 5.763249
## 2013 -0.0205351633 101.20727 4.617171 -0.0065277821 332.3210 5.806101
## 2014 -0.0088347915 99.49045 4.600062 -0.0171089322 347.3630 5.850370
## 2015 0.0002136248 100.00000 4.605170 0.0051085605 362.3560 5.892627
## 2016 -0.0160055380 98.83479 4.593450 -0.0117205359 381.8190 5.944947
## 2017 0.0333998608 101.35846 4.618663 0.0252136510 403.2520 5.999562
## 2018 0.0269398271 102.44458 4.629322 0.0106586293 412.0960 6.021256
## X_dl M M_l M_dl rulc rulc_l
## 1979 0.054486989 42.9022 3.758923 0.107955822 0.7096461 -0.3429888
## 1980 0.022740146 44.3180 3.791391 0.032467808 0.7005438 -0.3558984
## 1981 0.107032329 42.7206 3.754681 -0.036709676 0.7087051 -0.3443158
## 1982 0.054182328 44.8239 3.802741 0.048060240 0.6932600 -0.3663502
## 1983 0.091778998 44.2872 3.790696 -0.012045783 0.6932639 -0.3663445
## 1984 0.113654518 43.6964 3.777266 -0.013429977 0.6638313 -0.4097272
## 1985 0.006653685 46.9942 3.850024 0.072758471 0.6465087 -0.4361687
## 1986 0.002304610 55.0706 4.008616 0.158591809 0.6273581 -0.4662378
## 1987 0.051350679 68.7232 4.230087 0.221470844 0.6253282 -0.4694786
## 1988 0.037458911 79.7759 4.379221 0.149134611 0.6181334 -0.4810511
## 1989 0.014195594 93.9086 4.542322 0.163100515 0.6128806 -0.4895851
## 1990 0.045865307 102.9463 4.634207 0.091885524 0.6261823 -0.4681137
## 1991 0.079270082 113.5917 4.732610 0.098402947 0.6328455 -0.4575290
## 1992 0.072367137 121.3406 4.798601 0.065991027 0.6448239 -0.4387781
## 1993 0.075451259 114.9979 4.744914 -0.053687600 0.6409157 -0.4448574
## 1994 0.154179464 128.1626 4.853300 0.108385903 0.6217315 -0.4752469
## 1995 0.089859723 142.3490 4.958282 0.104982019 0.6070479 -0.4991475
## 1996 0.095054381 152.7510 5.028809 0.070527356 0.6007935 -0.5095040
## 1997 0.134446479 172.4380 5.150038 0.121228607 0.6043295 -0.5036357
## 1998 0.078318282 196.6530 5.281441 0.131403003 0.6025854 -0.5065259
## 1999 0.077617116 223.5740 5.409742 0.128301701 0.5979457 -0.5142554
## 2000 0.099285994 244.9720 5.501144 0.091401463 0.5941440 -0.5206335
## 2001 0.038662824 253.9260 5.537043 0.035898968 0.5809850 -0.5430304
## 2002 0.014125263 263.2640 5.573157 0.036114445 0.5738831 -0.5553296
## 2003 0.035061921 279.1460 5.631735 0.058577611 0.5627444 -0.5749297
## 2004 0.042141676 306.1330 5.724020 0.092284706 0.5578627 -0.5836425
## 2005 0.018730145 327.4400 5.791305 0.067285184 0.5504062 -0.5970988
## 2006 0.046208351 354.3330 5.870237 0.078932317 0.5456946 -0.6056958
## 2007 0.073222981 383.5300 5.949418 0.079180696 0.5436806 -0.6093934
## 2008 -0.009105895 362.4060 5.892765 -0.056652714 0.5621043 -0.5760678
## 2009 -0.114714272 296.0760 5.690616 -0.202148952 0.5671847 -0.5670703
## 2010 0.086757946 314.4290 5.750758 0.060142117 0.5615992 -0.5769668
## 2011 0.078567246 312.5720 5.744835 -0.005923453 0.5522657 -0.5937261
## 2012 0.009308821 294.3330 5.684712 -0.060123063 0.5398831 -0.6164026
## 2013 0.042852590 293.7020 5.682566 -0.002146132 0.5320498 -0.6310181
## 2014 0.044268973 313.6680 5.748335 0.065769454 0.5321057 -0.6309132
## 2015 0.042256811 329.5930 5.797859 0.049523458 0.5289795 -0.6368055
## 2016 0.052319520 338.3270 5.824013 0.026154323 0.5222953 -0.6495221
## 2017 0.054615002 360.8130 5.888360 0.064346935 0.5166393 -0.6604103
## 2018 0.021694655 372.6540 5.920650 0.032290557 0.5165251 -0.6606314
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1979 0.001434533503 12.60997 2.534488 0.1578418823 83.57964 4.425800
## 1980 -0.012909524843 14.11927 2.647541 0.1130532467 85.18639 4.444842
## 1981 0.011582592586 16.04779 2.775571 0.1280306285 85.43515 4.447758
## 1982 -0.022034437493 17.83041 2.880906 0.1053342231 86.08373 4.455320
## 1983 0.000005709827 19.94936 2.993197 0.1122915631 87.01584 4.466090
## 1984 -0.043382719678 21.17809 3.052967 0.0597699825 89.21445 4.491043
## 1985 -0.026441428083 22.39839 3.108989 0.0560217233 91.18639 4.512906
## 1986 -0.030069189431 24.09907 3.182173 0.0731843595 91.97164 4.521480
## 1987 -0.003240753770 25.44895 3.236675 0.0545012318 93.23691 4.535144
## 1988 -0.011572463370 26.64930 3.282763 0.0460885281 94.55429 4.549174
## 1989 -0.008534063454 28.24517 3.340922 0.0581594374 95.35101 4.557565
## 1990 0.021471443019 30.97164 3.433072 0.0921493726 95.03415 4.554236
## 1991 0.010584666518 33.47310 3.510742 0.0776703402 95.12445 4.555186
## 1992 0.018750962535 36.39518 3.594436 0.0836941661 95.44854 4.558587
## 1993 -0.006079318568 37.81556 3.632721 0.0382843170 95.10593 4.554991
## 1994 -0.030389503425 38.10720 3.640403 0.0076826240 96.61430 4.570727
## 1995 -0.023900653776 39.04267 3.664655 0.0242518036 97.00575 4.574770
## 1996 -0.010356423455 39.97742 3.688315 0.0236596982 97.68049 4.581702
## 1997 0.005868272276 41.16008 3.717469 0.0291540519 97.96676 4.584628
## 1998 -0.002890234408 42.09468 3.739921 0.0224525481 98.32590 4.588287
## 1999 -0.007729474974 42.83203 3.757286 0.0173647248 98.38041 4.588842
## 2000 -0.006378143076 43.97682 3.783663 0.0263765640 98.91608 4.594272
## 2001 -0.022396888777 44.76950 3.801527 0.0178644983 99.12869 4.596419
## 2002 -0.012299171342 46.02855 3.829262 0.0277346711 98.77545 4.592849
## 2003 -0.019600092028 46.91058 3.848243 0.0189814275 98.37806 4.588818
## 2004 -0.008712769547 48.30898 3.877618 0.0293742521 98.13213 4.586315
## 2005 -0.013456366618 49.61797 3.904353 0.0267354509 97.83593 4.583292
## 2006 -0.008596942366 51.15092 3.934780 0.0304274560 97.82635 4.583194
## 2007 -0.003697620457 52.70323 3.964677 0.0298962071 97.63635 4.581250
## 2008 0.033325538541 55.71750 4.020294 0.0556176917 96.93487 4.574039
## 2009 0.008997519848 56.30199 4.030730 0.0104355379 96.11160 4.565510
## 2010 -0.009896504167 55.83306 4.022366 -0.0083637922 97.21599 4.576935
## 2011 -0.016759240481 54.89429 4.005409 -0.0169567675 97.58888 4.580764
## 2012 -0.022676547177 53.60201 3.981587 -0.0238227814 97.39065 4.578730
## 2013 -0.014615478919 53.03476 3.970948 -0.0106390000 97.82550 4.583185
## 2014 0.000104909030 52.92185 3.968816 -0.0021312739 98.39839 4.589024
## 2015 -0.005892348103 52.89795 3.968365 -0.0004516161 100.00000 4.605170
## 2016 -0.012716611439 52.39818 3.958872 -0.0094928254 101.04787 4.615594
## 2017 -0.010888171493 52.54660 3.961700 0.0028285307 101.83968 4.623400
## 2018 -0.000221111100 53.10924 3.972351 0.0106506407 102.19608 4.626893
## Tau_dl dPxdPm dPdPm Trade
## 1979 -0.00227470832 0.020259713 0.0870550987 0.1921230
## 1980 0.01904167546 -0.149443983 -0.1899205802 0.1948808
## 1981 0.00291594235 -0.113672853 -0.1359536176 0.2038987
## 1982 0.00756288862 0.012021491 0.0122509191 0.2120545
## 1983 0.01076971356 -0.044123901 -0.0864644406 0.2189304
## 1984 0.02495280492 0.005520852 -0.0089320557 0.2296236
## 1985 0.02186271251 0.057188083 0.0616341908 0.2315491
## 1986 0.00857454200 0.173333106 0.2803820769 0.2392384
## 1987 0.01366348346 0.062904465 0.0865629035 0.2571055
## 1988 0.01403047710 0.044691503 0.0565670935 0.2677813
## 1989 0.00839073331 0.039299401 0.0476722203 0.2793907
## 1990 -0.00332864068 0.035775784 0.0988287171 0.2888087
## 1991 0.00094973467 0.029909891 0.0817956000 0.3080391
## 1992 0.00340124603 0.016685229 0.0530528299 0.3269764
## 1993 -0.00359590053 -0.011187124 -0.0152066659 0.3329883
## 1994 0.01573543866 -0.011910912 -0.0183512613 0.3708380
## 1995 0.00404340907 0.014130296 0.0047951863 0.3978010
## 1996 0.00693161286 0.017757302 0.0328062685 0.4209728
## 1997 0.00292640870 0.001363118 -0.0089617725 0.4613496
## 1998 0.00365921278 0.028932040 0.0475623808 0.4907124
## 1999 0.00055426185 -0.002742174 0.0214334338 0.5208130
## 2000 0.00543012304 -0.035544996 -0.0679883974 0.5442914
## 2001 0.00214705071 0.017246210 0.0422078730 0.5435662
## 2002 -0.00356982714 0.028136138 0.0633873304 0.5427697
## 2003 -0.00403123783 0.013258168 0.0543964238 0.5526020
## 2004 -0.00250295849 -0.003227757 0.0166635957 0.5740185
## 2005 -0.00302296324 0.008598914 0.0086344588 0.5793502
## 2006 -0.00009790747 0.005182949 0.0007479144 0.5934891
## 2007 -0.00194417003 0.008602767 0.0173855992 0.6184122
## 2008 -0.00721054807 -0.016337948 -0.0202934266 0.5916522
## 2009 -0.00852923130 0.045052083 0.0740501751 0.5230447
## 2010 0.01142513509 -0.028255085 -0.0611892551 0.5616610
## 2011 0.00382842433 -0.036344092 -0.0789381695 0.5868079
## 2012 -0.00203335253 -0.010937604 -0.0345795143 0.5899820
## 2013 0.00445503521 0.014007381 0.0245116422 0.6115757
## 2014 0.00583912323 -0.008274141 0.0065986086 0.6369609
## 2015 0.01614578044 0.004894936 0.0052271072 0.6421264
## 2016 0.01042413839 0.004285002 0.0192293240 0.6486312
## 2017 0.00780551910 -0.008186210 -0.0196831586 0.6688472
## 2018 0.00349343531 -0.016281198 -0.0160680753 0.6711751
adf.ESP.WS <- adf.test((ESP$WS), alternative = c("stationary"), k = 2)
adf.ESP.PS <- adf.test((ESP$PS), alternative = c("stationary"), k = 2)
adf.ESP.Y <- adf.test((ESP$Y), alternative = c("stationary"), k = 2)
adf.ESP.Yrw <- adf.test((ESP$Yrw), alternative = c("stationary"), k = 2)
adf.ESP.r <- adf.test((ESP$r), alternative = c("stationary"), k = 2)
adf.ESP.R <- adf.test((ESP$R), alternative = c("stationary"), k = 2)
adf.ESP.Tau <- adf.test((ESP$Tau), alternative = c("stationary"), k = 2)
adf.ESP.rulc <- adf.test((ESP$rulc), alternative = c("stationary"), k = 2)
adf.ESP.ulc <- adf.test((ESP$ulc), alternative = c("stationary"), k = 2)
adf.ESP.P <- adf.test((ESP$P), alternative = c("stationary"), k = 2)
adf.ESP.Pm <- adf.test((ESP$Pm), alternative = c("stationary"), k = 2)
adf.ESP.Px <- adf.test((ESP$Px), alternative = c("stationary"), k = 2)
adf.ESP.X <- adf.test((ESP$X), alternative = c("stationary"), k = 2)
adf.ESP.M <- adf.test((ESP$M), alternative = c("stationary"), k = 2)
adf.ESP.I <- adf.test((ESP$I), alternative = c("stationary"), k = 2)
adf.ESP.C <- adf.test((ESP$C), alternative = c("stationary"), k = 2)
adf.ESP.Ipr <- adf.test((ESP$Ipr), alternative = c("stationary"), k = 2)
adf.ESP.Ips <- adf.test((ESP$Ips), alternative = c("stationary"), k = 2)
adf.ESP.It <- adf.test((ESP$It), alternative = c("stationary"), k = 2)
adf.ESP.Itcurr <- adf.test((ESP$Itcurr), alternative = c("stationary"), k = 2)
adf.ESP.Yf <- adf.test((ESP$Yf), alternative = c("stationary"), k = 2)
adf.ESP.W <- adf.test((ESP$W), alternative = c("stationary"), k = 2)
adf.ESP.WS.pval <- adf.ESP.WS$p.value
adf.ESP.PS.pval <- adf.ESP.PS$p.value
adf.ESP.Y.pval <- adf.ESP.Y$p.value
adf.ESP.Yrw.pval <- adf.ESP.Yrw$p.value
adf.ESP.r.pval <- adf.ESP.r$p.value
adf.ESP.R.pval <- adf.ESP.R$p.value
adf.ESP.Tau.pval <- adf.ESP.Tau$p.value
adf.ESP.rulc.pval <- adf.ESP.rulc$p.value
adf.ESP.ulc.pval <- adf.ESP.ulc$p.value
adf.ESP.P.pval <- adf.ESP.P$p.value
adf.ESP.Pm.pval <- adf.ESP.Pm$p.value
adf.ESP.Px.pval <- adf.ESP.Px$p.value
adf.ESP.X.pval <- adf.ESP.X$p.value
adf.ESP.M.pval <- adf.ESP.M$p.value
adf.ESP.I.pval <- adf.ESP.I$p.value
adf.ESP.C.pval <- adf.ESP.C$p.value
adf.ESP.Ipr.pval <- adf.ESP.Ipr$p.value
adf.ESP.Ips.pval <- adf.ESP.Ips$p.value
adf.ESP.It.pval <- adf.ESP.It$p.value
adf.ESP.Itcurr.pval <- adf.ESP.Itcurr$p.value
adf.ESP.Yf.pval <- adf.ESP.Yf$p.value
adf.ESP.W.pval <- adf.ESP.W$p.value
adf.ESP_non <- rbind(adf.ESP.WS.pval,adf.ESP.PS.pval,adf.ESP.Y.pval,adf.ESP.Yrw.pval,adf.ESP.r.pval,adf.ESP.R.pval,adf.ESP.Tau.pval,adf.ESP.rulc.pval,adf.ESP.ulc.pval,adf.ESP.P.pval,adf.ESP.Pm.pval,adf.ESP.Px.pval,adf.ESP.X.pval,adf.ESP.M.pval,adf.ESP.I.pval,adf.ESP.C.pval,adf.ESP.Ipr.pval,adf.ESP.Ips.pval,adf.ESP.It.pval,adf.ESP.Itcurr.pval,adf.ESP.Yf.pval,adf.ESP.W.pval)
colnames(adf.ESP_non) <- c("ESP")
rownames(adf.ESP_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.ESP_non
## ESP
## WS 0.01000000
## PS 0.01000000
## Y 0.42427329
## Yrw 0.29251439
## r 0.53039595
## R 0.35450848
## Tau 0.25037330
## rulc 0.01000000
## ulc 0.96465845
## P 0.82246775
## Pm 0.02411503
## Px 0.41888352
## X 0.61445078
## M 0.66484723
## I 0.45001072
## C 0.38961419
## Ipr 0.42210839
## Ips 0.25798347
## It 0.45443342
## Itcurr 0.38143671
## Yf 0.49915364
## W 0.27396630
adf.ESP.WS_dl <- adf.test((ESP$WS_dl), alternative = c("stationary"), k = 2)
adf.ESP.PS_dl <- adf.test((ESP$PS_dl), alternative = c("stationary"), k = 2)
adf.ESP.Y_dl <- adf.test((ESP$Y_dl), alternative = c("stationary"), k = 2)
adf.ESP.Yrw_dl <- adf.test((ESP$Yrw_dl), alternative = c("stationary"), k = 2)
adf.ESP.r_dl <- adf.test((ESP$r_dl), alternative = c("stationary"), k = 2)
adf.ESP.R_dl <- adf.test((ESP$R_dl), alternative = c("stationary"), k = 2)
adf.ESP.Tau_dl <- adf.test((ESP$Tau_dl), alternative = c("stationary"), k = 2)
adf.ESP.rulc_dl <- adf.test((ESP$rulc_dl), alternative = c("stationary"), k = 2)
adf.ESP.ulc_dl <- adf.test((ESP$ulc_dl), alternative = c("stationary"), k = 2)
adf.ESP.P_dl <- adf.test((ESP$P_dl), alternative = c("stationary"), k = 2)
adf.ESP.Pm_dl <- adf.test((ESP$Pm_dl), alternative = c("stationary"), k = 2)
adf.ESP.Px_dl <- adf.test((ESP$Px_dl), alternative = c("stationary"), k = 2)
adf.ESP.X_dl <- adf.test((ESP$X_dl), alternative = c("stationary"), k = 2)
adf.ESP.M_dl <- adf.test((ESP$M_dl), alternative = c("stationary"), k = 2)
adf.ESP.I_dl <- adf.test((ESP$I_dl), alternative = c("stationary"), k = 2)
adf.ESP.C_dl <- adf.test((ESP$C_dl), alternative = c("stationary"), k = 2)
adf.ESP.Ipr_dl <- adf.test((ESP$Ipr_dl), alternative = c("stationary"), k = 2)
adf.ESP.Ips_dl <- adf.test((ESP$Ips_dl), alternative = c("stationary"), k = 2)
adf.ESP.It_dl <- adf.test((ESP$It_dl), alternative = c("stationary"), k = 2)
adf.ESP.Itcurr_dl <- adf.test((ESP$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.ESP.Yf_dl <- adf.test((ESP$Yf_dl), alternative = c("stationary"), k = 2)
adf.ESP.W_dl <- adf.test((ESP$W_dl), alternative = c("stationary"), k = 2)
adf.ESP.WS_dl.pval <- adf.ESP.WS_dl$p.value
adf.ESP.PS_dl.pval <- adf.ESP.PS_dl$p.value
adf.ESP.Y_dl.pval <- adf.ESP.Y_dl$p.value
adf.ESP.Yrw_dl.pval <- adf.ESP.Yrw_dl$p.value
adf.ESP.r_dl.pval <- adf.ESP.r_dl$p.value
adf.ESP.R_dl.pval <- adf.ESP.R_dl$p.value
adf.ESP.Tau_dl.pval <- adf.ESP.Tau_dl$p.value
adf.ESP.rulc_dl.pval <- adf.ESP.rulc_dl$p.value
adf.ESP.ulc_dl.pval <- adf.ESP.ulc_dl$p.value
adf.ESP.P_dl.pval <- adf.ESP.P_dl$p.value
adf.ESP.Pm_dl.pval <- adf.ESP.Pm_dl$p.value
adf.ESP.Px_dl.pval <- adf.ESP.Px_dl$p.value
adf.ESP.X_dl.pval <- adf.ESP.X_dl$p.value
adf.ESP.M_dl.pval <- adf.ESP.M_dl$p.value
adf.ESP.I_dl.pval <- adf.ESP.I_dl$p.value
adf.ESP.C_dl.pval <- adf.ESP.C_dl$p.value
adf.ESP.Ipr_dl.pval <- adf.ESP.Ipr_dl$p.value
adf.ESP.Ips_dl.pval <- adf.ESP.Ips_dl$p.value
adf.ESP.It_dl.pval <- adf.ESP.It_dl$p.value
adf.ESP.Itcurr_dl.pval <- adf.ESP.Itcurr_dl$p.value
adf.ESP.Yf_dl.pval <- adf.ESP.Yf_dl$p.value
adf.ESP.W_dl.pval <- adf.ESP.W_dl$p.value
adf.ESP_dl <- rbind(adf.ESP.WS_dl.pval,adf.ESP.PS_dl.pval,adf.ESP.Y_dl.pval,adf.ESP.Yrw_dl.pval,adf.ESP.r_dl.pval,adf.ESP.R_dl.pval,adf.ESP.Tau_dl.pval,adf.ESP.rulc_dl.pval,adf.ESP.ulc_dl.pval,adf.ESP.P_dl.pval,adf.ESP.Pm_dl.pval,adf.ESP.Px_dl.pval,adf.ESP.X_dl.pval,adf.ESP.M_dl.pval,adf.ESP.I_dl.pval,adf.ESP.C_dl.pval,adf.ESP.Ipr_dl.pval,adf.ESP.Ips_dl.pval,adf.ESP.It_dl.pval,adf.ESP.Itcurr_dl.pval,adf.ESP.Yf_dl.pval,adf.ESP.W_dl.pval)
colnames(adf.ESP_dl) <- c("ESP")
rownames(adf.ESP_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.ESP_dl
## ESP
## dlog(WS) 0.01000000
## dlog(PS) 0.01000000
## dlog(Y) 0.26314884
## dlog(Yrw) 0.03929903
## dlog(r) 0.01000000
## dlog(R) 0.01000000
## dlog(Tau) 0.44288103
## dlog(rulc) 0.01000000
## dlog(ulc) 0.06711822
## dlog(P) 0.69677226
## dlog(Pm) 0.04642549
## dlog(Px) 0.17981606
## dlog(X) 0.53111674
## dlog(M) 0.30092707
## dlog(I) 0.19873184
## dlog(C) 0.22799563
## dlog(Ipr) 0.27334015
## dlog(Ips) 0.01161244
## dlog(It) 0.27148704
## dlog(Itcurr) 0.35872375
## dlog(Yf) 0.20049026
## dlog(W) 0.09432435
adf.ESP <- NULL
adf.ESP <- rbind(adf.ESP_non,adf.ESP_dl)
#Consumption (C)
ESP_consumption <- dynlm(ESP$C_dl~ESP$R_dl+ESP$W_dl)
ESP_CR <- summary(ESP_consumption)$coefficients["ESP$R_dl","Estimate"]
ESP_CW <- summary(ESP_consumption)$coefficients["ESP$W_dl","Estimate"]
ESP_Ceffekt <- (ESP_CR*mean(ESP$C/ESP$R))-(ESP_CW*mean(ESP$C/ESP$W))
summary(ESP_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$C_dl ~ ESP$R_dl + ESP$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.041450 -0.006497 0.001639 0.007662 0.018305
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0008884 0.0024328 0.365 0.717
## ESP$R_dl 0.2600981 0.0515459 5.046 0.000012237700334 ***
## ESP$W_dl 0.7545627 0.0713556 10.575 0.000000000000979 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01119 on 37 degrees of freedom
## Multiple R-squared: 0.7989, Adjusted R-squared: 0.788
## F-statistic: 73.48 on 2 and 37 DF, p-value: 0.0000000000001301
#Investments (I)
ESP_investment <- dynlm(ESP$I_dl~ESP$PS_dl+ESP$Y_dl)
ESP_iPS <- summary(ESP_investment)$coefficients["ESP$PS_dl","Estimate"]
ESP_iPS <- 0
ESP_Ieffekt <- ESP_iPS*mean(ESP$I/ESP$R)
summary(ESP_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$I_dl ~ ESP$PS_dl + ESP$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.106473 -0.020212 0.001693 0.018563 0.106216
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.040951 0.009084 -4.508 0.00006371744441 ***
## ESP$PS_dl 0.014864 0.225516 0.066 0.948
## ESP$Y_dl 2.940138 0.291862 10.074 0.00000000000375 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0391 on 37 degrees of freedom
## Multiple R-squared: 0.7328, Adjusted R-squared: 0.7184
## F-statistic: 50.74 on 2 and 37 DF, p-value: 0.00000000002487
#Price deflator (P)
ESP_deflator <- dynlm(ESP$P_dl~L(ESP$ulc_dl)+ESP$Pm_dl)
ESP_ePULC <- summary(ESP_deflator)$coefficients["L(ESP$ulc_dl)","Estimate"]
summary(ESP_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$P_dl ~ L(ESP$ulc_dl) + ESP$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.039569 -0.005817 -0.000328 0.005650 0.036014
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.011818 0.003185 3.71 0.000677 ***
## L(ESP$ulc_dl) 0.881983 0.061020 14.45 < 0.0000000000000002 ***
## ESP$Pm_dl 0.023237 0.031414 0.74 0.464138
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01461 on 37 degrees of freedom
## Multiple R-squared: 0.8792, Adjusted R-squared: 0.8727
## F-statistic: 134.7 on 2 and 37 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
ESP_exportdeflator <- dynlm(ESP$Px_dl~ESP$ulc_dl+ESP$Pm_dl)
ESP_ePX <- summary(ESP_exportdeflator)$coefficients["ESP$ulc_dl","Estimate"]
summary(ESP_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$Px_dl ~ ESP$ulc_dl + ESP$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.027828 -0.012717 -0.000861 0.008856 0.038850
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009812 0.003798 2.583 0.0139 *
## ESP$ulc_dl 0.400868 0.072756 5.510 0.000002896453344 ***
## ESP$Pm_dl 0.401341 0.037455 10.715 0.000000000000675 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01741 on 37 degrees of freedom
## Multiple R-squared: 0.8673, Adjusted R-squared: 0.8601
## F-statistic: 120.9 on 2 and 37 DF, p-value: < 0.00000000000000022
#Exports (X)
ESP_exports <- dynlm(ESP$X_dl~L(ESP$dPxdPm)+ESP$Yrw_dl)
ESP_eXP <- summary(ESP_exports)$coefficients["L(ESP$dPxdPm)","Estimate"]
ESP_Xeffekt <- -(ESP_eXP*ESP_ePX*(1/(1-ESP_ePULC))*mean(ESP$Yf/ESP$Y)*(mean(ESP$X/ESP$Y)/mean(ESP$rulc)))
summary(ESP_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$X_dl ~ L(ESP$dPxdPm) + ESP$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.069650 -0.026805 -0.000702 0.020051 0.079695
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.008693 0.010966 0.793 0.4330
## L(ESP$dPxdPm) -0.365545 0.117171 -3.120 0.0035 **
## ESP$Yrw_dl 1.959794 0.401395 4.882 0.0000203 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03476 on 37 degrees of freedom
## Multiple R-squared: 0.4496, Adjusted R-squared: 0.4198
## F-statistic: 15.11 on 2 and 37 DF, p-value: 0.00001595
#Imports (M)
ESP_imports <- dynlm(ESP$M_dl~ESP$dPdPm+L(ESP$Y_dl))
ESP_eMP <- summary(ESP_imports)$coefficients["ESP$dPdPm","Estimate"]
ESP_Meffekt <- (-1)*((ESP_eMP*ESP_ePULC*(1/(1-ESP_ePULC))*mean(ESP$Yf/ESP$Y)*(mean(ESP$M/ESP$Y)/mean(ESP$rulc))))
summary(ESP_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$M_dl ~ ESP$dPdPm + L(ESP$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.111445 -0.026224 0.006485 0.031635 0.093240
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.003449 0.009947 -0.347 0.7308
## ESP$dPdPm 0.195820 0.097831 2.002 0.0527 .
## L(ESP$Y_dl) 2.652739 0.338115 7.846 0.00000000218 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04391 on 37 degrees of freedom
## Multiple R-squared: 0.6782, Adjusted R-squared: 0.6609
## F-statistic: 39 on 2 and 37 DF, p-value: 0.000000000775
names(ESP_consumption$coefficients) <- sub("ESP$","",names(ESP_consumption$coefficients),fixed=TRUE)
names(ESP_investment$coefficients) <- sub("ESP$","",names(ESP_investment$coefficients),fixed=TRUE)
names(ESP_deflator$coefficients) <- sub("ESP$","",names(ESP_deflator$coefficients),fixed=TRUE)
names(ESP_exportdeflator$coefficients) <- sub("ESP$","",names(ESP_exportdeflator$coefficients),fixed=TRUE)
names(ESP_exports$coefficients) <- sub("ESP$","",names(ESP_exports$coefficients),fixed=TRUE)
names(ESP_imports$coefficients) <- sub("ESP$","",names(ESP_imports$coefficients),fixed=TRUE)
ESP_Xeffekt
## [1] 0.4273438
ESP_Meffekt
## [1] -0.500883
#Nettoeksport (NX)
ESP_NXeffekt <- ESP_Xeffekt - ESP_Meffekt
ESP_NXeffekt
## [1] 0.9282268
#Nettoeffekten
ESP_Neteffekt = ESP_Ceffekt + ESP_Ieffekt + ESP_NXeffekt
ESP_Neteffekt
## [1] 0.6371069
ESP_Lukket <- ESP_Ceffekt + ESP_Ieffekt
ESP_Lukket_Konklusion <- ifelse(ESP_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
ESP_Lukket_Konklusion
## [1] "Wage-led domestic"
ESP_Def <- ifelse(ESP_Neteffekt > 0, "Profit-led", "Wage-led")
ESP_Def
## [1] "Profit-led"
summary(ur.df(y=ESP_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.029242 -0.004178 0.002079 0.007071 0.022548
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -3.1194 2.2600 -1.380 0.189
## z.diff.lag1 2.1280 2.1501 0.990 0.339
## z.diff.lag2 1.7958 2.0182 0.890 0.389
## z.diff.lag3 1.7684 1.8660 0.948 0.359
## z.diff.lag4 1.3107 1.6960 0.773 0.452
## z.diff.lag5 1.2877 1.5554 0.828 0.422
## z.diff.lag6 0.8895 1.4051 0.633 0.537
## z.diff.lag7 0.9525 1.2395 0.769 0.455
## z.diff.lag8 0.5309 1.0521 0.505 0.622
## z.diff.lag9 0.5211 0.8980 0.580 0.571
## z.diff.lag10 0.2057 0.7981 0.258 0.800
## z.diff.lag11 0.2028 0.5902 0.344 0.736
## z.diff.lag12 -0.1345 0.4194 -0.321 0.753
##
## Residual standard error: 0.01397 on 14 degrees of freedom
## Multiple R-squared: 0.598, Adjusted R-squared: 0.2246
## F-statistic: 1.602 on 13 and 14 DF, p-value: 0.1965
##
##
## Value of test-statistic is: -1.3803
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ESP_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.079857 -0.019571 -0.004027 0.011958 0.036962
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -2.7225 1.2780 -2.130 0.0514 .
## z.diff.lag1 2.1741 1.1869 1.832 0.0883 .
## z.diff.lag2 1.9923 1.1154 1.786 0.0957 .
## z.diff.lag3 1.5865 1.0812 1.467 0.1644
## z.diff.lag4 1.9850 1.0263 1.934 0.0736 .
## z.diff.lag5 1.3666 0.9711 1.407 0.1812
## z.diff.lag6 1.3868 0.8708 1.593 0.1336
## z.diff.lag7 1.2380 0.7424 1.668 0.1176
## z.diff.lag8 1.0119 0.6648 1.522 0.1502
## z.diff.lag9 1.1462 0.5876 1.950 0.0714 .
## z.diff.lag10 0.8136 0.5391 1.509 0.1535
## z.diff.lag11 0.3748 0.4154 0.902 0.3822
## z.diff.lag12 0.3449 0.3291 1.048 0.3124
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03613 on 14 degrees of freedom
## Multiple R-squared: 0.6343, Adjusted R-squared: 0.2948
## F-statistic: 1.868 on 13 and 14 DF, p-value: 0.1296
##
##
## Value of test-statistic is: -2.1304
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ESP_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.023122 -0.009889 -0.001132 0.008794 0.031738
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.57938 0.30860 -1.877 0.0814 .
## z.diff.lag1 0.06638 0.30911 0.215 0.8331
## z.diff.lag2 -0.14297 0.26747 -0.535 0.6014
## z.diff.lag3 0.48280 0.26454 1.825 0.0894 .
## z.diff.lag4 0.59092 0.27349 2.161 0.0485 *
## z.diff.lag5 0.34055 0.25627 1.329 0.2051
## z.diff.lag6 0.46629 0.25180 1.852 0.0853 .
## z.diff.lag7 -0.08727 0.19818 -0.440 0.6664
## z.diff.lag8 -0.02695 0.20430 -0.132 0.8969
## z.diff.lag9 -0.18556 0.19998 -0.928 0.3692
## z.diff.lag10 0.27476 0.18497 1.485 0.1596
## z.diff.lag11 0.05139 0.16238 0.316 0.7563
## z.diff.lag12 0.29205 0.16502 1.770 0.0985 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01897 on 14 degrees of freedom
## Multiple R-squared: 0.7579, Adjusted R-squared: 0.5332
## F-statistic: 3.372 on 13 and 14 DF, p-value: 0.01573
##
##
## Value of test-statistic is: -1.8775
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=ESP_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.07676 -0.02327 -0.01362 0.01758 0.09662
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.93576 0.67298 -1.390 0.186
## z.diff.lag1 0.28629 0.64174 0.446 0.662
## z.diff.lag2 0.15478 0.57867 0.267 0.793
## z.diff.lag3 0.44359 0.54750 0.810 0.431
## z.diff.lag4 0.16526 0.51797 0.319 0.754
## z.diff.lag5 0.01842 0.51852 0.036 0.972
## z.diff.lag6 0.08821 0.50524 0.175 0.864
## z.diff.lag7 0.34973 0.47698 0.733 0.476
## z.diff.lag8 0.44174 0.43777 1.009 0.330
## z.diff.lag9 0.23787 0.47000 0.506 0.621
## z.diff.lag10 0.28568 0.45271 0.631 0.538
## z.diff.lag11 -0.07294 0.38237 -0.191 0.851
## z.diff.lag12 0.11183 0.30778 0.363 0.722
##
## Residual standard error: 0.04683 on 14 degrees of freedom
## Multiple R-squared: 0.5459, Adjusted R-squared: 0.1243
## F-statistic: 1.295 on 13 and 14 DF, p-value: 0.3183
##
##
## Value of test-statistic is: -1.3905
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(ESP_consumption)
plot(ESP_investment)
plot(ESP_deflator)
plot(ESP_exportdeflator)
plot(ESP_exports)
plot(ESP_imports)
bptest(ESP_consumption)
##
## studentized Breusch-Pagan test
##
## data: ESP_consumption
## BP = 2.1008, df = 2, p-value = 0.3498
bptest(ESP_investment)
##
## studentized Breusch-Pagan test
##
## data: ESP_investment
## BP = 18.14, df = 2, p-value = 0.0001151
bptest(ESP_deflator)
##
## studentized Breusch-Pagan test
##
## data: ESP_deflator
## BP = 4.2435, df = 2, p-value = 0.1198
bptest(ESP_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: ESP_exportdeflator
## BP = 8.3546, df = 2, p-value = 0.01534
bptest(ESP_exports)
##
## studentized Breusch-Pagan test
##
## data: ESP_exports
## BP = 1.3401, df = 2, p-value = 0.5117
bptest(ESP_imports)
##
## studentized Breusch-Pagan test
##
## data: ESP_imports
## BP = 8.7329, df = 2, p-value = 0.0127
resettest(ESP_consumption)
##
## RESET test
##
## data: ESP_consumption
## RESET = 0.24127, df1 = 2, df2 = 35, p-value = 0.7869
resettest(ESP_investment)
##
## RESET test
##
## data: ESP_investment
## RESET = 0.96459, df1 = 2, df2 = 35, p-value = 0.391
resettest(ESP_deflator)
##
## RESET test
##
## data: ESP_deflator
## RESET = 0.016709, df1 = 2, df2 = 35, p-value = 0.9834
resettest(ESP_exportdeflator)
##
## RESET test
##
## data: ESP_exportdeflator
## RESET = 5.3044, df1 = 2, df2 = 35, p-value = 0.009724
resettest(ESP_exports)
##
## RESET test
##
## data: ESP_exports
## RESET = 1.3338, df1 = 2, df2 = 35, p-value = 0.2765
resettest(ESP_imports)
##
## RESET test
##
## data: ESP_imports
## RESET = 5.1372, df1 = 2, df2 = 35, p-value = 0.01106
ESP_regtab <- matrix(c(ESP_Ceffekt, ESP_Ieffekt, ESP_Lukket, ESP_Xeffekt, ESP_Meffekt, ESP_NXeffekt, ESP_Neteffekt,ESP_Lukket_Konklusion, ESP_Def),ncol=9,byrow=TRUE)
colnames(ESP_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(ESP_regtab) <- c("ESP")
ESP_regtab <- as.table(ESP_regtab)
ESP_regtab
## consumption investment Lukket neteffekt exports
## ESP -0.291119919577315 0 -0.291119919577315 0.427343778194796
## imports netexports neteffect
## ESP -0.500882998472134 0.92822677666693 0.637106857089615
## Lukket konklusion Konklusion
## ESP Wage-led domestic Profit-led
ESP_smoke <- matrix(c(mean(ESP$C/ESP$R), mean(ESP$C/ESP$W), mean(ESP$I/ESP$R), ESP_CR, ESP_CW, ESP_iPS, ESP_ePULC, (1/(1-ESP_ePULC)), ESP_eXP, ESP_ePX, ESP_eMP, mean(ESP$Yf/ESP$Y), mean(ESP$X/ESP$Y), mean(ESP$rulc), (mean(ESP$X/ESP$Y)/mean(ESP$rulc))),ncol=15,byrow=TRUE)
colnames(ESP_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(ESP_smoke) <- c("ESP")
ESP_smoke <- as.table(ESP_smoke)
ESP_smoke
## C/R C/W I/R CR CW iPS
## ESP 1.9002515 1.0408302 0.5112398 0.2600981 0.7545627 0.0000000
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## ESP 0.8819825 8.4733210 -0.3655447 0.4008679 0.1958202 0.9262527
## X/Y RULC (X/Y)/rulc
## ESP 0.2222021 0.5979923 0.3715801
summary(ESP_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$C_dl ~ ESP$R_dl + ESP$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.041450 -0.006497 0.001639 0.007662 0.018305
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.0008884 0.0024328 0.365 0.717
## R_dl 0.2600981 0.0515459 5.046 0.000012237700334 ***
## W_dl 0.7545627 0.0713556 10.575 0.000000000000979 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01119 on 37 degrees of freedom
## Multiple R-squared: 0.7989, Adjusted R-squared: 0.788
## F-statistic: 73.48 on 2 and 37 DF, p-value: 0.0000000000001301
summary(ESP_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$I_dl ~ ESP$PS_dl + ESP$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.106473 -0.020212 0.001693 0.018563 0.106216
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.040951 0.009084 -4.508 0.00006371744441 ***
## PS_dl 0.014864 0.225516 0.066 0.948
## Y_dl 2.940138 0.291862 10.074 0.00000000000375 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0391 on 37 degrees of freedom
## Multiple R-squared: 0.7328, Adjusted R-squared: 0.7184
## F-statistic: 50.74 on 2 and 37 DF, p-value: 0.00000000002487
summary(ESP_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$P_dl ~ L(ESP$ulc_dl) + ESP$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.039569 -0.005817 -0.000328 0.005650 0.036014
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.011818 0.003185 3.71 0.000677 ***
## L(ulc_dl) 0.881983 0.061020 14.45 < 0.0000000000000002 ***
## Pm_dl 0.023237 0.031414 0.74 0.464138
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01461 on 37 degrees of freedom
## Multiple R-squared: 0.8792, Adjusted R-squared: 0.8727
## F-statistic: 134.7 on 2 and 37 DF, p-value: < 0.00000000000000022
summary(ESP_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$Px_dl ~ ESP$ulc_dl + ESP$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.027828 -0.012717 -0.000861 0.008856 0.038850
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009812 0.003798 2.583 0.0139 *
## ulc_dl 0.400868 0.072756 5.510 0.000002896453344 ***
## Pm_dl 0.401341 0.037455 10.715 0.000000000000675 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01741 on 37 degrees of freedom
## Multiple R-squared: 0.8673, Adjusted R-squared: 0.8601
## F-statistic: 120.9 on 2 and 37 DF, p-value: < 0.00000000000000022
summary(ESP_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$X_dl ~ L(ESP$dPxdPm) + ESP$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.069650 -0.026805 -0.000702 0.020051 0.079695
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.008693 0.010966 0.793 0.4330
## L(dPxdPm) -0.365545 0.117171 -3.120 0.0035 **
## Yrw_dl 1.959794 0.401395 4.882 0.0000203 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03476 on 37 degrees of freedom
## Multiple R-squared: 0.4496, Adjusted R-squared: 0.4198
## F-statistic: 15.11 on 2 and 37 DF, p-value: 0.00001595
summary(ESP_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 40
##
## Call:
## dynlm(formula = ESP$M_dl ~ ESP$dPdPm + L(ESP$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.111445 -0.026224 0.006485 0.031635 0.093240
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.003449 0.009947 -0.347 0.7308
## dPdPm 0.195820 0.097831 2.002 0.0527 .
## L(Y_dl) 2.652739 0.338115 7.846 0.00000000218 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.04391 on 37 degrees of freedom
## Multiple R-squared: 0.6782, Adjusted R-squared: 0.6609
## F-statistic: 39 on 2 and 37 DF, p-value: 0.000000000775
SWE_df[!complete.cases(SWE_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.6417200 -0.4436031 NA 0.3582800 -1.0264406 NA
## 1961 0.6446675 -0.4390206 0.004582545 0.3553325 -1.0347013 -0.008260718
## 1962 0.6639665 -0.4095236 0.029496959 0.3360335 -1.0905443 -0.055843000
## 1963 0.6720248 -0.3974600 0.012063659 0.3279752 -1.1148174 -0.024273084
## 1964 0.6616340 -0.4130428 -0.015582815 0.3383660 -1.0836270 0.031190361
## 1965 0.6635913 -0.4100888 0.002954043 0.3364087 -1.0894286 -0.005801612
## 1966 0.6738380 -0.3947656 0.015323176 0.3261620 -1.1203610 -0.030932396
## 1967 0.6709391 -0.3990769 -0.004311353 0.3290609 -1.1115124 0.008848649
## 1968 0.6858946 -0.3770313 0.022045634 0.3141054 -1.1580267 -0.046514315
## 1969 0.6825662 -0.3818958 -0.004864453 0.3174338 -1.1474860 0.010540694
## 1970 0.6686960 -0.4024257 -0.020529944 0.3313040 -1.1047190 0.042767037
## 2019 0.6224072 -0.4741607 -0.006885413 0.3775928 -0.9739390 0.011454124
## 2020 0.6310410 -0.4603844 0.013776257 0.3689590 -0.9970698 -0.023130777
## 2021 0.6360430 -0.4524892 0.007895240 0.3639570 -1.0107195 -0.013649634
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 1040.387 6.947348 NA 8836882971777 29.80996 NA
## 1961 1099.689 7.002783 0.05543465 9262418918722 29.85699 0.04703103
## 1962 1146.976 7.044884 0.04210150 9805138831199 29.91393 0.05694138
## 1963 1207.765 7.096527 0.05164263 10345127148748 29.96754 0.05360898
## 1964 1289.894 7.162315 0.06578850 11017876760580 30.03054 0.06300351
## 1965 1338.909 7.199610 0.03729506 11617720815834 30.08355 0.05301248
## 1966 1367.026 7.220393 0.02078247 12328692836126 30.14295 0.05939771
## 1967 1413.505 7.253828 0.03343486 12899230129332 30.18819 0.04523833
## 1968 1464.391 7.289195 0.03536702 13705487995048 30.24882 0.06062871
## 1969 1537.611 7.337985 0.04879046 14498508360649 30.30507 0.05624944
## 1970 1637.556 7.400960 0.06297497 14868402164183 30.33026 0.02519253
## 2019 4610.915 8.436182 0.01224382 NA NA NA
## 2020 4331.369 8.373639 -0.06254266 NA NA NA
## 2021 4516.997 8.415603 0.04196373 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1960 12.198 1028.189 6.935554 NA 583.205 6.368539 NA
## 1961 13.660 1086.029 6.990283 0.054728922 614.115 6.420182 0.05164345
## 1962 16.223 1130.753 7.030639 0.040355858 634.380 6.452648 0.03246594
## 1963 17.618 1190.147 7.081832 0.051193046 662.292 6.495707 0.04305840
## 1964 19.252 1270.642 7.147278 0.065445456 688.784 6.534928 0.03922118
## 1965 22.311 1316.598 7.182806 0.035528852 717.713 6.576070 0.04114204
## 1966 25.483 1341.543 7.201576 0.018769307 731.350 6.594892 0.01882237
## 1967 27.693 1385.812 7.234042 0.032465805 748.171 6.617632 0.02273942
## 1968 32.033 1432.358 7.267077 0.033035788 778.847 6.657815 0.04018306
## 1969 34.088 1503.523 7.315566 0.048488984 813.116 6.700874 0.04305916
## 1970 36.763 1600.793 7.378254 0.062688110 841.575 6.735275 0.03440136
## 2019 1110.707 3500.208 8.160578 0.008210845 2081.846 7.641010 0.01207397
## 2020 1062.301 3269.068 8.092260 -0.068317466 1972.985 7.587303 -0.05370738
## 2021 1111.436 3405.561 8.133165 0.040904755 2040.768 7.621081 0.03377858
## 2022 NA NA NA NA NA NA NA
## W W_l W_dl R R_l R_dl
## 1960 659.8095 6.491951 NA 368.3795 5.909114 NA
## 1961 700.1276 6.551263 0.059311467 385.9014 5.955582 0.04646820
## 1962 750.7821 6.621115 0.069852817 379.9709 5.940095 -0.01548714
## 1963 799.8083 6.684372 0.063256705 390.3387 5.967015 0.02691996
## 1964 840.6999 6.734235 0.049862641 429.9421 6.063651 0.09663582
## 1965 873.6830 6.772718 0.038482896 442.9150 6.093378 0.02972724
## 1966 903.9826 6.806810 0.034092483 437.5604 6.081215 -0.01216309
## 1967 929.7954 6.834965 0.028154452 456.0166 6.122529 0.04131445
## 1968 982.4466 6.890046 0.055081422 449.9114 6.109051 -0.01347853
## 1969 1026.2540 6.933671 0.043624531 477.2690 6.168080 0.05902968
## 1970 1070.4439 6.975829 0.042158166 530.3491 6.273535 0.10545515
## 2019 2178.5548 7.686417 0.001325432 1321.6532 7.186639 0.01966497
## 2020 2062.9160 7.631876 -0.054541210 1206.1520 7.095190 -0.09144824
## 2021 2166.0831 7.680676 0.048799995 1239.4779 7.122446 0.02725512
## 2022 NA NA NA NA NA NA
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1960 255.510 5.543262 NA 21.426 3.064605 NA NA
## 1961 275.951 5.620223 0.07696177 23.906 3.174129 0.10952434 NA
## 1962 293.336 5.681319 0.06109540 26.511 3.277560 0.10343027 NA
## 1963 313.282 5.747104 0.06578503 29.273 3.376666 0.09910585 NA
## 1964 337.092 5.820356 0.07325215 33.086 3.499110 0.12244464 NA
## 1965 350.576 5.859578 0.03922163 36.574 3.599338 0.10022737 NA
## 1966 366.702 5.904550 0.04497201 39.951 3.687654 0.08831610 NA
## 1967 386.138 5.956195 0.05164529 43.420 3.770920 0.08326646 NA
## 1968 388.454 5.962175 0.00597994 44.335 3.791774 0.02085427 NA
## 1969 405.158 6.004277 0.04210236 46.763 3.845092 0.05331786 NA
## 1970 418.530 6.036749 0.03247146 50.775 3.927404 0.08231182 36.154
## 2019 1143.678 7.042005 -0.01177033 1263.341 7.141515 0.01086588 1018.874
## 2020 980.344 6.887904 -0.15410113 1095.913 6.999343 -0.14217199 849.579
## 2021 1046.370 6.953082 0.06517878 1180.249 7.073481 0.07413763 924.842
## 2022 NA NA NA NA NA NA NA
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 3.587788 NA 0.7120433 -0.3396165 NA 298.0115
## 2019 6.926453 0.005733501 0.8064917 -0.2150617 -0.005132378 922.3668
## 2020 6.744741 -0.181712442 0.7752249 -0.2546022 -0.039540449 759.9870
## 2021 6.829623 0.084881979 0.7835991 -0.2438578 0.010744352 819.9345
## 2022 NA NA NA NA NA NA
## I_l I_dl r r_l r_dl P
## 1960 NA NA NA NA NA 7.764002
## 1961 NA NA 2.5372908 2.128381 NA 7.975463
## 1962 NA NA 1.0163775 1.928668 -0.19971289 8.289189
## 1963 NA NA 2.0922414 2.073952 0.14528397 8.518784
## 1964 NA NA 1.2213253 1.958020 -0.11593153 8.890659
## 1965 NA NA 0.1102703 1.787455 -0.17056487 9.429704
## 1966 NA NA -0.0529716 1.759751 -0.02770459 10.054562
## 1967 NA NA 0.9838757 1.923933 0.16418197 10.559971
## 1968 NA NA 3.8275884 2.271254 0.34732156 10.811432
## 1969 NA NA 3.5309037 2.240163 -0.03109108 11.170567
## 1970 5.697132 NA 2.2447393 2.092937 -0.14722565 11.732703
## 2019 6.826943 -0.01690271 -2.6097620 1.179946 -0.26115763 109.012398
## 2020 6.633301 -0.19364158 NA NA NA 110.110524
## 2021 6.709225 0.07592313 NA NA NA 111.536412
## 2022 NA NA NA NA NA NA
## P_l P_dl Pm Pm_l Pm_dl Px
## 1960 2.049498 NA 10.67495 2.367900 NA 14.80987
## 1961 2.076370 0.02687174 10.72799 2.372856 0.004955721 14.87181
## 1962 2.114952 0.03858244 10.85533 2.384656 0.011800250 14.62738
## 1963 2.142274 0.02732142 11.03596 2.401159 0.016503054 14.78150
## 1964 2.185001 0.04272762 11.41285 2.434740 0.033580277 14.96749
## 1965 2.243865 0.05886349 11.62036 2.452759 0.018019298 15.27539
## 1966 2.308026 0.06416172 11.79326 2.467528 0.014769143 15.52869
## 1967 2.357071 0.04904412 11.95030 2.480757 0.013228513 15.74203
## 1968 2.380604 0.02353356 12.03962 2.488203 0.007446386 15.85974
## 1969 2.413282 0.03267827 12.36162 2.514596 0.026393398 16.36726
## 1970 2.462380 0.04909772 13.36560 2.592684 0.078087933 17.86613
## 2019 4.691462 0.02684413 111.68035 4.715641 0.028452333 109.97761
## 2020 4.701485 0.01002301 110.56619 4.705614 -0.010026458 109.03376
## 2021 4.714351 0.01286647 110.92038 4.708813 0.003198276 109.66102
## 2022 NA NA NA NA NA NA
## Px_l Px_dl X X_l X_dl M M_l
## 1960 2.695294 NA 115.955 4.753202 NA 165.355 5.108095
## 1961 2.699468 0.004173421 121.986 4.803906 0.05070410 165.686 5.110094
## 1962 2.682895 -0.016572324 131.867 4.881794 0.07788755 175.130 5.165529
## 1963 2.693377 0.010481323 141.492 4.952243 0.07044934 187.565 5.234125
## 1964 2.705881 0.012504122 158.471 5.065572 0.11332843 205.759 5.326706
## 1965 2.726243 0.020362642 167.346 5.120064 0.05449191 229.009 5.433761
## 1966 2.742689 0.016445976 175.546 5.167901 0.04783759 238.857 5.475865
## 1967 2.756334 0.013644887 185.201 5.221442 0.05354060 244.829 5.500560
## 1968 2.763784 0.007449580 199.276 5.294691 0.07324908 265.149 5.580292
## 1969 2.795283 0.031499452 222.193 5.403546 0.10885558 299.354 5.701627
## 1970 2.882907 0.087623407 241.301 5.486045 0.08249874 330.486 5.800564
## 2019 4.700277 0.033421525 2168.395 7.681743 0.04119542 1962.304 7.581875
## 2020 4.691658 -0.008619201 1907.348 7.553469 -0.12827347 1737.154 7.460003
## 2021 4.697394 0.005736328 2031.483 7.616521 0.06305227 1825.646 7.509689
## 2022 NA NA NA NA NA NA NA
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1960 NA 0.6341962 -0.4553969 NA 4.923901 1.594101
## 1961 0.001999753 0.6366596 -0.4515201 0.003876814 5.077655 1.624850
## 1962 0.055434124 0.6545752 -0.4237688 0.027751316 5.425898 1.691183
## 1963 0.068596897 0.6622218 -0.4121547 0.011614075 5.641325 1.730119
## 1964 0.092580129 0.6517589 -0.4280806 -0.015925860 5.794566 1.756921
## 1965 0.107055723 0.6525336 -0.4268927 0.001187837 6.153198 1.816972
## 1966 0.042103742 0.6612768 -0.4135827 0.013310009 6.648849 1.894444
## 1967 0.024694961 0.6577942 -0.4188631 -0.005280406 6.946288 1.938207
## 1968 0.079731924 0.6708909 -0.3991487 0.019714401 7.253292 1.981455
## 1969 0.121334887 0.6674341 -0.4043146 -0.005165926 7.455617 2.008968
## 1970 0.098937479 0.6536839 -0.4251315 -0.020816807 7.669479 2.037249
## 2019 0.017824393 0.4724778 -0.7497646 -0.010918387 51.505934 3.941697
## 2020 -0.121871151 0.4762734 -0.7417631 0.008001451 52.442718 3.959721
## 2021 0.049685755 0.4795405 -0.7349269 0.006836260 53.486230 3.979424
## 2022 NA NA NA NA NA NA
## ulc_dl Tau Tau_l Tau_dl dPxdPm
## 1960 NA 60.39348 4.100881 NA NA
## 1961 0.03074856 62.16525 4.129796 0.028914932 -0.000782300031
## 1962 0.06633376 63.20747 4.146422 0.016626333 -0.028372574641
## 1963 0.03893550 65.03628 4.174945 0.028522895 -0.006021730772
## 1964 0.02680176 67.78943 4.216406 0.041460892 -0.021076155567
## 1965 0.06005132 68.35024 4.224645 0.008238804 0.002343344387
## 1966 0.07747172 67.84711 4.217257 -0.007388171 0.001676833025
## 1967 0.04376371 68.87771 4.232333 0.015075836 0.000416373842
## 1968 0.04324796 69.33404 4.238936 0.006603368 0.000003193362
## 1969 0.02751234 70.72529 4.258803 0.019867116 0.005106054462
## 1970 0.02828092 72.93911 4.289625 0.030821766 0.009535474358
## 2019 0.01592574 100.43159 4.609477 -0.001338326 0.004969192034
## 2020 0.01802446 95.10159 4.554946 -0.054531096 0.001407257229
## 2021 0.01970273 97.97843 4.584747 0.029801588 0.002538052029
## 2022 NA NA NA NA NA
## dPdPm Trade
## 1960 NA 0.2703898
## 1961 0.021916020 0.2615940
## 1962 0.026782194 0.2676577
## 1963 0.010818370 0.2724512
## 1964 0.009147347 0.2823720
## 1965 0.040844190 0.2960283
## 1966 0.049392573 0.3031420
## 1967 0.035815607 0.3042296
## 1968 0.016087175 0.3171455
## 1969 0.006284873 0.3391931
## 1970 -0.028990209 0.3491710
## 2019 -0.001608206 0.8958523
## 2020 0.020049469 0.8414203
## 2021 0.009668198 0.8539144
## 2022 NA NA
SWE <- SWE_df[12:59,]
SWE[!complete.cases(SWE),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
SWE %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1971 0.6880024 -0.3739629 0.02846277 0.3119976 -1.164760 -0.060040879
## 1972 0.6790216 -0.3871023 -0.01313935 0.3209784 -1.136382 0.028378256
## 1973 0.6560051 -0.4215866 -0.03448437 0.3439949 -1.067129 0.069253013
## 1974 0.6574204 -0.4194317 0.00215499 0.3425796 -1.071251 -0.004122527
## 1975 0.6656920 -0.4069281 0.01250353 0.3343080 -1.095693 -0.024441555
## 1976 0.6938923 -0.3654385 0.04148961 0.3061077 -1.183818 -0.088125625
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1971 1652.294 7.409920 0.008959739 15455906232894 30.36901 0.0387529097
## 1972 1690.296 7.432659 0.022739036 16328160023200 30.42391 0.0549000153
## 1973 1757.908 7.471880 0.039220804 17364969843390 30.48548 0.0615637236
## 1974 1814.161 7.503378 0.031498636 17566406075099 30.49701 0.0115333828
## 1975 1861.329 7.529046 0.025667647 17548927546350 30.49601 -0.0009954928
## 1976 1881.804 7.539986 0.010940143 18423035268744 30.54462 0.0486089588
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1971 46.689 1605.605 7.381256 0.003001501 842.417 6.736275 0.001000005
## 1972 48.901 1641.395 7.403302 0.022045857 871.060 6.769711 0.033435720
## 1973 55.426 1702.482 7.439842 0.036540696 893.707 6.795378 0.025667120
## 1974 57.648 1756.513 7.471086 0.031243407 924.093 6.828813 0.033434735
## 1975 70.340 1790.989 7.490523 0.019437387 949.968 6.856428 0.027615584
## 1976 83.297 1798.507 7.494712 0.004188895 989.867 6.897571 0.041142291
## W W_l W_dl R R_l R_dl It
## 1971 1104.660 7.007293 0.031464273 500.9449 6.216496 -0.057039378 416.018
## 1972 1114.543 7.016199 0.008906508 526.8523 6.266920 0.050424114 433.490
## 1973 1116.837 7.018256 0.002056322 585.6450 6.372714 0.105793709 445.194
## 1974 1154.767 7.051654 0.033398398 601.7456 6.399835 0.027120880 431.838
## 1975 1192.247 7.083595 0.031940919 598.7419 6.394831 -0.005004167 445.225
## 1976 1247.970 7.129274 0.045678505 550.5368 6.310894 -0.083936730 453.683
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1971 6.030729 -0.006020043 53.529 3.980224 0.05281946 38.942 3.662073
## 1972 6.071869 0.041140199 59.247 4.081715 0.10149158 43.349 3.769284
## 1973 6.098510 0.026641414 65.009 4.174526 0.09281058 49.119 3.894246
## 1974 6.068051 -0.030459624 72.095 4.277985 0.10345897 55.232 4.011542
## 1975 6.098580 0.030529254 82.479 4.412544 0.13455902 63.958 4.158227
## 1976 6.117399 0.018818944 94.456 4.548134 0.13559040 74.117 4.305645
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1971 0.07428577 0.7274935 -0.3181502 0.021466311 302.6504 5.712578
## 1972 0.10721028 0.7316657 -0.3124315 0.005718693 317.1698 5.759437
## 1973 0.12496229 0.7555723 -0.2802798 0.032151714 336.3763 5.818230
## 1974 0.11729657 0.7661003 -0.2664422 0.013837598 330.8312 5.801608
## 1975 0.14668412 0.7754459 -0.2543171 0.012125101 345.2479 5.844263
## 1976 0.14741831 0.7846722 -0.2424892 0.011827906 355.9925 5.874910
## I_dl r r_l r_dl P P_l
## 1971 0.01544627 -0.0102528 1.767075 -0.325862298 12.58227 2.532288
## 1972 0.04685889 0.2553483 1.811449 0.044373897 13.46513 2.600104
## 1973 0.05879313 0.2687755 1.813641 0.002191831 14.42010 2.668623
## 1974 -0.01662203 -1.7013599 1.426140 -0.387500988 15.81099 2.760705
## 1975 0.04265436 -4.8639601 0.000000 -1.426139927 18.08019 2.894817
## 1976 0.03064685 -2.3704762 1.250899 1.250899490 20.24517 3.007916
## P_dl Pm Pm_l Pm_dl Px Px_l Px_dl
## 1971 0.06990840 14.04704 2.642412 0.04972749 18.61467 2.923950 0.04104361
## 1972 0.06781503 14.45788 2.671239 0.02882761 19.12309 2.950896 0.02694605
## 1973 0.06851961 16.35380 2.794461 0.12322121 21.20453 3.054215 0.10331869
## 1974 0.09208192 22.49071 3.113102 0.31864174 26.73354 3.285919 0.23170409
## 1975 0.13411156 23.53024 3.158286 0.04518405 30.24986 3.409491 0.12357242
## 1976 0.11309941 25.26007 3.229225 0.07093849 32.21488 3.472428 0.06293694
## X X_l X_dl M M_l M_dl rulc
## 1971 252.884 5.532931 0.04688577 319.580 5.767008 -0.03355666 0.6685615
## 1972 267.804 5.590255 0.05732448 332.363 5.806228 0.03922011 0.6593773
## 1973 304.493 5.718648 0.12839273 355.296 5.872951 0.06672350 0.6353216
## 1974 320.631 5.770291 0.05164283 390.471 5.967354 0.09440246 0.6365297
## 1975 290.812 5.672677 -0.09761392 376.805 5.931728 -0.03562589 0.6405354
## 1976 303.317 5.714778 0.04210145 410.717 6.017904 0.08617660 0.6631775
## rulc_l rulc_dl ulc ulc_l ulc_dl Tau
## 1971 -0.4026269 0.022504534 8.412019 2.129662 0.09241294 72.14548
## 1972 -0.4164594 -0.013832528 8.878602 2.183644 0.05398250 72.16197
## 1973 -0.4536239 -0.037164482 9.161402 2.214999 0.03135513 73.42604
## 1974 -0.4517242 0.001899762 10.064163 2.308981 0.09398168 73.66458
## 1975 -0.4454509 0.006273272 11.580999 2.449366 0.14038483 73.51365
## 1976 -0.4107125 0.034738363 13.426139 2.597203 0.14783778 72.95724
## Tau_l Tau_dl dPxdPm dPdPm Trade
## 1971 4.278685 -0.0109402676 -0.008683877 0.02018091 0.3464662
## 1972 4.278913 0.0002285232 -0.001881564 0.03898742 0.3550662
## 1973 4.296279 0.0173654991 -0.019902520 -0.05470160 0.3753262
## 1974 4.299522 0.0032433694 -0.086937647 -0.22655982 0.3919729
## 1975 4.297471 -0.0020509522 0.078388371 0.08892750 0.3586776
## 1976 4.289874 -0.0075975693 -0.008001542 0.04216093 0.3794412
SWE %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1971 0.6880024 -0.3739629 0.0284627722 0.3119976 -1.1647598 -0.0600408791
## 1972 0.6790216 -0.3871023 -0.0131393491 0.3209784 -1.1363816 0.0283782565
## 1973 0.6560051 -0.4215866 -0.0344843744 0.3439949 -1.0671286 0.0692530130
## 1974 0.6574204 -0.4194317 0.0021549902 0.3425796 -1.0712511 -0.0041225271
## 1975 0.6656920 -0.4069281 0.0125035316 0.3343080 -1.0956927 -0.0244415547
## 1976 0.6938923 -0.3654385 0.0414896103 0.3061077 -1.1838183 -0.0881256248
## 1977 0.7205583 -0.3277290 0.0377095156 0.2794417 -1.2749615 -0.0911431850
## 1978 0.7097105 -0.3428982 -0.0151691773 0.2902895 -1.2368765 0.0380849846
## 1979 0.6914847 -0.3689143 -0.0260161207 0.3085153 -1.1759837 0.0608927403
## 1980 0.6676725 -0.4039575 -0.0350432338 0.3323275 -1.1016343 0.0743494665
## 1981 0.6688849 -0.4021432 0.0018143004 0.3311151 -1.1052893 -0.0036550543
## 1982 0.6440417 -0.4399917 -0.0378485184 0.3559583 -1.0329418 0.0723475444
## 1983 0.6238233 -0.4718882 -0.0318964100 0.3761767 -0.9776962 0.0552455475
## 1984 0.6092925 -0.4954569 -0.0235687048 0.3907075 -0.9397960 0.0379002111
## 1985 0.6148524 -0.4863731 0.0090837490 0.3851476 -0.9541285 -0.0143324925
## 1986 0.6163561 -0.4839304 0.0024426924 0.3836439 -0.9580405 -0.0039119392
## 1987 0.6190568 -0.4795582 0.0043722099 0.3809432 -0.9651051 -0.0070645954
## 1988 0.6115516 -0.4917560 -0.0121978124 0.3884484 -0.9455948 0.0195102463
## 1989 0.6229261 -0.4733273 0.0184287119 0.3770739 -0.9753142 -0.0297194011
## 1990 0.6451044 -0.4383431 0.0349841966 0.3548956 -1.0359316 -0.0606174029
## 1991 0.6435240 -0.4407960 -0.0024528744 0.3564760 -1.0314883 0.0044433136
## 1992 0.6315192 -0.4596270 -0.0188309969 0.3684808 -0.9983666 0.0331217213
## 1993 0.6076394 -0.4981737 -0.0385467169 0.3923606 -0.9355739 0.0627926766
## 1994 0.5965855 -0.5165327 -0.0183589567 0.4034145 -0.9077908 0.0277831189
## 1995 0.5746377 -0.5540155 -0.0374827963 0.4253623 -0.8548141 0.0529766920
## 1996 0.6019799 -0.5075312 0.0464842679 0.3980201 -0.9212528 -0.0664387308
## 1997 0.6012331 -0.5087725 -0.0012413597 0.3987669 -0.9193783 0.0018745543
## 1998 0.5933435 -0.5219818 -0.0132092942 0.4066565 -0.8997864 0.0195919169
## 1999 0.5975899 -0.5148505 0.0071313208 0.4024101 -0.9102836 -0.0104972444
## 2000 0.6063506 -0.5002970 0.0145535659 0.3936494 -0.9322945 -0.0220109491
## 2001 0.6232068 -0.4728768 0.0274201271 0.3767932 -0.9760589 -0.0437643098
## 2002 0.6207948 -0.4767547 -0.0038778873 0.3792052 -0.9696777 0.0063811093
## 2003 0.6141922 -0.4874474 -0.0106926632 0.3858078 -0.9524159 0.0172618001
## 2004 0.6047033 -0.5030174 -0.0155700470 0.3952967 -0.9281185 0.0242973999
## 2005 0.6048278 -0.5028116 0.0002058649 0.3951722 -0.9284335 -0.0003150029
## 2006 0.5927771 -0.5229368 -0.0201252568 0.4072229 -0.8983946 0.0300389462
## 2007 0.6016136 -0.5081400 0.0147968674 0.3983864 -0.9203328 -0.0219382104
## 2008 0.6139392 -0.4878594 0.0202805765 0.3860608 -0.9517604 -0.0314276016
## 2009 0.6270343 -0.4667541 0.0211052941 0.3729657 -0.9862687 -0.0345083288
## 2010 0.6006039 -0.5098197 -0.0430656304 0.3993961 -0.9178015 0.0684672429
## 2011 0.6051425 -0.5022913 0.0075283934 0.3948575 -0.9292303 -0.0114288285
## 2012 0.6279948 -0.4652234 0.0370679380 0.3720052 -0.9888475 -0.0596171393
## 2013 0.6343211 -0.4552000 0.0100233627 0.3656789 -1.0059996 -0.0171521305
## 2014 0.6267625 -0.4671876 -0.0119875710 0.3732375 -0.9855403 0.0204592495
## 2015 0.6126624 -0.4899412 -0.0227536519 0.3873376 -0.9484586 0.0370817521
## 2016 0.6222362 -0.4744355 0.0155057135 0.3777638 -0.9734861 -0.0250275311
## 2017 0.6213846 -0.4758050 -0.0013694707 0.3786154 -0.9712345 0.0022516521
## 2018 0.6267076 -0.4672752 0.0085297500 0.3732924 -0.9853932 -0.0141586880
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1971 1652.294 7.409920 0.008959739 15455906232894 30.36901 0.0387529097
## 1972 1690.296 7.432659 0.022739036 16328160023200 30.42391 0.0549000153
## 1973 1757.908 7.471880 0.039220804 17364969843390 30.48548 0.0615637236
## 1974 1814.161 7.503378 0.031498636 17566406075099 30.49701 0.0115333828
## 1975 1861.329 7.529046 0.025667647 17548927546350 30.49601 -0.0009954928
## 1976 1881.804 7.539986 0.010940143 18423035268744 30.54462 0.0486089588
## 1977 1851.695 7.523857 -0.016129455 19142430861457 30.58293 0.0383055838
## 1978 1885.025 7.541696 0.017839648 19935631965252 30.62353 0.0406012994
## 1979 1956.657 7.578993 0.037296321 20769265266609 30.66450 0.0409655809
## 1980 2006.533 7.604164 0.025170952 21080161711640 30.67935 0.0148581325
## 1981 2002.455 7.602129 -0.002034429 21508822450888 30.69948 0.0201308025
## 1982 2027.459 7.614539 0.012409357 21501467194715 30.69914 -0.0003420231
## 1983 2065.993 7.633366 0.018827698 22085300016805 30.72593 0.0267910552
## 1984 2153.375 7.674792 0.041425396 23095384978865 30.77065 0.0447205835
## 1985 2199.896 7.696165 0.021373708 23926916691954 30.80603 0.0353712335
## 1986 2259.102 7.722723 0.026557303 24703194717168 30.83795 0.0319285294
## 1987 2334.869 7.755711 0.032988398 25573602477374 30.87258 0.0346280902
## 1988 2394.619 7.780979 0.025268350 26812508484438 30.91989 0.0473078469
## 1989 2458.192 7.807181 0.026201984 27854898183915 30.95803 0.0381403151
## 1990 2476.743 7.814700 0.007518270 28727117175726 30.98886 0.0308326978
## 1991 2448.360 7.803174 -0.011525978 29159943411392 31.00382 0.0149544405
## 1992 2419.994 7.791520 -0.011653352 29766278121549 31.02440 0.0205801796
## 1993 2370.006 7.770648 -0.020872574 30123356376777 31.03632 0.0119246841
## 1994 2464.143 7.809599 0.038951593 31084098080500 31.06772 0.0313955425
## 1995 2562.670 7.848805 0.039205604 31989969846690 31.09644 0.0287260387
## 1996 2604.054 7.864825 0.016019778 32934073149223 31.12553 0.0290853685
## 1997 2684.757 7.895346 0.030520760 34030001130648 31.15826 0.0327347419
## 1998 2799.155 7.937073 0.041727365 34944597367577 31.18478 0.0265213532
## 1999 2919.833 7.979282 0.042208837 36071844554905 31.21653 0.0317487568
## 2000 3062.161 8.026876 0.047594453 37524501486029 31.25602 0.0394814608
## 2001 3107.111 8.041449 0.014572480 38081935632913 31.27076 0.0147459467
## 2002 3175.345 8.063172 0.021722932 38669757240257 31.28608 0.0153177885
## 2003 3246.619 8.085369 0.022197859 39531349243871 31.30812 0.0220361810
## 2004 3387.072 8.127721 0.042351684 40851737210500 31.34097 0.0328553381
## 2005 3485.158 8.156269 0.028547549 42026540126095 31.36932 0.0283519795
## 2006 3645.562 8.201266 0.044997157 43340061766939 31.40010 0.0307760948
## 2007 3770.637 8.234999 0.033733415 44540987968998 31.42743 0.0273324219
## 2008 3761.501 8.232573 -0.002425873 44696559077690 31.43092 0.0034866773
## 2009 3602.148 8.189286 -0.043287746 43216084337128 31.39723 -0.0336837720
## 2010 3825.086 8.249336 0.060050616 44510097465816 31.42674 0.0295033242
## 2011 3941.840 8.279403 0.030066669 45339999923101 31.44521 0.0184735706
## 2012 3916.968 8.273073 -0.006329734 45941030810101 31.45838 0.0131689918
## 2013 3959.578 8.283893 0.010819569 46615862463861 31.47296 0.0145822442
## 2014 4068.359 8.310995 0.027102270 47565468674945 31.49313 0.0201661705
## 2015 4248.213 8.354254 0.043258700 48677112233621 31.51623 0.0231018950
## 2016 4350.724 8.378098 0.023843844 49506980719776 31.53313 0.0169047393
## 2017 4455.657 8.401930 0.023832257 50641555429718 31.55579 0.0226588085
## 2018 4554.804 8.423938 0.022007975 51771525374878 31.57786 0.0220678021
## Tax Yf Yf_l Yf_dl C C_l
## 1971 46.689 1605.605 7.381256 0.0030015011 842.417 6.736275
## 1972 48.901 1641.395 7.403302 0.0220458574 871.060 6.769711
## 1973 55.426 1702.482 7.439842 0.0365406963 893.707 6.795378
## 1974 57.648 1756.513 7.471086 0.0312434075 924.093 6.828813
## 1975 70.340 1790.989 7.490523 0.0194373875 949.968 6.856428
## 1976 83.297 1798.507 7.494712 0.0041888950 989.867 6.897571
## 1977 95.420 1756.275 7.470950 -0.0237617874 979.968 6.887520
## 1978 97.379 1787.646 7.488655 0.0177045817 973.109 6.880496
## 1979 104.779 1851.878 7.523956 0.0353005888 996.463 6.904212
## 1980 120.557 1885.976 7.542201 0.0182451995 988.491 6.896180
## 1981 139.294 1863.161 7.530030 -0.0121709511 1002.114 6.909867
## 1982 144.889 1882.570 7.540393 0.0103633570 1011.217 6.918910
## 1983 170.121 1895.872 7.547434 0.0070410264 988.585 6.896275
## 1984 192.162 1961.213 7.581318 0.0338842684 1006.345 6.914080
## 1985 210.561 1989.335 7.595556 0.0142372527 1032.764 6.939994
## 1986 238.255 2020.847 7.611272 0.0157163184 1082.198 6.986749
## 1987 263.787 2071.082 7.635826 0.0245544456 1136.382 7.035605
## 1988 281.220 2113.399 7.656053 0.0202263758 1168.834 7.063762
## 1989 316.472 2141.720 7.669365 0.0133116927 1181.481 7.074524
## 1990 355.575 2121.168 7.659722 -0.0096423642 1173.665 7.067887
## 1991 409.826 2038.534 7.619986 -0.0397359583 1176.298 7.070127
## 1992 382.641 2037.353 7.619407 -0.0005795058 1158.170 7.054596
## 1993 368.872 2001.134 7.601469 -0.0179373964 1124.650 7.025227
## 1994 379.292 2084.851 7.642453 0.0409833700 1146.133 7.044149
## 1995 408.227 2154.443 7.675288 0.0328348316 1157.170 7.053733
## 1996 433.957 2170.097 7.682527 0.0072396455 1178.606 7.072088
## 1997 446.133 2238.624 7.713617 0.0310895244 1215.510 7.102919
## 1998 519.040 2280.115 7.731981 0.0183644889 1256.661 7.136213
## 1999 542.645 2377.188 7.773674 0.0416923963 1307.368 7.175771
## 2000 542.611 2519.550 7.831836 0.0581620376 1377.993 7.228383
## 2001 567.123 2539.988 7.839915 0.0080790425 1389.391 7.236621
## 2002 593.661 2581.684 7.856197 0.0162825426 1420.188 7.258545
## 2003 614.578 2632.041 7.875515 0.0193176917 1445.098 7.275932
## 2004 631.963 2755.109 7.921212 0.0456974154 1486.065 7.303887
## 2005 661.112 2824.046 7.945926 0.0247136022 1535.900 7.336872
## 2006 690.362 2955.200 7.991322 0.0453957220 1581.393 7.366061
## 2007 732.511 3038.126 8.018996 0.0276745475 1643.201 7.404401
## 2008 765.939 2995.562 8.004887 -0.0141090179 1654.691 7.411370
## 2009 753.351 2848.797 7.954652 -0.0502350601 1674.295 7.423147
## 2010 791.469 3033.617 8.017511 0.0628588371 1746.820 7.465552
## 2011 810.511 3131.329 8.049213 0.0317018781 1780.537 7.484670
## 2012 823.265 3093.703 8.037124 -0.0120887598 1791.092 7.490581
## 2013 840.265 3119.313 8.045368 0.0082440300 1822.871 7.508168
## 2014 865.568 3202.791 8.071778 0.0264098319 1876.485 7.537156
## 2015 921.085 3327.128 8.109865 0.0380868522 1942.384 7.571671
## 2016 993.278 3357.446 8.118936 0.0090710965 1981.475 7.591597
## 2017 1035.867 3419.790 8.137334 0.0183985798 2022.895 7.612285
## 2018 1083.218 3471.586 8.152367 0.0150324044 2056.861 7.628936
## C_dl W W_l W_dl R R_l
## 1971 0.001000005 1104.660 7.007293 0.031464273 500.9449 6.216496
## 1972 0.033435720 1114.543 7.016199 0.008906508 526.8523 6.266920
## 1973 0.025667120 1116.837 7.018256 0.002056322 585.6450 6.372714
## 1974 0.033434735 1154.767 7.051654 0.033398398 601.7456 6.399835
## 1975 0.027615584 1192.247 7.083595 0.031940919 598.7419 6.394831
## 1976 0.041142291 1247.970 7.129274 0.045678505 550.5368 6.310894
## 1977 -0.010050673 1265.498 7.143221 0.013947728 490.7765 6.195989
## 1978 -0.007023817 1268.711 7.145757 0.002535404 518.9349 6.251778
## 1979 0.023715908 1280.545 7.155041 0.009284468 571.3328 6.347972
## 1980 -0.008032471 1259.214 7.138243 -0.016798034 626.7617 6.440566
## 1981 0.013687510 1246.240 7.127887 -0.010356651 616.9207 6.424740
## 1982 0.009042787 1212.454 7.100401 -0.027485161 670.1164 6.507451
## 1983 -0.022635207 1182.689 7.075546 -0.024855384 713.1829 6.569738
## 1984 0.017805606 1194.952 7.085862 0.010315564 766.2607 6.641522
## 1985 0.025913748 1223.147 7.109183 0.023321002 766.1877 6.641427
## 1986 0.046755455 1245.561 7.127342 0.018159011 775.2857 6.653232
## 1987 0.048855373 1282.117 7.156268 0.028926656 788.9646 6.670721
## 1988 0.028157139 1292.452 7.164297 0.008028563 820.9466 6.710458
## 1989 0.010762066 1334.133 7.196037 0.031740405 807.5866 6.694050
## 1990 -0.006637405 1368.375 7.221379 0.025341832 752.7932 6.623791
## 1991 0.002240887 1311.846 7.179190 -0.042188833 726.6885 6.588498
## 1992 -0.015531046 1286.627 7.159780 -0.019410503 750.7255 6.621040
## 1993 -0.029369297 1215.968 7.103296 -0.056484113 785.1662 6.665895
## 1994 0.018921791 1243.792 7.125920 0.022624413 841.0591 6.734662
## 1995 0.009583702 1238.024 7.121272 -0.004647965 916.4187 6.820473
## 1996 0.018355015 1306.355 7.174996 0.053723913 863.7422 6.761274
## 1997 0.030831358 1345.935 7.204844 0.029848165 892.6891 6.794238
## 1998 0.033294462 1352.891 7.209999 0.005155195 927.2237 6.832195
## 1999 0.039557752 1420.584 7.258823 0.048823717 956.6044 6.863390
## 2000 0.052612137 1527.731 7.331539 0.072715604 991.8194 6.899541
## 2001 0.008237429 1582.938 7.367038 0.035499170 957.0501 6.863856
## 2002 0.021923736 1602.696 7.379442 0.012404655 978.9880 6.886519
## 2003 0.017387882 1616.579 7.388067 0.008625028 1015.4620 6.923099
## 2004 0.027954548 1666.023 7.418195 0.030127368 1089.0856 6.993094
## 2005 0.032984842 1708.061 7.443114 0.024919467 1115.9846 7.017492
## 2006 0.029189576 1751.775 7.468385 0.025270465 1203.4251 7.092927
## 2007 0.038340065 1827.778 7.510856 0.042471415 1210.3482 7.098663
## 2008 0.006968116 1839.093 7.517028 0.006171559 1156.4691 7.053127
## 2009 0.011777897 1786.293 7.487898 -0.029129766 1062.5036 6.968383
## 2010 0.042404811 1822.002 7.507691 0.019793207 1211.6149 7.099709
## 2011 0.019118012 1894.900 7.546921 0.039230272 1236.4288 7.119982
## 2012 0.005910486 1942.829 7.571901 0.024979178 1150.8736 7.048277
## 2013 0.017587241 1978.646 7.590168 0.018267393 1140.6670 7.039368
## 2014 0.028987615 2007.389 7.604590 0.014422261 1195.4017 7.086238
## 2015 0.034515739 2038.406 7.619924 0.015333200 1288.7218 7.161406
## 2016 0.019925432 2089.124 7.644500 0.024576810 1268.3216 7.145450
## 2017 0.020688137 2125.005 7.661529 0.017029109 1294.7850 7.166100
## 2018 0.016651381 2175.669 7.685092 0.023562154 1295.9168 7.166974
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1971 -0.05703937794 416.018 6.030729 -0.006020043 53.529 3.980224
## 1972 0.05042411390 433.490 6.071869 0.041140199 59.247 4.081715
## 1973 0.10579370930 445.194 6.098510 0.026641414 65.009 4.174526
## 1974 0.02712088035 431.838 6.068051 -0.030459624 72.095 4.277985
## 1975 -0.00500416723 445.225 6.098580 0.030529254 82.479 4.412544
## 1976 -0.08393672973 453.683 6.117399 0.018818944 94.456 4.548134
## 1977 -0.11490497236 440.527 6.087972 -0.029426979 102.401 4.628896
## 1978 0.05578956628 410.571 6.017549 -0.070422864 105.139 4.655283
## 1979 0.09619332901 429.047 6.061566 0.044017596 120.224 4.789357
## 1980 0.09259466599 444.063 6.095966 0.034399974 139.222 4.936070
## 1981 -0.01582600546 430.286 6.064450 -0.031516340 145.812 4.982318
## 1982 0.08271090140 433.101 6.070971 0.006520853 158.922 5.068414
## 1983 0.06228657387 447.677 6.104072 0.033101033 180.436 5.195376
## 1984 0.07178447945 483.815 6.181703 0.077630612 205.909 5.327434
## 1985 -0.00009523984 522.042 6.257748 0.076045442 234.207 5.456205
## 1986 0.01180437924 528.779 6.270571 0.012822531 247.447 5.511196
## 1987 0.01748985015 561.050 6.329810 0.059239453 276.898 5.623649
## 1988 0.03973662215 592.708 6.384702 0.054891838 313.899 5.749071
## 1989 -0.01640770846 660.467 6.492947 0.108245294 375.019 5.926977
## 1990 -0.07025976709 661.775 6.494926 0.001978458 409.512 6.014966
## 1991 -0.03529264471 603.450 6.402663 -0.092262432 402.639 5.998040
## 1992 0.03254221552 539.710 6.291032 -0.111631229 362.639 5.893408
## 1993 0.04485528023 448.345 6.105563 -0.185468933 323.495 5.779184
## 1994 0.06876648890 482.485 6.178950 0.073386807 346.123 5.846794
## 1995 0.08581152365 521.306 6.256337 0.077387369 378.911 5.937301
## 1996 -0.05919908521 548.047 6.306361 0.050023848 399.190 5.989437
## 1997 0.03296407868 558.600 6.325434 0.019072604 413.511 6.024684
## 1998 0.03795640576 602.116 6.400450 0.075016464 453.748 6.117542
## 1999 0.03119515190 638.213 6.458672 0.058221966 491.921 6.198318
## 2000 0.03615108854 679.048 6.520692 0.062019734 540.172 6.291888
## 2001 -0.03568526739 694.669 6.543435 0.022743656 571.556 6.348362
## 2002 0.02266365188 683.702 6.527522 -0.015913323 575.586 6.355389
## 2003 0.03657949174 701.375 6.553043 0.025520544 588.973 6.378380
## 2004 0.06999481534 738.971 6.605259 0.052215984 622.726 6.434107
## 2005 0.02439859933 775.516 6.653529 0.048269936 660.643 6.493214
## 2006 0.07543466822 845.243 6.739624 0.086095546 729.351 6.592155
## 2007 0.00573633708 915.552 6.819527 0.079903002 807.118 6.693470
## 2008 -0.04553661949 920.439 6.824851 0.005323568 843.600 6.737678
## 2009 -0.08474338890 804.433 6.690138 -0.134713049 757.629 6.630194
## 2010 0.13132607997 856.368 6.752700 0.062562509 811.998 6.699498
## 2011 0.02027304958 907.253 6.810421 0.057721162 862.095 6.759365
## 2012 -0.07170589906 895.279 6.797135 -0.013285951 856.954 6.753384
## 2013 -0.00890810058 899.339 6.801660 0.004524648 863.652 6.761170
## 2014 0.04686908145 953.972 6.860634 0.058974272 933.828 6.839292
## 2015 0.07516860430 1009.522 6.917232 0.056597910 1009.522 6.917232
## 2016 -0.01595643464 1051.410 6.957887 0.040655169 1067.613 6.973181
## 2017 0.02065023187 1110.130 7.012232 0.054345005 1162.845 7.058625
## 2018 0.00087371634 1157.219 7.053775 0.041542587 1249.688 7.130649
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1971 0.052819456 38.942 3.662073 0.074285767 0.7274935 -0.3181502
## 1972 0.101491583 43.349 3.769284 0.107210275 0.7316657 -0.3124315
## 1973 0.092810576 49.119 3.894246 0.124962290 0.7555723 -0.2802798
## 1974 0.103458972 55.232 4.011542 0.117296570 0.7661003 -0.2664422
## 1975 0.134559022 63.958 4.158227 0.146684122 0.7754459 -0.2543171
## 1976 0.135590402 74.117 4.305645 0.147418308 0.7846722 -0.2424892
## 1977 0.080762361 78.777 4.366621 0.060976150 0.7692991 -0.2622754
## 1978 0.026386806 79.838 4.380000 0.013378506 0.7593567 -0.2752837
## 1979 0.134073385 92.700 4.529368 0.149368891 0.7710607 -0.2599882
## 1980 0.146713112 107.715 4.679489 0.150120378 0.7736924 -0.2565809
## 1981 0.046248339 110.837 4.708061 0.028571803 0.7601363 -0.2742575
## 1982 0.086095395 122.258 4.806134 0.098072912 0.7692956 -0.2622799
## 1983 0.126962628 140.247 4.943405 0.137271588 0.7772673 -0.2519710
## 1984 0.132058179 162.973 5.093585 0.150179389 0.7914807 -0.2338498
## 1985 0.128771016 188.975 5.241615 0.148030188 0.8068717 -0.2145906
## 1986 0.054991078 200.061 5.298622 0.057007589 0.8085004 -0.2125741
## 1987 0.112452790 227.419 5.426794 0.128171811 0.8213097 -0.1968551
## 1988 0.125422071 258.492 5.554865 0.128070615 0.8234878 -0.1942065
## 1989 0.177905413 308.709 5.732399 0.177534340 0.8231823 -0.1945776
## 1990 0.087989516 340.238 5.829645 0.097246287 0.8308377 -0.1853208
## 1991 -0.016925828 321.177 5.771992 -0.057653000 0.7976798 -0.2260480
## 1992 -0.104632530 281.417 5.639838 -0.132154818 0.7760252 -0.2535703
## 1993 -0.114224191 236.354 5.465331 -0.174506874 0.7306264 -0.3138530
## 1994 0.067610545 248.140 5.513993 0.048662422 0.7169128 -0.3328011
## 1995 0.090507146 282.264 5.642843 0.128849700 0.7449348 -0.2944585
## 1996 0.052136145 303.648 5.715869 0.073026333 0.7606603 -0.2735684
## 1997 0.035246622 325.309 5.784775 0.068906364 0.7866997 -0.2399086
## 1998 0.092857862 361.498 5.890257 0.105481009 0.7966933 -0.2272855
## 1999 0.080776157 392.268 5.971945 0.081688771 0.7974207 -0.2263729
## 2000 0.093569473 446.337 6.101074 0.129128992 0.8262868 -0.1908133
## 2001 0.056474859 468.642 6.149839 0.048764879 0.8199407 -0.1985233
## 2002 0.007026186 463.821 6.139499 -0.010340449 0.8058240 -0.2158900
## 2003 0.022991690 476.460 6.166384 0.026885072 0.8089675 -0.2119966
## 2004 0.055726272 507.308 6.229118 0.062734540 0.8146568 -0.2049883
## 2005 0.059106989 540.856 6.293153 0.064034755 0.8186812 -0.2000605
## 2006 0.098941494 601.057 6.398690 0.105536702 0.8240984 -0.1934653
## 2007 0.101314781 671.663 6.509757 0.111066955 0.8321745 -0.1837132
## 2008 0.044208570 698.543 6.548997 0.039240011 0.8280500 -0.1886817
## 2009 -0.107484629 609.262 6.412248 -0.136748349 0.8041693 -0.2179454
## 2010 0.069304057 652.365 6.480604 0.068355833 0.8034072 -0.2188937
## 2011 0.059867596 699.266 6.550031 0.069426992 0.8111241 -0.2093343
## 2012 -0.005981232 688.303 6.534229 -0.015802066 0.8031971 -0.2191551
## 2013 0.007785668 694.959 6.543853 0.009623703 0.8046748 -0.2173171
## 2014 0.078122357 760.186 6.633563 0.089710289 0.8140536 -0.2057291
## 2015 0.077939963 832.673 6.724641 0.091077868 0.8248191 -0.1925912
## 2016 0.055948364 874.583 6.773747 0.049106193 0.8191948 -0.1994334
## 2017 0.085444273 949.962 6.856422 0.082674782 0.8169292 -0.2022029
## 2018 0.072024332 1013.049 6.920720 0.064297890 0.8106415 -0.2099293
## Ips_dl I I_l I_dl r r_l
## 1971 0.0214663115 302.6504 5.712578 0.0154462681 -0.0102528 1.767075
## 1972 0.0057186925 317.1698 5.759437 0.0468588919 0.2553483 1.811449
## 1973 0.0321517144 336.3763 5.818230 0.0587931287 0.2687755 1.813641
## 1974 0.0138375982 330.8312 5.801608 -0.0166220261 -1.7013599 1.426140
## 1975 0.0121251007 345.2479 5.844263 0.0426543552 -4.8639601 0.000000
## 1976 0.0118279056 355.9925 5.874910 0.0306468496 -2.3704762 1.250899
## 1977 -0.0197862102 338.8970 5.825696 -0.0492131890 -0.8096805 1.620235
## 1978 -0.0130083005 311.7698 5.742265 -0.0834311643 0.6191451 1.869200
## 1979 0.0152955058 330.8213 5.801578 0.0593131021 2.2988137 2.099584
## 1980 0.0034072657 343.5682 5.839386 0.0378072399 1.0374160 1.931721
## 1981 -0.0176765360 327.0760 5.790193 -0.0491928764 3.6434272 2.252069
## 1982 0.0119775172 333.1827 5.808691 0.0184983705 4.4890714 2.337279
## 1983 0.0103089595 347.9647 5.852101 0.0434099926 1.9967780 2.061881
## 1984 0.0181212098 382.9302 5.947853 0.0957518218 4.1382443 2.302806
## 1985 0.0192591722 421.2209 6.043157 0.0953046144 6.0709939 2.479471
## 1986 0.0020165109 427.5180 6.057996 0.0148390417 3.5621475 2.243483
## 1987 0.0157190213 460.7958 6.132955 0.0749584742 6.6798672 2.529229
## 1988 0.0026485439 488.0878 6.190495 0.0575403820 4.4490284 2.333404
## 1989 -0.0003710733 543.6847 6.298370 0.1078742210 3.1521586 2.199014
## 1990 0.0092567716 549.8276 6.309605 0.0112352300 3.3684148 2.222716
## 1991 -0.0407271717 481.3599 6.176615 -0.1329896036 2.0481485 2.068394
## 1992 -0.0275222882 418.8286 6.037462 -0.1391535170 8.5801442 2.670286
## 1993 -0.0602826827 327.5727 5.791710 -0.2457516157 5.7500844 2.452215
## 1994 -0.0189481235 345.8997 5.846149 0.0544386834 6.9222154 2.548365
## 1995 0.0383425544 388.3390 5.961879 0.1157299236 6.2000995 2.490231
## 1996 0.0208901876 416.8776 6.032793 0.0709140359 6.9512395 2.550632
## 1997 0.0336597418 439.4505 6.085525 0.0527323456 5.0214553 2.387424
## 1998 0.0126231476 479.7018 6.173165 0.0876396119 4.1363784 2.302619
## 1999 0.0009126139 508.9243 6.232299 0.0591345796 4.0575320 2.294703
## 2000 0.0355595195 561.0884 6.329878 0.0975792534 3.8312613 2.271633
## 2001 -0.0077099802 569.5874 6.344912 0.0150336757 2.5794822 2.133390
## 2002 -0.0173666349 550.9435 6.311632 -0.0332799578 3.6930385 2.257274
## 2003 0.0038933823 567.3896 6.341046 0.0294139262 2.8785641 2.168199
## 2004 0.0070082676 602.0078 6.400270 0.0592242515 4.0930115 2.298273
## 2005 0.0049277669 634.9004 6.453468 0.0531977032 2.6928040 2.146722
## 2006 0.0065952079 696.5634 6.546159 0.0926907536 1.9012193 2.049650
## 2007 0.0097521741 761.8990 6.635814 0.0896551762 1.2881567 1.967408
## 2008 -0.0049685598 762.1695 6.636169 0.0003550083 0.6170645 1.868879
## 2009 -0.0292637199 646.9003 6.472192 -0.1639767687 0.8611468 1.905848
## 2010 -0.0009482246 688.0122 6.533807 0.0616142843 1.9186464 2.051891
## 2011 0.0095593959 735.8947 6.601087 0.0672805584 1.5043635 1.997190
## 2012 -0.0098208337 719.0855 6.577980 -0.0231067849 0.5865542 1.864160
## 2013 0.0018380347 723.6754 6.584343 0.0063626822 1.1768817 1.951728
## 2014 0.0115879320 776.5843 6.654905 0.0705622038 -0.0181891 1.765718
## 2015 0.0131379045 832.6730 6.724641 0.0697358141 -1.4435807 1.486226
## 2016 -0.0068421706 861.3096 6.758454 0.0338129984 -0.9416436 1.593779
## 2017 -0.0027694909 906.8976 6.810030 0.0515755142 -1.5007323 1.473212
## 2018 -0.0077264411 938.0898 6.843846 0.0338161463 -1.6386041 1.441104
## r_dl P P_l P_dl Pm Pm_l
## 1971 -0.325862298 12.58227 2.532288 0.069908401 14.04704 2.642412
## 1972 0.044373897 13.46513 2.600104 0.067815033 14.45788 2.671239
## 1973 0.002191831 14.42010 2.668623 0.068519614 16.35380 2.794461
## 1974 -0.387500988 15.81099 2.760705 0.092081917 22.49071 3.113102
## 1975 -1.426139927 18.08019 2.894817 0.134111557 23.53024 3.158286
## 1976 1.250899490 20.24517 3.007916 0.113099415 25.26007 3.229225
## 1977 0.369335840 22.39840 3.108990 0.101073508 28.29482 3.342679
## 1978 0.248964263 24.50667 3.198945 0.089955663 31.24073 3.441723
## 1979 0.230384445 26.46415 3.275791 0.076845913 36.23481 3.590020
## 1980 -0.167863211 29.26742 3.376475 0.100683841 41.39077 3.723058
## 1981 0.320348280 32.04795 3.467233 0.090758305 45.70721 3.822256
## 1982 0.085210268 34.67062 3.545893 0.078659254 52.26985 3.956420
## 1983 -0.275398867 38.17287 3.642125 0.096232636 59.28563 4.082367
## 1984 0.240925001 41.15731 3.717402 0.075276462 61.64259 4.121353
## 1985 0.176665897 43.83812 3.780504 0.063102190 63.84213 4.156413
## 1986 -0.235988162 46.67334 3.843173 0.062669320 59.63044 4.088166
## 1987 0.285745452 48.86531 3.889068 0.045894723 61.92990 4.126003
## 1988 -0.195824576 52.09386 3.953047 0.063979207 64.33167 4.164052
## 1989 -0.134390178 56.14807 4.027992 0.074945345 68.30151 4.223932
## 1990 0.023702376 61.46128 4.118407 0.090414923 70.56268 4.256501
## 1991 -0.154321997 66.67209 4.199786 0.081379093 71.12698 4.264467
## 1992 0.601892004 67.56235 4.213051 0.013264500 69.36426 4.239372
## 1993 -0.218071226 69.36396 4.239367 0.026316509 79.75413 4.378949
## 1994 0.096149450 71.16600 4.265015 0.025647756 82.18196 4.408936
## 1995 -0.058133797 73.87319 4.302350 0.037334761 86.07130 4.455176
## 1996 0.060401184 74.61831 4.312386 0.010035943 82.76236 4.415973
## 1997 -0.163208079 75.75408 4.327492 0.015106446 83.09211 4.419950
## 1998 -0.084804914 76.37505 4.335656 0.008163736 82.23714 4.409607
## 1999 -0.007915619 77.05211 4.344482 0.008825917 83.18564 4.421075
## 2000 -0.023070198 78.19399 4.359193 0.014710872 86.58519 4.461129
## 2001 -0.138243044 80.12295 4.383562 0.024369486 90.03574 4.500207
## 2002 0.123883643 81.36464 4.398941 0.015378437 90.15538 4.501535
## 2003 -0.089074766 82.75772 4.415917 0.016976585 88.28384 4.480557
## 2004 0.130074011 83.01769 4.419054 0.003136387 88.94379 4.488005
## 2005 -0.151550876 83.57323 4.425723 0.006669474 93.03483 4.532974
## 2006 -0.097072533 85.04848 4.443221 0.017498209 96.13568 4.565760
## 2007 -0.082241191 87.46827 4.471276 0.028054689 96.63150 4.570905
## 2008 -0.098529754 90.31349 4.503287 0.032010776 100.85377 4.613672
## 2009 0.036969206 92.45253 4.526695 0.023408445 101.16954 4.616798
## 2010 0.146043487 93.33367 4.536181 0.009485545 100.94226 4.614549
## 2011 -0.054701090 94.35030 4.547014 0.010833607 100.74756 4.612618
## 2012 -0.133030354 95.29154 4.556941 0.009926512 99.52943 4.600453
## 2013 0.087567873 96.17979 4.566219 0.009278304 96.92233 4.573910
## 2014 -0.186009243 97.85189 4.583455 0.017235662 98.64561 4.591534
## 2015 -0.279492964 100.00000 4.605170 0.021715221 100.00000 4.605170
## 2016 0.107553724 101.49573 4.620017 0.014846524 98.42449 4.589290
## 2017 -0.120567148 103.71189 4.641617 0.021600038 102.36383 4.628533
## 2018 -0.032108587 106.12498 4.664617 0.023000742 108.54756 4.687188
## Pm_dl Px Px_l Px_dl X X_l
## 1971 0.049727491 18.61467 2.923950 0.041043614 252.884 5.532931
## 1972 0.028827613 19.12309 2.950896 0.026946049 267.804 5.590255
## 1973 0.123221210 21.20453 3.054215 0.103318690 304.493 5.718648
## 1974 0.318641735 26.73354 3.285919 0.231704089 320.631 5.770291
## 1975 0.045184052 30.24986 3.409491 0.123572423 290.812 5.672677
## 1976 0.070938486 32.21488 3.472428 0.062936943 303.317 5.714778
## 1977 0.113454009 34.20260 3.532302 0.059873121 307.866 5.729665
## 1978 0.099043852 36.44549 3.595818 0.063516065 331.880 5.804773
## 1979 0.148297482 41.46811 3.724925 0.129107183 352.125 5.863986
## 1980 0.133037760 46.47039 3.838815 0.113890597 350.012 5.857967
## 1981 0.099198223 50.30225 3.918050 0.079234409 360.868 5.888512
## 1982 0.134163609 55.83020 4.022315 0.104265130 385.273 5.953952
## 1983 0.125947117 62.79176 4.139824 0.117508854 421.897 6.044761
## 1984 0.038986146 67.06283 4.205630 0.065806139 451.778 6.113191
## 1985 0.035060263 69.76094 4.245074 0.039444275 457.517 6.125814
## 1986 -0.068247129 68.74236 4.230366 -0.014708552 473.437 6.160019
## 1987 0.037836943 70.65300 4.257781 0.027414862 492.547 6.199590
## 1988 0.038048873 74.13755 4.305922 0.048141608 508.982 6.232413
## 1989 0.059879889 78.90452 4.368238 0.062316348 525.155 6.263693
## 1990 0.032569484 80.13184 4.383673 0.015434842 537.276 6.286512
## 1991 0.007965369 81.70890 4.403163 0.019489634 526.714 6.266658
## 1992 -0.025094908 79.44237 4.375032 -0.028131070 538.077 6.288002
## 1993 0.139576690 86.36888 4.458627 0.083595543 580.077 6.363161
## 1994 0.029987303 89.55671 4.494872 0.036244682 658.806 6.490429
## 1995 0.046240204 95.94384 4.563763 0.068890879 733.057 6.597223
## 1996 -0.039202696 91.49848 4.516322 -0.047440655 765.698 6.640788
## 1997 0.003976466 91.27305 4.513856 -0.002466711 872.367 6.771210
## 1998 -0.010342737 90.11840 4.501124 -0.012731247 951.101 6.857620
## 1999 0.011467668 88.61656 4.484319 -0.016805556 1019.455 6.927023
## 2000 0.040054090 90.65209 4.507029 0.022710151 1141.720 7.040291
## 2001 0.039077914 92.95377 4.532102 0.025073338 1147.692 7.045508
## 2002 0.001327966 91.15152 4.512523 -0.019579114 1167.127 7.062300
## 2003 -0.020977557 88.88088 4.487297 -0.025226165 1220.375 7.106913
## 2004 0.007447498 88.50450 4.483053 -0.004243579 1358.010 7.213776
## 2005 0.044969280 90.82846 4.508973 0.025919236 1444.621 7.275602
## 2006 0.032786583 93.95297 4.542794 0.033821691 1568.721 7.358016
## 2007 0.005144249 95.79878 4.562250 0.019455633 1636.907 7.400564
## 2008 0.042766945 99.68269 4.601992 0.039742047 1675.647 7.423955
## 2009 0.003126045 101.00089 4.615129 0.013137279 1435.624 7.269355
## 2010 -0.002249095 100.36766 4.608840 -0.006289296 1591.154 7.372215
## 2011 -0.001930614 99.46664 4.599822 -0.009017709 1697.165 7.436714
## 2012 -0.012164654 98.31245 4.588151 -0.011671632 1716.098 7.447808
## 2013 -0.026543430 96.00110 4.564360 -0.023791004 1697.968 7.437188
## 2014 0.017623819 97.96081 4.584567 0.020207814 1770.604 7.479076
## 2015 0.013636438 100.00000 4.605170 0.020602696 1881.745 7.539955
## 2016 -0.015880563 98.74752 4.592566 -0.012603866 1934.327 7.567515
## 2017 0.039243799 101.78997 4.622912 0.030345241 2017.186 7.609459
## 2018 0.058655030 106.36273 4.666855 0.043943716 2080.882 7.640547
## X_dl M M_l M_dl rulc rulc_l
## 1971 0.046885769 319.580 5.767008 -0.0335566646 0.6685615 -0.4026269
## 1972 0.057324484 332.363 5.806228 0.0392201114 0.6593773 -0.4164594
## 1973 0.128392729 355.296 5.872951 0.0667234998 0.6353216 -0.4536239
## 1974 0.051642831 390.471 5.967354 0.0944024579 0.6365297 -0.4517242
## 1975 -0.097613919 376.805 5.931728 -0.0356258905 0.6405354 -0.4454509
## 1976 0.042101453 410.717 6.017904 0.0861766006 0.6631775 -0.4107125
## 1977 0.014886160 395.109 5.979162 -0.0387427366 0.6834271 -0.3806353
## 1978 0.075108834 373.379 5.922594 -0.0565676866 0.6730474 -0.3959396
## 1979 0.059212768 416.690 6.032343 0.1097485505 0.6544557 -0.4239514
## 1980 -0.006018787 418.357 6.036335 0.0039925949 0.6275572 -0.4659204
## 1981 0.030544801 402.248 5.997069 -0.0392663212 0.6223562 -0.4742427
## 1982 0.065439933 421.294 6.043331 0.0462621134 0.5980164 -0.5141372
## 1983 0.090809035 425.583 6.053460 0.0101290664 0.5724555 -0.5578203
## 1984 0.068429700 448.153 6.105135 0.0516746983 0.5549207 -0.5889301
## 1985 0.012623134 483.431 6.180909 0.0757739033 0.5560023 -0.5869828
## 1986 0.034204810 500.664 6.215935 0.0350266221 0.5513524 -0.5953811
## 1987 0.039571035 537.406 6.286754 0.0708186436 0.5491175 -0.5994428
## 1988 0.032822765 564.381 6.335730 0.0489756944 0.5397320 -0.6166826
## 1989 0.031280805 607.886 6.409987 0.0742578090 0.5427295 -0.6111442
## 1990 0.022818472 614.758 6.421229 0.0112413300 0.5524896 -0.5933206
## 1991 -0.019854222 584.636 6.370989 -0.0502392631 0.5358058 -0.6239835
## 1992 0.021343966 594.243 6.387288 0.0162988953 0.5316656 -0.6317406
## 1993 0.075159181 578.024 6.359615 -0.0276729363 0.5130653 -0.6673522
## 1994 0.127268252 652.322 6.480538 0.1209229147 0.5047564 -0.6836794
## 1995 0.106794356 698.694 6.549213 0.0686745731 0.4830994 -0.7275329
## 1996 0.043564375 722.970 6.583368 0.0341548494 0.5016620 -0.6898288
## 1997 0.130422371 812.118 6.699646 0.1162779223 0.5013247 -0.6905014
## 1998 0.086410054 903.841 6.806653 0.1070078102 0.4833213 -0.7270735
## 1999 0.069403189 950.152 6.856622 0.0499685118 0.4865290 -0.7204587
## 2000 0.113267727 1061.588 6.967521 0.1108992075 0.4989060 -0.6953375
## 2001 0.005217072 1044.463 6.951258 -0.0162630225 0.5094565 -0.6744108
## 2002 0.016792204 1031.762 6.939023 -0.0122348574 0.5047313 -0.6837291
## 2003 0.044613015 1071.674 6.976977 0.0379538916 0.4979269 -0.6973019
## 2004 0.106862204 1144.036 7.042318 0.0653404491 0.4918772 -0.7095263
## 2005 0.061826611 1223.846 7.109754 0.0674359982 0.4900958 -0.7131543
## 2006 0.082413634 1326.752 7.190489 0.0807354910 0.4805226 -0.7328810
## 2007 0.042547848 1428.646 7.264482 0.0739932924 0.4847398 -0.7241430
## 2008 0.023390874 1478.613 7.298860 0.0343773436 0.4889253 -0.7155456
## 2009 -0.154599761 1265.455 7.143187 -0.1556727449 0.4958967 -0.7013876
## 2010 0.102859941 1409.384 7.250908 0.1077209882 0.4763297 -0.7416450
## 2011 0.064499673 1512.247 7.321352 0.0704438947 0.4807147 -0.7324814
## 2012 0.011093897 1524.315 7.329300 0.0079485046 0.4960034 -0.7011725
## 2013 -0.010620867 1524.757 7.329590 0.0002899243 0.4997113 -0.6937247
## 2014 0.041888489 1618.369 7.389174 0.0595837989 0.4934150 -0.7064047
## 2015 0.060878807 1711.027 7.444849 0.0556749231 0.4798267 -0.7343302
## 2016 0.027559925 1776.564 7.482436 0.0375873867 0.4801786 -0.7335972
## 2017 0.041944009 1861.048 7.528895 0.0464586082 0.4769229 -0.7404004
## 2018 0.031088371 1927.637 7.564050 0.0351551305 0.4776647 -0.7388462
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1971 0.0225045344 8.412019 2.129662 0.092412936 72.14548 4.278685
## 1972 -0.0138325278 8.878602 2.183644 0.053982505 72.16197 4.278913
## 1973 -0.0371644823 9.161402 2.214999 0.031355132 73.42604 4.296279
## 1974 0.0018997615 10.064163 2.308981 0.093981678 73.66458 4.299522
## 1975 0.0062732722 11.580999 2.449366 0.140384829 73.51365 4.297471
## 1976 0.0347383629 13.426139 2.597203 0.147837778 72.95724 4.289874
## 1977 0.0300771836 15.307673 2.728354 0.131150691 70.64487 4.257665
## 1978 -0.0153042431 16.494147 2.803006 0.074651419 70.73167 4.258893
## 1979 -0.0280118533 17.319615 2.851840 0.048834060 71.93875 4.275815
## 1980 -0.0419689866 18.366981 2.910555 0.058714854 72.26584 4.280351
## 1981 -0.0083222214 19.945242 2.992991 0.082436083 71.15458 4.264855
## 1982 -0.0398945185 20.733595 3.031755 0.038764735 71.25545 4.266271
## 1983 -0.0436830812 21.852272 3.084305 0.052549555 71.66249 4.271967
## 1984 -0.0311098327 22.839044 3.128472 0.044166630 73.39964 4.295919
## 1985 0.0019472940 24.374098 3.193521 0.065049484 73.52200 4.297585
## 1986 -0.0083982918 25.733459 3.247792 0.054271028 74.22985 4.307166
## 1987 -0.0040617421 26.832800 3.289625 0.041832981 75.27893 4.321200
## 1988 -0.0172397866 28.116721 3.336364 0.046739421 75.47812 4.323843
## 1989 0.0055384210 30.473218 3.416848 0.080483766 75.53893 4.324648
## 1990 0.0178235622 33.956717 3.525087 0.108238485 74.46685 4.310354
## 1991 -0.0306628548 35.723292 3.575803 0.050716239 73.17023 4.292789
## 1992 -0.0077571508 35.920576 3.581310 0.005507349 73.28309 4.294330
## 1993 -0.0356115393 35.588240 3.572015 -0.009295030 73.12428 4.292160
## 1994 -0.0163271797 35.921493 3.581336 0.009320577 75.88911 4.329273
## 1995 -0.0438535687 35.688090 3.574817 -0.006518808 77.67602 4.352547
## 1996 0.0377041357 37.433166 3.622557 0.047740078 78.63208 4.364780
## 1997 -0.0006725949 37.977388 3.636991 0.014433851 81.00209 4.394475
## 1998 -0.0365721701 36.913691 3.608583 -0.028408434 83.04822 4.419421
## 1999 0.0066148801 37.488091 3.624023 0.015440797 84.99335 4.442573
## 2000 0.0251211505 39.011455 3.663855 0.039832022 87.25388 4.468822
## 2001 0.0209266899 40.819157 3.709152 0.045296176 86.84540 4.464130
## 2002 -0.0093182770 41.067279 3.715212 0.006060160 88.07675 4.478209
## 2003 -0.0135728309 41.207300 3.718615 0.003403755 89.62573 4.495642
## 2004 -0.0122243158 40.834507 3.709527 -0.009087929 93.03441 4.532969
## 2005 -0.0036280819 40.958890 3.712569 0.003041392 94.80764 4.551850
## 2006 -0.0197266918 40.867715 3.710340 -0.002228483 97.19339 4.576703
## 2007 0.0087379995 42.399352 3.747133 0.036792689 98.11528 4.586143
## 2008 0.0085974314 44.156551 3.787741 0.040608207 96.40656 4.568574
## 2009 0.0141579797 45.846906 3.825308 0.037566425 92.72172 4.529603
## 2010 -0.0402574098 44.457597 3.794536 -0.030771864 97.37172 4.578536
## 2011 0.0091636028 45.355573 3.814533 0.019997209 98.28587 4.587880
## 2012 0.0313089125 47.264926 3.855768 0.041235425 96.52949 4.569849
## 2013 0.0074478238 48.062133 3.872495 0.016726127 96.36655 4.568159
## 2014 -0.0126800092 48.281587 3.877050 0.004555652 97.45093 4.579349
## 2015 -0.0279254995 47.982674 3.870840 -0.006210279 100.00000 4.605170
## 2016 0.0007329659 48.736073 3.886419 0.015579490 100.38808 4.609043
## 2017 -0.0068031477 49.462577 3.901216 0.014796890 100.37384 4.608902
## 2018 0.0015541790 50.692161 3.925771 0.024554921 100.56609 4.610815
## Tau_dl dPxdPm dPdPm Trade
## 1971 -0.0109402676 -0.0086838773 0.0201809104 0.3464662
## 1972 0.0002285232 -0.0018815639 0.0389874200 0.3550662
## 1973 0.0173654991 -0.0199025196 -0.0547015956 0.3753262
## 1974 0.0032433694 -0.0869376466 -0.2265598185 0.3919729
## 1975 -0.0020509522 0.0783883706 0.0889275042 0.3586776
## 1976 -0.0075975693 -0.0080015424 0.0421609292 0.3794412
## 1977 -0.0322080614 -0.0535808873 -0.0123805008 0.3796387
## 1978 0.0012280044 -0.0355277862 -0.0090881890 0.3741377
## 1979 0.0169215189 -0.0191902991 -0.0714515687 0.3929227
## 1980 0.0045364836 -0.0191471627 -0.0323539195 0.3829336
## 1981 -0.0154967465 -0.0199638147 -0.0084399187 0.3810902
## 1982 0.0014165984 -0.0298984793 -0.0555043552 0.3978216
## 1983 0.0056960576 -0.0084382628 -0.0297144811 0.4102047
## 1984 0.0239516052 0.0268199932 0.0362903164 0.4179165
## 1985 0.0016657250 0.0043840123 0.0280419269 0.4277239
## 1986 0.0095816761 0.0535385772 0.1309164491 0.4311895
## 1987 0.0140338981 -0.0104220811 0.0080577796 0.4411181
## 1988 0.0026424955 0.0100927348 0.0259303343 0.4482396
## 1989 0.0008053330 0.0024364589 0.0150654555 0.4609245
## 1990 -0.0142941064 -0.0171346419 0.0578454383 0.4651407
## 1991 -0.0175653412 0.0115242652 0.0734137247 0.4539161
## 1992 0.0015412408 -0.0030361623 0.0383594076 0.4679020
## 1993 -0.0021694859 -0.0559811470 -0.1132601803 0.4886490
## 1994 0.0371127770 0.0062573794 -0.0043395463 0.5320828
## 1995 0.0232733340 0.0226506747 -0.0089054434 0.5586950
## 1996 0.0122332194 -0.0082379594 0.0492386382 0.5716732
## 1997 0.0296952350 -0.0064431776 0.0111299801 0.6274255
## 1998 0.0249464307 -0.0023885096 0.0185064736 0.6626793
## 1999 0.0231515546 -0.0282732247 -0.0026417515 0.6745615
## 2000 0.0262490494 -0.0173439383 -0.0253432176 0.7195272
## 2001 -0.0046924955 -0.0140045758 -0.0147084282 0.7055284
## 2002 0.0140790817 -0.0209070800 0.0140504714 0.6924882
## 2003 0.0174338188 -0.0042486086 0.0379541422 0.7059803
## 2004 0.0373270390 -0.0116910775 -0.0043111114 0.7387047
## 2005 0.0188805204 -0.0190500436 -0.0382998062 0.7656660
## 2006 0.0248527309 0.0010351082 -0.0152883736 0.7942460
## 2007 0.0094404157 0.0143113833 0.0229104401 0.8130067
## 2008 -0.0175688933 -0.0030248979 -0.0107561690 0.8385642
## 2009 -0.0389715374 0.0100112340 0.0202824008 0.7498523
## 2010 0.0489330553 -0.0040402011 0.0117346402 0.7844367
## 2011 0.0093445468 -0.0070870957 0.0127642202 0.8141913
## 2012 -0.0180317076 0.0004930215 0.0220911660 0.8272758
## 2013 -0.0016894202 0.0027524268 0.0358217339 0.8139062
## 2014 0.0111897381 0.0025839947 -0.0003881575 0.8330074
## 2015 0.0258212598 0.0069662584 0.0080787830 0.8457137
## 2016 0.0038732911 0.0032766972 0.0307270872 0.8529364
## 2017 -0.0001419024 -0.0088985580 -0.0176437609 0.8704068
## 2018 0.0019135715 -0.0147113145 -0.0356542883 0.8800640
adf.SWE.WS <- adf.test((SWE$WS), alternative = c("stationary"), k = 2)
adf.SWE.PS <- adf.test((SWE$PS), alternative = c("stationary"), k = 2)
adf.SWE.Y <- adf.test((SWE$Y), alternative = c("stationary"), k = 2)
adf.SWE.Yrw <- adf.test((SWE$Yrw), alternative = c("stationary"), k = 2)
adf.SWE.r <- adf.test((SWE$r), alternative = c("stationary"), k = 2)
adf.SWE.R <- adf.test((SWE$R), alternative = c("stationary"), k = 2)
adf.SWE.Tau <- adf.test((SWE$Tau), alternative = c("stationary"), k = 2)
adf.SWE.rulc <- adf.test((SWE$rulc), alternative = c("stationary"), k = 2)
adf.SWE.ulc <- adf.test((SWE$ulc), alternative = c("stationary"), k = 2)
adf.SWE.P <- adf.test((SWE$P), alternative = c("stationary"), k = 2)
adf.SWE.Pm <- adf.test((SWE$Pm), alternative = c("stationary"), k = 2)
adf.SWE.Px <- adf.test((SWE$Px), alternative = c("stationary"), k = 2)
adf.SWE.X <- adf.test((SWE$X), alternative = c("stationary"), k = 2)
adf.SWE.M <- adf.test((SWE$M), alternative = c("stationary"), k = 2)
adf.SWE.I <- adf.test((SWE$I), alternative = c("stationary"), k = 2)
adf.SWE.C <- adf.test((SWE$C), alternative = c("stationary"), k = 2)
adf.SWE.Ipr <- adf.test((SWE$Ipr), alternative = c("stationary"), k = 2)
adf.SWE.Ips <- adf.test((SWE$Ips), alternative = c("stationary"), k = 2)
adf.SWE.It <- adf.test((SWE$It), alternative = c("stationary"), k = 2)
adf.SWE.Itcurr <- adf.test((SWE$Itcurr), alternative = c("stationary"), k = 2)
adf.SWE.Yf <- adf.test((SWE$Yf), alternative = c("stationary"), k = 2)
adf.SWE.W <- adf.test((SWE$W), alternative = c("stationary"), k = 2)
adf.SWE.WS.pval <- adf.SWE.WS$p.value
adf.SWE.PS.pval <- adf.SWE.PS$p.value
adf.SWE.Y.pval <- adf.SWE.Y$p.value
adf.SWE.Yrw.pval <- adf.SWE.Yrw$p.value
adf.SWE.r.pval <- adf.SWE.r$p.value
adf.SWE.R.pval <- adf.SWE.R$p.value
adf.SWE.Tau.pval <- adf.SWE.Tau$p.value
adf.SWE.rulc.pval <- adf.SWE.rulc$p.value
adf.SWE.ulc.pval <- adf.SWE.ulc$p.value
adf.SWE.P.pval <- adf.SWE.P$p.value
adf.SWE.Pm.pval <- adf.SWE.Pm$p.value
adf.SWE.Px.pval <- adf.SWE.Px$p.value
adf.SWE.X.pval <- adf.SWE.X$p.value
adf.SWE.M.pval <- adf.SWE.M$p.value
adf.SWE.I.pval <- adf.SWE.I$p.value
adf.SWE.C.pval <- adf.SWE.C$p.value
adf.SWE.Ipr.pval <- adf.SWE.Ipr$p.value
adf.SWE.Ips.pval <- adf.SWE.Ips$p.value
adf.SWE.It.pval <- adf.SWE.It$p.value
adf.SWE.Itcurr.pval <- adf.SWE.Itcurr$p.value
adf.SWE.Yf.pval <- adf.SWE.Yf$p.value
adf.SWE.W.pval <- adf.SWE.W$p.value
adf.SWE_non <- rbind(adf.SWE.WS.pval,adf.SWE.PS.pval,adf.SWE.Y.pval,adf.SWE.Yrw.pval,adf.SWE.r.pval,adf.SWE.R.pval,adf.SWE.Tau.pval,adf.SWE.rulc.pval,adf.SWE.ulc.pval,adf.SWE.P.pval,adf.SWE.Pm.pval,adf.SWE.Px.pval,adf.SWE.X.pval,adf.SWE.M.pval,adf.SWE.I.pval,adf.SWE.C.pval,adf.SWE.Ipr.pval,adf.SWE.Ips.pval,adf.SWE.It.pval,adf.SWE.Itcurr.pval,adf.SWE.Yf.pval,adf.SWE.W.pval)
colnames(adf.SWE_non) <- c("SWE")
rownames(adf.SWE_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.SWE_non
## SWE
## WS 0.55594128
## PS 0.55594128
## Y 0.94008888
## Yrw 0.24597992
## r 0.89241127
## R 0.07988192
## Tau 0.48520648
## rulc 0.81426862
## ulc 0.77220767
## P 0.79102370
## Pm 0.56026960
## Px 0.57393598
## X 0.66490600
## M 0.92955009
## I 0.62743069
## C 0.95415156
## Ipr 0.97585614
## Ips 0.07314448
## It 0.79151686
## Itcurr 0.99000000
## Yf 0.90696403
## W 0.93576868
adf.SWE.WS_dl <- adf.test((SWE$WS_dl), alternative = c("stationary"), k = 2)
adf.SWE.PS_dl <- adf.test((SWE$PS_dl), alternative = c("stationary"), k = 2)
adf.SWE.Y_dl <- adf.test((SWE$Y_dl), alternative = c("stationary"), k = 2)
adf.SWE.Yrw_dl <- adf.test((SWE$Yrw_dl), alternative = c("stationary"), k = 2)
adf.SWE.r_dl <- adf.test((SWE$r_dl), alternative = c("stationary"), k = 2)
adf.SWE.R_dl <- adf.test((SWE$R_dl), alternative = c("stationary"), k = 2)
adf.SWE.Tau_dl <- adf.test((SWE$Tau_dl), alternative = c("stationary"), k = 2)
adf.SWE.rulc_dl <- adf.test((SWE$rulc_dl), alternative = c("stationary"), k = 2)
adf.SWE.ulc_dl <- adf.test((SWE$ulc_dl), alternative = c("stationary"), k = 2)
adf.SWE.P_dl <- adf.test((SWE$P_dl), alternative = c("stationary"), k = 2)
adf.SWE.Pm_dl <- adf.test((SWE$Pm_dl), alternative = c("stationary"), k = 2)
adf.SWE.Px_dl <- adf.test((SWE$Px_dl), alternative = c("stationary"), k = 2)
adf.SWE.X_dl <- adf.test((SWE$X_dl), alternative = c("stationary"), k = 2)
adf.SWE.M_dl <- adf.test((SWE$M_dl), alternative = c("stationary"), k = 2)
adf.SWE.I_dl <- adf.test((SWE$I_dl), alternative = c("stationary"), k = 2)
adf.SWE.C_dl <- adf.test((SWE$C_dl), alternative = c("stationary"), k = 2)
adf.SWE.Ipr_dl <- adf.test((SWE$Ipr_dl), alternative = c("stationary"), k = 2)
adf.SWE.Ips_dl <- adf.test((SWE$Ips_dl), alternative = c("stationary"), k = 2)
adf.SWE.It_dl <- adf.test((SWE$It_dl), alternative = c("stationary"), k = 2)
adf.SWE.Itcurr_dl <- adf.test((SWE$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.SWE.Yf_dl <- adf.test((SWE$Yf_dl), alternative = c("stationary"), k = 2)
adf.SWE.W_dl <- adf.test((SWE$W_dl), alternative = c("stationary"), k = 2)
adf.SWE.WS_dl.pval <- adf.SWE.WS_dl$p.value
adf.SWE.PS_dl.pval <- adf.SWE.PS_dl$p.value
adf.SWE.Y_dl.pval <- adf.SWE.Y_dl$p.value
adf.SWE.Yrw_dl.pval <- adf.SWE.Yrw_dl$p.value
adf.SWE.r_dl.pval <- adf.SWE.r_dl$p.value
adf.SWE.R_dl.pval <- adf.SWE.R_dl$p.value
adf.SWE.Tau_dl.pval <- adf.SWE.Tau_dl$p.value
adf.SWE.rulc_dl.pval <- adf.SWE.rulc_dl$p.value
adf.SWE.ulc_dl.pval <- adf.SWE.ulc_dl$p.value
adf.SWE.P_dl.pval <- adf.SWE.P_dl$p.value
adf.SWE.Pm_dl.pval <- adf.SWE.Pm_dl$p.value
adf.SWE.Px_dl.pval <- adf.SWE.Px_dl$p.value
adf.SWE.X_dl.pval <- adf.SWE.X_dl$p.value
adf.SWE.M_dl.pval <- adf.SWE.M_dl$p.value
adf.SWE.I_dl.pval <- adf.SWE.I_dl$p.value
adf.SWE.C_dl.pval <- adf.SWE.C_dl$p.value
adf.SWE.Ipr_dl.pval <- adf.SWE.Ipr_dl$p.value
adf.SWE.Ips_dl.pval <- adf.SWE.Ips_dl$p.value
adf.SWE.It_dl.pval <- adf.SWE.It_dl$p.value
adf.SWE.Itcurr_dl.pval <- adf.SWE.Itcurr_dl$p.value
adf.SWE.Yf_dl.pval <- adf.SWE.Yf_dl$p.value
adf.SWE.W_dl.pval <- adf.SWE.W_dl$p.value
adf.SWE_dl <- rbind(adf.SWE.WS_dl.pval,adf.SWE.PS_dl.pval,adf.SWE.Y_dl.pval,adf.SWE.Yrw_dl.pval,adf.SWE.r_dl.pval,adf.SWE.R_dl.pval,adf.SWE.Tau_dl.pval,adf.SWE.rulc_dl.pval,adf.SWE.ulc_dl.pval,adf.SWE.P_dl.pval,adf.SWE.Pm_dl.pval,adf.SWE.Px_dl.pval,adf.SWE.X_dl.pval,adf.SWE.M_dl.pval,adf.SWE.I_dl.pval,adf.SWE.C_dl.pval,adf.SWE.Ipr_dl.pval,adf.SWE.Ips_dl.pval,adf.SWE.It_dl.pval,adf.SWE.Itcurr_dl.pval,adf.SWE.Yf_dl.pval,adf.SWE.W_dl.pval)
colnames(adf.SWE_dl) <- c("SWE")
rownames(adf.SWE_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.SWE_dl
## SWE
## dlog(WS) 0.01000000
## dlog(PS) 0.01000000
## dlog(Y) 0.01462179
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.01000000
## dlog(Tau) 0.03952552
## dlog(rulc) 0.01000000
## dlog(ulc) 0.01519439
## dlog(P) 0.18574975
## dlog(Pm) 0.02878673
## dlog(Px) 0.01066969
## dlog(X) 0.01078184
## dlog(M) 0.02289827
## dlog(I) 0.02510804
## dlog(C) 0.12152481
## dlog(Ipr) 0.04288613
## dlog(Ips) 0.04894810
## dlog(It) 0.01741872
## dlog(Itcurr) 0.03416446
## dlog(Yf) 0.01000000
## dlog(W) 0.04768002
adf.SWE <- NULL
adf.SWE <- rbind(adf.SWE_non,adf.SWE_dl)
#Consumption (C)
SWE_consumption <- dynlm(SWE$C_dl~SWE$R_dl+SWE$W_dl)
SWE_CR <- summary(SWE_consumption)$coefficients["SWE$R_dl","Estimate"]
SWE_CW <- summary(SWE_consumption)$coefficients["SWE$W_dl","Estimate"]
SWE_Ceffekt <- (SWE_CR*mean(SWE$C/SWE$R))-(SWE_CW*mean(SWE$C/SWE$W))
summary(SWE_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$C_dl ~ SWE$R_dl + SWE$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0254030 -0.0099102 0.0004064 0.0077436 0.0271217
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.008936 0.002396 3.730 0.000535 ***
## SWE$R_dl 0.108093 0.035328 3.060 0.003726 **
## SWE$W_dl 0.519053 0.079267 6.548 0.0000000478 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01322 on 45 degrees of freedom
## Multiple R-squared: 0.5068, Adjusted R-squared: 0.4849
## F-statistic: 23.12 on 2 and 45 DF, p-value: 0.0000001237
#Investments (I)
SWE_investment <- dynlm(SWE$I_dl~SWE$PS_dl+SWE$Y_dl)
SWE_iPS <- summary(SWE_investment)$coefficients["SWE$PS_dl","Estimate"]
SWE_Ieffekt <- SWE_iPS*mean(SWE$I/SWE$R)
summary(SWE_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$I_dl ~ SWE$PS_dl + SWE$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.088815 -0.014984 0.003028 0.019672 0.065384
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.048655 0.008049 -6.045 0.00000026792251815 ***
## SWE$PS_dl -0.570816 0.138391 -4.125 0.000158 ***
## SWE$Y_dl 3.470529 0.288991 12.009 0.00000000000000124 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03688 on 45 degrees of freedom
## Multiple R-squared: 0.7624, Adjusted R-squared: 0.7519
## F-statistic: 72.22 on 2 and 45 DF, p-value: 0.000000000000009006
#Price deflator (P)
SWE_deflator <- dynlm(SWE$P_dl~L(SWE$ulc_dl)+SWE$Pm_dl)
SWE_ePULC <- summary(SWE_deflator)$coefficients["L(SWE$ulc_dl)","Estimate"]
summary(SWE_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$P_dl ~ L(SWE$ulc_dl) + SWE$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.033673 -0.011688 -0.000383 0.014266 0.034113
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.013686 0.003583 3.820 0.000407 ***
## L(SWE$ulc_dl) 0.636345 0.066840 9.520 0.00000000000237 ***
## SWE$Pm_dl 0.164019 0.042191 3.887 0.000330 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0173 on 45 degrees of freedom
## Multiple R-squared: 0.7772, Adjusted R-squared: 0.7673
## F-statistic: 78.5 on 2 and 45 DF, p-value: 0.000000000000002125
#Export price deflator (Px)
SWE_exportdeflator <- dynlm(SWE$Px_dl~SWE$ulc_dl+SWE$Pm_dl)
SWE_ePX <- summary(SWE_exportdeflator)$coefficients["SWE$ulc_dl","Estimate"]
summary(SWE_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$Px_dl ~ SWE$ulc_dl + SWE$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042075 -0.010454 -0.001784 0.009900 0.068791
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0003758 0.0038648 -0.097 0.9230
## SWE$ulc_dl 0.1634180 0.0720955 2.267 0.0283 *
## SWE$Pm_dl 0.7129935 0.0455087 15.667 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01866 on 45 degrees of freedom
## Multiple R-squared: 0.8785, Adjusted R-squared: 0.8731
## F-statistic: 162.6 on 2 and 45 DF, p-value: < 0.00000000000000022
#Exports (X)
SWE_exports <- dynlm(SWE$X_dl~L(SWE$dPxdPm)+SWE$Yrw_dl)
SWE_eXP <- summary(SWE_exports)$coefficients["L(SWE$dPxdPm)","Estimate"]
SWE_Xeffekt <- -(SWE_eXP*SWE_ePX*(1/(1-SWE_ePULC))*mean(SWE$Yf/SWE$Y)*(mean(SWE$X/SWE$Y)/mean(SWE$rulc)))
summary(SWE_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$X_dl ~ L(SWE$dPxdPm) + SWE$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.079333 -0.025656 -0.001319 0.029532 0.078020
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.01113 0.01066 -1.044 0.3022
## L(SWE$dPxdPm) -0.51756 0.22256 -2.326 0.0246 *
## SWE$Yrw_dl 2.02626 0.35056 5.780 0.000000661 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03816 on 45 degrees of freedom
## Multiple R-squared: 0.4754, Adjusted R-squared: 0.452
## F-statistic: 20.39 on 2 and 45 DF, p-value: 0.0000004977
#Imports (M)
SWE_imports <- dynlm(SWE$M_dl~SWE$dPdPm+L(SWE$Y_l))
SWE_eMP <- summary(SWE_imports)$coefficients["SWE$dPdPm","Estimate"]
SWE_eMP <- 0
SWE_Meffekt <- -(SWE_eMP*SWE_ePULC*(1/(1-SWE_ePULC))*mean(SWE$Yf/SWE$Y)*(mean(SWE$M/SWE$Y)/mean(SWE$rulc)))
summary(SWE_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$M_dl ~ SWE$dPdPm + L(SWE$Y_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.195649 -0.033081 0.009609 0.031311 0.085026
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.15833 0.21025 -0.753 0.455
## SWE$dPdPm -0.21598 0.15155 -1.425 0.161
## L(SWE$Y_l) 0.02475 0.02660 0.931 0.357
##
## Residual standard error: 0.05482 on 45 degrees of freedom
## Multiple R-squared: 0.05558, Adjusted R-squared: 0.0136
## F-statistic: 1.324 on 2 and 45 DF, p-value: 0.2762
names(SWE_consumption$coefficients) <- sub("SWE$","",names(SWE_consumption$coefficients),fixed=TRUE)
names(SWE_investment$coefficients) <- sub("SWE$","",names(SWE_investment$coefficients),fixed=TRUE)
names(SWE_deflator$coefficients) <- sub("SWE$","",names(SWE_deflator$coefficients),fixed=TRUE)
names(SWE_exportdeflator$coefficients) <- sub("SWE$","",names(SWE_exportdeflator$coefficients),fixed=TRUE)
names(SWE_exports$coefficients) <- sub("SWE$","",names(SWE_exports$coefficients),fixed=TRUE)
names(SWE_imports$coefficients) <- sub("SWE$","",names(SWE_imports$coefficients),fixed=TRUE)
SWE_Xeffekt
## [1] 0.1091359
SWE_Meffekt
## [1] 0
#Nettoeksport (NX)
SWE_NXeffekt <- SWE_Xeffekt - SWE_Meffekt
SWE_NXeffekt
## [1] 0.1091359
#Nettoeffekten
SWE_Neteffekt = SWE_Ceffekt + SWE_Ieffekt + SWE_NXeffekt
SWE_Neteffekt
## [1] -0.5152475
SWE_Lukket <- SWE_Ceffekt + SWE_Ieffekt
SWE_Lukket_Konklusion <- ifelse(SWE_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
SWE_Lukket_Konklusion
## [1] "Wage-led domestic"
SWE_Def <- ifelse(SWE_Neteffekt > 0, "Profit-led", "Wage-led")
SWE_Def
## [1] "Wage-led"
summary(ur.df(y=SWE_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.019486 -0.002811 0.001171 0.006195 0.018796
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.46037 0.86583 -1.687 0.106
## z.diff.lag1 0.70339 0.84713 0.830 0.415
## z.diff.lag2 0.55823 0.79240 0.704 0.489
## z.diff.lag3 0.46324 0.72555 0.638 0.530
## z.diff.lag4 0.45419 0.65878 0.689 0.498
## z.diff.lag5 0.35426 0.56979 0.622 0.541
## z.diff.lag6 0.19098 0.52216 0.366 0.718
## z.diff.lag7 0.27679 0.46648 0.593 0.559
## z.diff.lag8 -0.09998 0.42065 -0.238 0.814
## z.diff.lag9 -0.10822 0.37356 -0.290 0.775
## z.diff.lag10 -0.10841 0.31938 -0.339 0.738
## z.diff.lag11 -0.01298 0.24770 -0.052 0.959
## z.diff.lag12 0.20371 0.18359 1.110 0.279
##
## Residual standard error: 0.0112 on 22 degrees of freedom
## Multiple R-squared: 0.6727, Adjusted R-squared: 0.4792
## F-statistic: 3.478 on 13 and 22 DF, p-value: 0.004925
##
##
## Value of test-statistic is: -1.6867
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=SWE_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.066448 -0.022526 0.001866 0.019644 0.046352
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.94580 0.59057 -1.601 0.124
## z.diff.lag1 0.22084 0.55905 0.395 0.697
## z.diff.lag2 0.19656 0.51830 0.379 0.708
## z.diff.lag3 0.19481 0.48524 0.401 0.692
## z.diff.lag4 -0.09509 0.44923 -0.212 0.834
## z.diff.lag5 0.10298 0.41690 0.247 0.807
## z.diff.lag6 0.19626 0.38385 0.511 0.614
## z.diff.lag7 0.09119 0.35287 0.258 0.798
## z.diff.lag8 0.11221 0.31655 0.354 0.726
## z.diff.lag9 0.09311 0.28298 0.329 0.745
## z.diff.lag10 0.04402 0.25165 0.175 0.863
## z.diff.lag11 -0.11570 0.21134 -0.547 0.590
## z.diff.lag12 -0.03170 0.17006 -0.186 0.854
##
## Residual standard error: 0.03612 on 22 degrees of freedom
## Multiple R-squared: 0.5327, Adjusted R-squared: 0.2565
## F-statistic: 1.929 on 13 and 22 DF, p-value: 0.08422
##
##
## Value of test-statistic is: -1.6015
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=SWE_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.071343 -0.011478 0.000174 0.020593 0.068579
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.31178 0.43809 -0.712 0.4841
## z.diff.lag1 -0.52163 0.44179 -1.181 0.2503
## z.diff.lag2 -0.52132 0.41990 -1.242 0.2275
## z.diff.lag3 -0.50721 0.39246 -1.292 0.2096
## z.diff.lag4 -0.26501 0.36024 -0.736 0.4697
## z.diff.lag5 -0.38894 0.32947 -1.181 0.2504
## z.diff.lag6 -0.33873 0.28780 -1.177 0.2518
## z.diff.lag7 -0.45502 0.27367 -1.663 0.1106
## z.diff.lag8 -0.42914 0.26123 -1.643 0.1146
## z.diff.lag9 -0.51794 0.26108 -1.984 0.0599 .
## z.diff.lag10 -0.52060 0.26395 -1.972 0.0613 .
## z.diff.lag11 -0.07638 0.22761 -0.336 0.7404
## z.diff.lag12 -0.27342 0.20249 -1.350 0.1907
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03618 on 22 degrees of freedom
## Multiple R-squared: 0.5715, Adjusted R-squared: 0.3183
## F-statistic: 2.257 on 13 and 22 DF, p-value: 0.04458
##
##
## Value of test-statistic is: -0.7117
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=SWE_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.17443 -0.01172 0.01044 0.03267 0.09634
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.34088 0.95686 -1.401 0.175
## z.diff.lag1 0.41590 0.91384 0.455 0.653
## z.diff.lag2 0.23409 0.87108 0.269 0.791
## z.diff.lag3 0.28739 0.83170 0.346 0.733
## z.diff.lag4 0.15604 0.77210 0.202 0.842
## z.diff.lag5 0.01073 0.71389 0.015 0.988
## z.diff.lag6 -0.04253 0.64444 -0.066 0.948
## z.diff.lag7 -0.22114 0.57356 -0.386 0.704
## z.diff.lag8 -0.11398 0.49687 -0.229 0.821
## z.diff.lag9 -0.21663 0.43743 -0.495 0.625
## z.diff.lag10 0.11146 0.41042 0.272 0.788
## z.diff.lag11 -0.04838 0.33304 -0.145 0.886
## z.diff.lag12 -0.02737 0.25189 -0.109 0.914
##
## Residual standard error: 0.06124 on 22 degrees of freedom
## Multiple R-squared: 0.5791, Adjusted R-squared: 0.3304
## F-statistic: 2.328 on 13 and 22 DF, p-value: 0.0389
##
##
## Value of test-statistic is: -1.4013
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(SWE_consumption)
plot(SWE_investment)
plot(SWE_deflator)
plot(SWE_exportdeflator)
plot(SWE_exports)
plot(SWE_imports)
bptest(SWE_consumption)
##
## studentized Breusch-Pagan test
##
## data: SWE_consumption
## BP = 10.584, df = 2, p-value = 0.005031
bptest(SWE_investment)
##
## studentized Breusch-Pagan test
##
## data: SWE_investment
## BP = 10.922, df = 2, p-value = 0.004249
bptest(SWE_deflator)
##
## studentized Breusch-Pagan test
##
## data: SWE_deflator
## BP = 3.5668, df = 2, p-value = 0.1681
bptest(SWE_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: SWE_exportdeflator
## BP = 9.989, df = 2, p-value = 0.006775
bptest(SWE_exports)
##
## studentized Breusch-Pagan test
##
## data: SWE_exports
## BP = 0.38823, df = 2, p-value = 0.8236
bptest(SWE_imports)
##
## studentized Breusch-Pagan test
##
## data: SWE_imports
## BP = 0.011861, df = 2, p-value = 0.9941
resettest(SWE_consumption)
##
## RESET test
##
## data: SWE_consumption
## RESET = 2.2482, df1 = 2, df2 = 43, p-value = 0.1179
resettest(SWE_investment)
##
## RESET test
##
## data: SWE_investment
## RESET = 4.8913, df1 = 2, df2 = 43, p-value = 0.01219
resettest(SWE_deflator)
##
## RESET test
##
## data: SWE_deflator
## RESET = 7.2287, df1 = 2, df2 = 43, p-value = 0.001966
resettest(SWE_exportdeflator)
##
## RESET test
##
## data: SWE_exportdeflator
## RESET = 0.43105, df1 = 2, df2 = 43, p-value = 0.6526
resettest(SWE_exports)
##
## RESET test
##
## data: SWE_exports
## RESET = 5.8302, df1 = 2, df2 = 43, p-value = 0.005749
resettest(SWE_imports)
##
## RESET test
##
## data: SWE_imports
## RESET = 0.013636, df1 = 2, df2 = 43, p-value = 0.9865
SWE_regtab <- matrix(c(SWE_Ceffekt, SWE_Ieffekt, SWE_Lukket, SWE_Xeffekt, SWE_Meffekt, SWE_NXeffekt, SWE_Neteffekt,SWE_Lukket_Konklusion, SWE_Def),ncol=9,byrow=TRUE)
colnames(SWE_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(SWE_regtab) <- c("SWE")
SWE_regtab <- as.table(SWE_regtab)
SWE_regtab
## consumption investment Lukket neteffekt
## SWE -0.292965118668464 -0.331418305062981 -0.624383423731445
## exports imports netexports neteffect
## SWE 0.109135915707448 0 0.109135915707448 -0.515247508023996
## Lukket konklusion Konklusion
## SWE Wage-led domestic Wage-led
SWE_smoke <- matrix(c(mean(SWE$C/SWE$R), mean(SWE$C/SWE$W), mean(SWE$I/SWE$R), SWE_CR, SWE_CW, SWE_iPS, SWE_ePULC, (1/(1-SWE_ePULC)), SWE_eXP, SWE_ePX, SWE_eMP, mean(SWE$Yf/SWE$Y), mean(SWE$X/SWE$Y), mean(SWE$rulc), (mean(SWE$X/SWE$Y)/mean(SWE$rulc))),ncol=15,byrow=TRUE)
colnames(SWE_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(SWE_smoke) <- c("SWE")
SWE_smoke <- as.table(SWE_smoke)
SWE_smoke
## C/R C/W I/R CR CW iPS
## SWE 1.5013259 0.8770756 0.5806044 0.1080935 0.5190529 -0.5708160
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## SWE 0.6363445 2.7498554 -0.5175607 0.1634180 0.0000000 0.8582063
## X/Y RULC (X/Y)/rulc
## SWE 0.2964661 0.5422133 0.5467703
summary(SWE_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$C_dl ~ SWE$R_dl + SWE$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0254030 -0.0099102 0.0004064 0.0077436 0.0271217
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.008936 0.002396 3.730 0.000535 ***
## R_dl 0.108093 0.035328 3.060 0.003726 **
## W_dl 0.519053 0.079267 6.548 0.0000000478 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01322 on 45 degrees of freedom
## Multiple R-squared: 0.5068, Adjusted R-squared: 0.4849
## F-statistic: 23.12 on 2 and 45 DF, p-value: 0.0000001237
summary(SWE_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$I_dl ~ SWE$PS_dl + SWE$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.088815 -0.014984 0.003028 0.019672 0.065384
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.048655 0.008049 -6.045 0.00000026792251815 ***
## PS_dl -0.570816 0.138391 -4.125 0.000158 ***
## Y_dl 3.470529 0.288991 12.009 0.00000000000000124 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03688 on 45 degrees of freedom
## Multiple R-squared: 0.7624, Adjusted R-squared: 0.7519
## F-statistic: 72.22 on 2 and 45 DF, p-value: 0.000000000000009006
summary(SWE_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$P_dl ~ L(SWE$ulc_dl) + SWE$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.033673 -0.011688 -0.000383 0.014266 0.034113
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.013686 0.003583 3.820 0.000407 ***
## L(ulc_dl) 0.636345 0.066840 9.520 0.00000000000237 ***
## Pm_dl 0.164019 0.042191 3.887 0.000330 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.0173 on 45 degrees of freedom
## Multiple R-squared: 0.7772, Adjusted R-squared: 0.7673
## F-statistic: 78.5 on 2 and 45 DF, p-value: 0.000000000000002125
summary(SWE_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$Px_dl ~ SWE$ulc_dl + SWE$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042075 -0.010454 -0.001784 0.009900 0.068791
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.0003758 0.0038648 -0.097 0.9230
## ulc_dl 0.1634180 0.0720955 2.267 0.0283 *
## Pm_dl 0.7129935 0.0455087 15.667 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01866 on 45 degrees of freedom
## Multiple R-squared: 0.8785, Adjusted R-squared: 0.8731
## F-statistic: 162.6 on 2 and 45 DF, p-value: < 0.00000000000000022
summary(SWE_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$X_dl ~ L(SWE$dPxdPm) + SWE$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.079333 -0.025656 -0.001319 0.029532 0.078020
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.01113 0.01066 -1.044 0.3022
## L(dPxdPm) -0.51756 0.22256 -2.326 0.0246 *
## Yrw_dl 2.02626 0.35056 5.780 0.000000661 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03816 on 45 degrees of freedom
## Multiple R-squared: 0.4754, Adjusted R-squared: 0.452
## F-statistic: 20.39 on 2 and 45 DF, p-value: 0.0000004977
summary(SWE_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 48
##
## Call:
## dynlm(formula = SWE$M_dl ~ SWE$dPdPm + L(SWE$Y_l))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.195649 -0.033081 0.009609 0.031311 0.085026
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.15833 0.21025 -0.753 0.455
## dPdPm -0.21598 0.15155 -1.425 0.161
## L(Y_l) 0.02475 0.02660 0.931 0.357
##
## Residual standard error: 0.05482 on 45 degrees of freedom
## Multiple R-squared: 0.05558, Adjusted R-squared: 0.0136
## F-statistic: 1.324 on 2 and 45 DF, p-value: 0.2762
GBR_df[!complete.cases(GBR_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.6382676 -0.4489977 NA 0.3617324 -1.016850 NA
## 1961 0.6502917 -0.4303342 0.018663531 0.3497083 -1.050656 -0.033805569
## 1962 0.6534649 -0.4254664 0.004867788 0.3465351 -1.059771 -0.009115264
## 1963 0.6575339 -0.4192590 0.006207377 0.3424661 -1.071582 -0.011811202
## 2019 0.6681585 -0.4032299 0.014620460 0.3318415 -1.103098 -0.028805067
## 2020 0.6422196 -0.4428249 -0.039595007 0.3577804 -1.027836 0.075261730
## 2021 0.6604535 -0.4148286 0.027996330 0.3395465 -1.080144 -0.052308321
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 516.432 6.246944 NA 8985242930475 29.82660 NA
## 1961 530.382 6.273598 0.02665388 9409128615642 29.87270 0.04609679
## 1962 536.209 6.284524 0.01092651 9961984988738 29.92980 0.05709600
## 1963 562.267 6.331977 0.04745282 10506649545398 29.98303 0.05323200
## 2019 2045.738 7.623514 0.01398821 NA NA NA
## 2020 1875.440 7.536599 -0.08691531 NA NA NA
## 2021 1987.679 7.594723 0.05812433 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1960 NA NA NA NA 297.606 5.695770 NA
## 1961 NA NA NA NA 304.330 5.718113 0.02234217
## 1962 NA NA NA NA 311.309 5.740786 0.02267335
## 1963 3.4890 558.778 6.325752 NA 325.673 5.785894 0.04510782
## 2019 288.6430 1757.095 7.471417 0.01136884 1344.318 7.203642 0.01074397
## 2020 250.3027 1625.137 7.393348 -0.07806957 1206.099 7.095146 -0.10849564
## 2021 268.5029 1719.176 7.449600 0.05625286 1289.749 7.162203 0.06705644
## 2022 NA NA NA NA NA NA NA
## W W_l W_dl R R_l R_dl
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 367.4155 5.906493 NA 191.3625 5.254170 NA
## 2019 1174.0179 7.068187 0.02598930 583.0771 6.368319 -0.017436232
## 2020 1043.6951 6.950523 -0.11766458 581.4422 6.365512 -0.002807843
## 2021 1135.4358 7.034772 0.08424919 583.7403 6.369456 0.003944539
## 2022 NA NA NA NA NA NA
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1960 86.6574 4.461962 NA 4.5170 1.507848 NA 3.4708
## 1961 93.6713 4.539792 0.077829432 5.0900 1.627278 0.11942977 3.9617
## 1962 94.5386 4.549008 0.009216371 5.2300 1.654411 0.02713345 3.9905
## 1963 96.7568 4.572201 0.023192397 5.6300 1.728109 0.07369816 4.2877
## 2019 343.0900 5.837993 0.005616606 377.6610 5.933997 0.04058912 315.4910
## 2020 294.1437 5.684068 -0.153924380 326.5000 5.788430 -0.14556702 265.5671
## 2021 327.8656 5.792604 0.108535345 367.9521 5.907953 0.11952282 300.7979
## 2022 NA NA NA NA NA NA NA
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1960 1.244385 NA 0.7683861 -0.2634629 NA 66.58634
## 1961 1.376673 0.13228811 0.7783301 -0.2506046 0.012858337 72.90719
## 1962 1.383917 0.00724331 0.7630019 -0.2704947 -0.019890137 72.13313
## 1963 1.455750 0.07183392 0.7615808 -0.2723590 -0.001864242 73.68812
## 2019 5.754130 0.03219674 0.8353815 -0.1798668 -0.008392375 286.61103
## 2020 5.581868 -0.17226262 0.8133755 -0.2065624 -0.026695597 239.24928
## 2021 5.706439 0.12457107 0.8174920 -0.2015142 0.005048253 268.02751
## 2022 NA NA NA NA NA NA
## I_l I_dl r r_l r_dl P
## 1960 4.198499 NA NA NA NA 5.067272
## 1961 4.289187 0.090687769 2.4119388 2.531582 NA 5.258661
## 1962 4.278513 -0.010673766 2.2079893 2.515229 -0.01635373 5.448617
## 1963 4.299842 0.021328155 3.8797786 2.641998 0.12676907 5.529404
## 2019 5.658126 -0.002775769 -0.9590883 2.219460 -0.02653518 108.268429
## 2020 5.477506 -0.180619977 NA NA NA 110.108696
## 2021 5.591090 0.113583598 NA NA NA 111.799048
## 2022 NA NA NA NA NA NA
## P_l P_dl Pm Pm_l Pm_dl Px
## 1960 1.622803 NA 9.327473 2.232964 NA 8.427734
## 1961 1.659876 0.03707383 9.370993 2.237619 0.0046549249 8.573049
## 1962 1.695362 0.03548540 9.377532 2.238317 0.0006975589 8.676569
## 1963 1.710080 0.01471813 9.748730 2.277137 0.0388203522 8.839182
## 2019 4.684614 0.01839868 112.969749 4.727120 0.0095609567 113.947302
## 2020 4.701468 0.01685443 110.710354 4.706917 -0.0202027076 111.668356
## 2021 4.716703 0.01523502 112.703140 4.724757 0.0178399184 113.678386
## 2022 NA NA NA NA NA NA
## Px_l Px_dl X X_l X_dl M M_l
## 1960 2.131528 NA 62.2706 4.131489 NA 60.3593 4.100315
## 1961 2.148623 0.01709556 63.9796 4.158564 0.02707488 59.7269 4.089783
## 1962 2.160626 0.01200274 64.7952 4.171232 0.01266724 60.7516 4.106793
## 1963 2.179194 0.01856813 67.6307 4.214062 0.04283050 62.7672 4.139433
## 2019 4.735736 0.01505082 613.1132 6.418550 0.04717554 641.3407 6.463561
## 2020 4.715533 -0.02020271 547.2049 6.304823 -0.11372626 577.6383 6.358948
## 2021 4.733373 0.01783992 574.9007 6.354197 0.04937401 612.9667 6.418311
## 2022 NA NA NA NA NA NA NA
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1960 NA NA NA NA NA NA
## 1961 -0.01053253 NA NA NA NA NA
## 1962 0.01701091 NA NA NA NA NA
## 1963 0.03263922 0.6534537 -0.4254836 NA 3.613209 1.284596
## 2019 0.04468591 0.5738848 -0.5553266 0.01200108 62.133603 4.129287
## 2020 -0.10461293 0.5565068 -0.5860759 -0.03074927 61.276237 4.115392
## 2021 0.05936272 0.5712370 -0.5599511 0.02612486 63.863755 4.156752
## 2022 NA NA NA NA NA NA
## ulc_dl Tau Tau_l Tau_dl dPxdPm
## 1960 NA 48.05785 3.872405 NA NA
## 1961 NA 48.57847 3.883180 0.010775035 0.0124406336854785
## 1962 NA 48.50771 3.881723 -0.001457748 0.0113051812349378
## 1963 NA 50.42223 3.920432 0.038709509 -0.0202522221818010
## 2019 0.03039976 101.82436 4.623249 0.003470776 0.0054898663692696
## 2020 -0.01389485 94.90513 4.552878 -0.070371689 0.0000000006111159
## 2021 0.04135988 99.43603 4.599515 0.046636782 -0.0000000003826990
## 2022 NA NA NA NA NA
## dPdPm Trade
## 1960 NA 0.2374560
## 1961 0.032418900 0.2332404
## 1962 0.034787842 0.2341378
## 1963 -0.024102224 0.2319146
## 2019 0.008837720 0.6132036
## 2020 0.037057133 0.5997756
## 2021 -0.002604903 0.5976153
## 2022 NA NA
GBR <- GBR_df[5:59,]
GBR[!complete.cases(GBR),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
GBR %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1964 0.6562090 -0.4212760 -0.002016992 0.3437910 -1.067721 0.003861251
## 1965 0.6575344 -0.4192582 0.002017772 0.3424656 -1.071584 -0.003862749
## 1966 0.6651569 -0.4077324 0.011525849 0.3348431 -1.094093 -0.022509104
## 1967 0.6642117 -0.4091543 -0.001421899 0.3357883 -1.091274 0.002818581
## 1968 0.6538210 -0.4249217 -0.015767444 0.3461790 -1.060799 0.030475338
## 1969 0.6489308 -0.4324292 -0.007507413 0.3510692 -1.046772 0.014027157
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl Tax
## 1964 593.725 6.386416 0.05443942 11193697765659 30.04637 0.06334257 3.848
## 1965 606.373 6.407495 0.02107906 11809330972756 30.09991 0.05353906 4.289
## 1966 615.877 6.423047 0.01555196 12524829900085 30.15873 0.05882309 4.810
## 1967 632.973 6.450428 0.02738050 13104444494539 30.20397 0.04523838 5.678
## 1968 667.613 6.503709 0.05328090 13922375578350 30.26452 0.06054585 6.471
## 1969 680.559 6.522915 0.01920585 14732189603727 30.32106 0.05653757 7.611
## Yf Yf_l Yf_dl C C_l C_dl W
## 1964 589.877 6.379914 0.05416178 336.548 5.818741 0.032846973 387.0826
## 1965 602.084 6.400397 0.02048293 341.197 5.832460 0.013719239 395.8909
## 1966 611.067 6.415207 0.01480964 347.825 5.851699 0.019239457 406.4554
## 1967 627.295 6.441417 0.02621031 357.058 5.877898 0.026198754 416.6567
## 1968 661.142 6.493969 0.05255172 367.962 5.907980 0.030081438 432.2685
## 1969 672.948 6.511668 0.01769942 370.840 5.915771 0.007791031 436.6967
## W_l W_dl R R_l R_dl It It_l
## 1964 5.958638 0.05214479 202.7944 5.312193 0.058023035 112.4261 4.722296
## 1965 5.981139 0.02250070 206.1931 5.328813 0.016620181 117.6945 4.768092
## 1966 6.007474 0.02633549 204.6116 5.321114 -0.007699465 117.4420 4.765945
## 1967 6.032263 0.02478842 210.6383 5.350142 0.029028896 127.6921 4.849622
## 1968 6.069047 0.03678427 228.8735 5.433169 0.083027057 141.6982 4.953699
## 1969 6.079239 0.01019200 236.2513 5.464896 0.031726575 140.4452 4.944817
## It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl
## 1964 0.150095503 6.645 1.893865 0.16575525 4.9972 1.608878 0.15312730
## 1965 0.045796167 7.197 1.973664 0.07979958 5.4383 1.693467 0.08458876
## 1966 -0.002147690 7.687 2.039531 0.06586632 5.7221 1.744336 0.05086936
## 1967 0.083677303 8.336 2.120583 0.08105289 6.0759 1.804330 0.05999426
## 1968 0.104077546 9.548 2.256332 0.13574822 7.0481 1.952758 0.14842795
## 1969 -0.008882067 10.176 2.320032 0.06370030 7.5850 2.026173 0.07341454
## Ips Ips_l Ips_dl I I_l I_dl
## 1964 0.7520241 -0.2849869 -0.012627953 84.54713 4.437309 0.1374675502
## 1965 0.7556343 -0.2801978 0.004789176 88.93400 4.487895 0.0505853434
## 1966 0.7443866 -0.2951947 -0.014996959 87.42225 4.470750 -0.0171446485
## 1967 0.7288748 -0.3162534 -0.021058639 93.07155 4.533369 0.0626186636
## 1968 0.7381755 -0.3035736 0.012679727 104.59814 4.650126 0.1167572734
## 1969 0.7453813 -0.2938594 0.009714238 104.68522 4.650958 0.0008321711
## r r_l r_dl P P_l P_dl Pm
## 1964 2.3101905 2.523457 -0.11854062 5.727740 1.745321 0.03524111 10.01170
## 1965 0.5866345 2.374727 -0.14872979 6.067884 1.803010 0.05768882 10.19566
## 1966 1.5171487 2.457758 0.08303046 6.392018 1.855050 0.05204019 10.41352
## 1967 3.7326738 2.631466 0.17370804 6.581644 1.884285 0.02923441 10.58619
## 1968 3.2576697 2.596680 -0.03478548 6.859061 1.925571 0.04128606 11.78372
## 1969 2.2765495 2.520756 -0.07592429 7.313986 1.989788 0.06421777 12.13419
## Pm_l Pm_dl Px Px_l Px_dl X X_l
## 1964 2.303755 0.02661770 9.082066 2.206302 0.02710737 69.5767 4.242430
## 1965 2.321962 0.01820743 9.324238 2.232617 0.02631557 72.2740 4.280464
## 1966 2.343105 0.02114293 9.643818 2.266317 0.03369983 75.7169 4.327001
## 1967 2.359551 0.01644561 9.936362 2.296201 0.02988387 75.8829 4.329191
## 1968 2.466719 0.10716842 10.771684 2.376921 0.08071990 85.0006 4.442658
## 1969 2.496027 0.02930780 11.051149 2.402534 0.02561352 93.0130 4.532739
## X_dl M M_l M_dl rulc rulc_l
## 1964 0.028367719 69.2090 4.237131 0.097698268 0.6519560 -0.4277782
## 1965 0.038034711 69.6080 4.242880 0.005748591 0.6528835 -0.4263566
## 1966 0.046536933 71.1287 4.264491 0.021611409 0.6599620 -0.4155731
## 1967 0.002189977 75.9007 4.329426 0.064934995 0.6582535 -0.4181651
## 1968 0.113466953 81.4089 4.399485 0.070058697 0.6474836 -0.4346618
## 1969 0.090080953 83.8952 4.429568 0.030083797 0.6416735 -0.4436756
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1964 -0.002294631 3.734235 1.317543 0.03294648 52.32401 3.957455
## 1965 0.001421643 3.961621 1.376653 0.05911046 52.56182 3.961990
## 1966 0.010783528 4.218489 1.439477 0.06282372 52.65253 3.963714
## 1967 -0.002592083 4.332390 1.466119 0.02664233 53.97079 3.988443
## 1968 -0.016496623 4.441130 1.490909 0.02478944 56.36394 4.031830
## 1969 -0.009013850 4.693191 1.546113 0.05520392 56.71095 4.037967
## Tau_dl dPxdPm dPdPm Trade
## 1964 0.037023130 0.0004896735 0.008623411 0.2337542
## 1965 0.004534752 0.0081081371 0.039481391 0.2339847
## 1966 0.001724187 0.0125569027 0.030897263 0.2384333
## 1967 0.024728740 0.0134382560 0.012788801 0.2397947
## 1968 0.043386679 -0.0264485173 -0.065882352 0.2492604
## 1969 0.006137673 -0.0036942832 0.034909967 0.2599454
GBR %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1964 0.6562090 -0.4212760 -0.0020169921 0.3437910 -1.0677212 0.0038612510
## 1965 0.6575344 -0.4192582 0.0020177723 0.3424656 -1.0715840 -0.0038627490
## 1966 0.6651569 -0.4077324 0.0115258486 0.3348431 -1.0940931 -0.0225091039
## 1967 0.6642117 -0.4091543 -0.0014218993 0.3357883 -1.0912745 0.0028185815
## 1968 0.6538210 -0.4249217 -0.0157674439 0.3461790 -1.0607992 0.0304753381
## 1969 0.6489308 -0.4324292 -0.0075074132 0.3510692 -1.0467720 0.0140271571
## 1970 0.6487704 -0.4326765 -0.0002473096 0.3512296 -1.0463150 0.0004569764
## 1971 0.6401806 -0.4460049 -0.0133284340 0.3598194 -1.0221531 0.0241618787
## 1972 0.6337031 -0.4561747 -0.0101698226 0.3662969 -1.0043111 0.0178420516
## 1973 0.6266247 -0.4674075 -0.0112327321 0.3733753 -0.9851712 0.0191398415
## 1974 0.6666546 -0.4054833 0.0619241926 0.3333454 -1.0985760 -0.1134047375
## 1975 0.7021169 -0.3536553 0.0518279303 0.2978831 -1.2110542 -0.1124782479
## 1976 0.6844989 -0.3790682 -0.0254128714 0.3155011 -1.1535932 0.0574610360
## 1977 0.6482732 -0.4334431 -0.0543749418 0.3517268 -1.0449004 0.1086927974
## 1978 0.6421398 -0.4429493 -0.0095061746 0.3578602 -1.0276127 0.0172876643
## 1979 0.6404843 -0.4455307 -0.0025813455 0.3595157 -1.0229974 0.0046152926
## 1980 0.6574404 -0.4194011 0.0261295303 0.3425596 -1.0713097 -0.0483122411
## 1981 0.6560595 -0.4215039 -0.0021027280 0.3439405 -1.0672865 0.0040232123
## 1982 0.6397001 -0.4467558 -0.0252519353 0.3602999 -1.0208186 0.0464679156
## 1983 0.6248567 -0.4702330 -0.0234771883 0.3751433 -0.9804471 0.0403714455
## 1984 0.6278547 -0.4654466 0.0047864127 0.3721453 -0.9884708 -0.0080236921
## 1985 0.6175080 -0.4820633 -0.0166166810 0.3824920 -0.9610475 0.0274232586
## 1986 0.6244560 -0.4708745 0.0111887699 0.3755440 -0.9793795 -0.0183319689
## 1987 0.6100432 -0.4942256 -0.0233510752 0.3899568 -0.9417192 0.0376602819
## 1988 0.6080419 -0.4975114 -0.0032858522 0.3919581 -0.9366005 0.0051187831
## 1989 0.6151985 -0.4858102 0.0117011639 0.3848015 -0.9550277 -0.0184272978
## 1990 0.6231559 -0.4729585 0.0128517075 0.3768441 -0.9759237 -0.0208959783
## 1991 0.6352281 -0.4537711 0.0191874500 0.3647719 -1.0084831 -0.0325594029
## 1992 0.6331918 -0.4569819 -0.0032108306 0.3668082 -1.0029162 0.0055669757
## 1993 0.6191347 -0.4794323 -0.0224504265 0.3808653 -0.9653096 0.0376065203
## 1994 0.5946163 -0.5198389 -0.0404065986 0.4053837 -0.9029213 0.0623883628
## 1995 0.5962538 -0.5170888 0.0027501320 0.4037462 -0.9069689 -0.0040476228
## 1996 0.5813583 -0.5423880 -0.0252992052 0.4186417 -0.8707399 0.0362290369
## 1997 0.5991318 -0.5122736 0.0301143786 0.4008682 -0.9141226 -0.0433827777
## 1998 0.6022918 -0.5070133 0.0052603666 0.3977082 -0.9220367 -0.0079140167
## 1999 0.6236282 -0.4722009 0.0348123518 0.3763718 -0.9771778 -0.0551411464
## 2000 0.6325330 -0.4580229 0.0141780214 0.3674670 -1.0011217 -0.0239439415
## 2001 0.6427005 -0.4420764 0.0159464623 0.3572995 -1.0291809 -0.0280591972
## 2002 0.6349742 -0.4541709 -0.0120944620 0.3650258 -1.0077873 0.0213936708
## 2003 0.6366011 -0.4516121 0.0025588071 0.3633989 -1.0122541 -0.0044667888
## 2004 0.6465142 -0.4361601 0.0154520349 0.3534858 -1.0399121 -0.0276580208
## 2005 0.6410110 -0.4447086 -0.0085485475 0.3589890 -1.0244636 0.0154484398
## 2006 0.6483633 -0.4333041 0.0114045461 0.3516367 -1.0451568 -0.0206931665
## 2007 0.6572009 -0.4197655 0.0135385601 0.3427991 -1.0706108 -0.0254539661
## 2008 0.6466677 -0.4359228 -0.0161572557 0.3533323 -1.0403462 0.0302645273
## 2009 0.6562473 -0.4212176 0.0147051403 0.3437527 -1.0678327 -0.0274864715
## 2010 0.6645877 -0.4085885 0.0126291161 0.3354123 -1.0923946 -0.0245619150
## 2011 0.6606425 -0.4145425 -0.0059539767 0.3393575 -1.0807011 0.0116935510
## 2012 0.6553768 -0.4225450 -0.0080025260 0.3446232 -1.0653035 0.0153975530
## 2013 0.6585809 -0.4176679 0.0048771059 0.3414191 -1.0746446 -0.0093410338
## 2014 0.6527370 -0.4265809 -0.0089130401 0.3472630 -1.0576730 0.0169715945
## 2015 0.6495139 -0.4315311 -0.0049501776 0.3504861 -1.0484341 0.0092388593
## 2016 0.6530808 -0.4260545 0.0054766569 0.3469192 -1.0586633 -0.0102292132
## 2017 0.6553362 -0.4226069 0.0034475497 0.3446638 -1.0651858 -0.0065224909
## 2018 0.6584607 -0.4178504 0.0047565294 0.3415393 -1.0742927 -0.0091068453
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1964 593.725 6.386416 0.054439423 11193697765659 30.04637 0.0633425737
## 1965 606.373 6.407495 0.021079059 11809330972756 30.09991 0.0535390590
## 1966 615.877 6.423047 0.015551960 12524829900085 30.15873 0.0588230867
## 1967 632.973 6.450428 0.027380499 13104444494539 30.20397 0.0452383810
## 1968 667.613 6.503709 0.053280897 13922375578350 30.26452 0.0605458527
## 1969 680.559 6.522915 0.019205855 14732189603727 30.32106 0.0565375690
## 1970 698.993 6.549641 0.026726209 15112061434360 30.34651 0.0254583268
## 1971 723.490 6.584087 0.034445996 15708324142611 30.38521 0.0386975766
## 1972 754.757 6.626396 0.042309119 16585864068630 30.43957 0.0543599984
## 1973 803.996 6.689594 0.063198451 17631662237408 30.50072 0.0611455061
## 1974 784.022 6.664437 -0.025157213 17844505254283 30.51272 0.0119993554
## 1975 772.468 6.649591 -0.014846497 17831317011109 30.51198 -0.0007393379
## 1976 794.949 6.678278 0.028687378 18715706155631 30.56038 0.0484067787
## 1977 814.487 6.702558 0.024280506 19439373866102 30.59832 0.0379375173
## 1978 848.730 6.743741 0.041182647 20240453943853 30.63870 0.0403826822
## 1979 880.549 6.780546 0.036804462 21076262721252 30.67917 0.0404641455
## 1980 862.662 6.760023 -0.020522619 21387527072965 30.69383 0.0146604874
## 1981 855.866 6.752114 -0.007909136 21810877231554 30.71343 0.0196008959
## 1982 872.940 6.771867 0.019753003 21795628767517 30.71273 -0.0006993665
## 1983 909.794 6.813218 0.041351375 22388363617368 30.73956 0.0268319081
## 1984 930.438 6.835655 0.022437243 23413913955763 30.78435 0.0447891166
## 1985 969.028 6.876294 0.040638064 24253385127720 30.81958 0.0352257414
## 1986 999.555 6.907310 0.031016673 25037051854124 30.85138 0.0318006013
## 1987 1053.459 6.959834 0.052524135 25908054567390 30.88558 0.0341971057
## 1988 1113.847 7.015575 0.055740754 27152806455237 30.93250 0.0469265020
## 1989 1142.558 7.041025 0.025449819 28207199134551 30.97060 0.0380968243
## 1990 1150.941 7.048335 0.007310260 29094528147759 31.00157 0.0309728865
## 1991 1138.245 7.037243 -0.011092266 29533106130067 31.01653 0.0149617555
## 1992 1142.810 7.041245 0.004002539 30146878067347 31.03710 0.0205694953
## 1993 1171.264 7.065839 0.024593366 30514537392299 31.04922 0.0121218347
## 1994 1216.311 7.103578 0.037739000 31490295277533 31.08070 0.0314762061
## 1995 1247.100 7.128576 0.024998349 32406798489945 31.10939 0.0286888188
## 1996 1278.172 7.153186 0.024610076 33365475584241 31.13854 0.0291534695
## 1997 1327.444 7.191011 0.037824356 34479944619342 31.17140 0.0328561394
## 1998 1375.828 7.226811 0.035800443 35415244010804 31.19816 0.0267645096
## 1999 1422.994 7.260518 0.033707371 36568495823187 31.23021 0.0320447507
## 2000 1471.907 7.294314 0.033795736 38042799012980 31.26973 0.0395247159
## 2001 1515.686 7.323623 0.029309303 38613141558950 31.28461 0.0148808577
## 2002 1550.918 7.346602 0.022978872 39200868817582 31.29972 0.0151062368
## 2003 1601.887 7.378938 0.032335296 40065755737355 31.32154 0.0218230876
## 2004 1639.915 7.402400 0.023462102 41397193111212 31.35423 0.0326910815
## 2005 1692.061 7.433703 0.031302901 42586090725886 31.38255 0.0283146119
## 2006 1739.240 7.461204 0.027500924 43923218473900 31.41346 0.0309153837
## 2007 1781.514 7.485219 0.024015328 45149118206221 31.44099 0.0275276745
## 2008 1776.507 7.482404 -0.002814488 45322341134259 31.44482 0.0038293433
## 2009 1701.044 7.438997 -0.043406897 43817604786903 31.41106 -0.0337644203
## 2010 1734.207 7.458306 0.019308068 45118771452429 31.44032 0.0292627060
## 2011 1760.917 7.473590 0.015284448 45965840432733 31.45892 0.0186001430
## 2012 1786.961 7.488272 0.014681716 46567501326265 31.47192 0.0130043801
## 2013 1825.194 7.509442 0.021169871 47243295440305 31.48633 0.0144078470
## 2014 1872.786 7.535182 0.025740879 48203235596278 31.50645 0.0201153989
## 2015 1916.896 7.558462 0.023280049 49327748529768 31.52951 0.0230606259
## 2016 1953.667 7.577463 0.019000908 50172269892698 31.54648 0.0169757083
## 2017 1990.632 7.596207 0.018744057 51324825105798 31.56920 0.0227120738
## 2018 2017.321 7.609526 0.013318217 52472918805396 31.59132 0.0221226489
## Tax Yf Yf_l Yf_dl C C_l
## 1964 3.848 589.877 6.379914 0.0541617841 336.548 5.818741
## 1965 4.289 602.084 6.400397 0.0204829299 341.197 5.832460
## 1966 4.810 611.067 6.415207 0.0148096390 347.825 5.851699
## 1967 5.678 627.295 6.441417 0.0262103149 357.058 5.877898
## 1968 6.471 661.142 6.493969 0.0525517184 367.962 5.907980
## 1969 7.611 672.948 6.511668 0.0176994179 370.840 5.915771
## 1970 8.266 690.727 6.537745 0.0260766054 382.005 5.945434
## 1971 8.265 715.225 6.572597 0.0348525124 394.755 5.978265
## 1972 8.456 746.301 6.615129 0.0425318256 420.417 6.041247
## 1973 8.876 795.120 6.678493 0.0633640426 443.824 6.095428
## 1974 9.908 774.114 6.651719 -0.0267738971 438.130 6.082516
## 1975 12.081 760.387 6.633828 -0.0178916354 437.391 6.080828
## 1976 14.054 780.895 6.660441 0.0266131836 439.827 6.086381
## 1977 18.187 796.300 6.679976 0.0195353015 438.536 6.083442
## 1978 21.567 827.163 6.718002 0.0380257743 461.998 6.135561
## 1979 29.279 851.270 6.746729 0.0287275785 483.725 6.181517
## 1980 35.747 826.915 6.717702 -0.0290274434 484.360 6.182828
## 1981 41.097 814.769 6.702905 -0.0147972711 486.168 6.186554
## 1982 43.243 829.697 6.721061 0.0181559364 492.305 6.199098
## 1983 45.277 864.517 6.762171 0.0411103956 513.967 6.242159
## 1984 47.339 883.099 6.783437 0.0212663426 526.981 6.267164
## 1985 49.694 919.334 6.823649 0.0402121827 553.991 6.317148
## 1986 55.046 944.509 6.850665 0.0270157209 586.727 6.374560
## 1987 60.076 993.383 6.901116 0.0504510738 616.960 6.424804
## 1988 66.048 1047.799 6.954447 0.0533307630 662.185 6.495545
## 1989 69.926 1072.632 6.977871 0.0234236676 687.612 6.533225
## 1990 74.248 1076.693 6.981650 0.0037788653 695.423 6.544520
## 1991 82.272 1055.973 6.962218 -0.0194316897 691.791 6.539284
## 1992 86.050 1056.760 6.962963 0.0007450066 698.362 6.548738
## 1993 88.127 1083.137 6.987617 0.0246538371 719.399 6.578416
## 1994 94.034 1122.277 7.023115 0.0354981967 742.997 6.610692
## 1995 101.266 1145.834 7.043888 0.0207730989 759.254 6.632336
## 1996 105.996 1172.176 7.066617 0.0227290944 787.315 6.668628
## 1997 112.548 1214.896 7.102414 0.0357966259 827.278 6.718141
## 1998 119.172 1256.656 7.136210 0.0337957483 862.507 6.759843
## 1999 128.610 1294.384 7.165790 0.0295806816 901.107 6.803624
## 2000 136.606 1335.301 7.196912 0.0311218283 941.998 6.848003
## 2001 139.321 1376.365 7.227201 0.0302892314 975.435 6.882884
## 2002 145.570 1405.348 7.248040 0.0208389930 1007.074 6.914804
## 2003 152.615 1449.272 7.278817 0.0307764024 1041.278 6.948204
## 2004 160.770 1479.145 7.299219 0.0204028568 1074.733 6.979828
## 2005 164.480 1527.581 7.331441 0.0322212203 1102.227 7.005088
## 2006 173.654 1565.586 7.356015 0.0245747563 1120.010 7.021093
## 2007 182.553 1598.961 7.377109 0.0210938485 1146.528 7.044494
## 2008 180.782 1595.725 7.375083 -0.0020258649 1142.063 7.040592
## 2009 169.941 1531.103 7.333744 -0.0413397877 1110.809 7.012844
## 2010 195.649 1538.558 7.338601 0.0048572234 1124.666 7.025241
## 2011 211.572 1549.345 7.345588 0.0069866468 1124.582 7.025167
## 2012 217.849 1569.112 7.358265 0.0126775933 1142.544 7.041013
## 2013 228.255 1596.939 7.375844 0.0175788176 1173.195 7.067486
## 2014 239.731 1633.055 7.398208 0.0223638219 1200.057 7.090124
## 2015 247.771 1669.125 7.420055 0.0218470433 1235.883 7.119541
## 2016 259.076 1694.591 7.435197 0.0151418768 1280.947 7.155355
## 2017 270.471 1720.161 7.450173 0.0149764773 1309.260 7.177217
## 2018 280.089 1737.232 7.460048 0.0098751509 1329.952 7.192898
## C_dl W W_l W_dl R R_l
## 1964 0.03284697331 387.0826 5.958638 0.0521447919 202.7944 5.312193
## 1965 0.01371923930 395.8909 5.981139 0.0225007022 206.1931 5.328813
## 1966 0.01923945665 406.4554 6.007474 0.0263354876 204.6116 5.321114
## 1967 0.02619875384 416.6567 6.032263 0.0247884156 210.6383 5.350142
## 1968 0.03008143840 432.2685 6.069047 0.0367842745 228.8735 5.433169
## 1969 0.00779103077 436.6967 6.079239 0.0101920046 236.2513 5.464896
## 1970 0.02966299479 448.1232 6.105068 0.0258292958 242.6038 5.491430
## 1971 0.03283162177 457.8732 6.126592 0.0215240784 257.3518 5.550444
## 1972 0.06298175656 472.9333 6.158954 0.0323620030 273.3677 5.610818
## 1973 0.05418101159 498.2418 6.211086 0.0521313105 296.8782 5.693322
## 1974 -0.01291241746 516.0666 6.246236 0.0351502955 258.0474 5.553143
## 1975 -0.00168813809 533.8806 6.280172 0.0339362949 226.5064 5.422773
## 1976 0.00555393588 534.5218 6.281372 0.0012003122 246.3732 5.506847
## 1977 -0.00293956127 516.2199 6.246533 -0.0348396403 280.0801 5.635076
## 1978 0.05211865556 531.1542 6.275052 0.0285195997 296.0088 5.690389
## 1979 0.04595600135 545.2251 6.301199 0.0261462330 306.0449 5.723732
## 1980 0.00131186846 543.6473 6.298301 -0.0028979132 283.2677 5.646392
## 1981 0.00372581129 534.5369 6.281401 -0.0168999992 280.2321 5.635618
## 1982 0.01254419994 530.7573 6.274305 -0.0070959988 298.9397 5.700242
## 1983 0.04306061794 540.1992 6.291938 0.0176332073 324.3178 5.781724
## 1984 0.02500543370 554.4578 6.317991 0.0260527553 328.6412 5.794967
## 1985 0.04998394637 567.6961 6.341586 0.0235955017 351.6379 5.862602
## 1986 0.05741119386 589.8043 6.379791 0.0382044908 354.7047 5.871286
## 1987 0.05024455700 606.0065 6.406891 0.0270999987 387.3765 5.959397
## 1988 0.07074078111 637.1057 6.456936 0.0500449109 410.6933 6.017847
## 1989 0.03767975227 659.8816 6.492060 0.0351248314 412.7504 6.022843
## 1990 0.01129556815 670.9476 6.508691 0.0166305728 405.7454 6.005726
## 1991 -0.00523640664 670.7838 6.508447 -0.0002442397 385.1892 5.953735
## 1992 0.00945370609 669.1318 6.505981 -0.0024658240 387.6282 5.960047
## 1993 0.02967854825 670.6078 6.508184 0.0022034106 412.5292 6.022307
## 1994 0.03227586581 667.3242 6.503276 -0.0049084019 454.9528 6.120194
## 1995 0.02164436524 683.2079 6.526799 0.0235232309 462.6261 6.136919
## 1996 0.03629205020 681.4542 6.524229 -0.0025701108 490.7218 6.195877
## 1997 0.04951237085 727.8829 6.590140 0.0659110044 487.0131 6.188291
## 1998 0.04170247150 756.8736 6.629196 0.0390561149 499.7824 6.214173
## 1999 0.04378074268 807.2144 6.693589 0.0643930334 487.1696 6.188612
## 2000 0.04437914394 844.6219 6.738889 0.0452998497 490.6791 6.195790
## 2001 0.03488037392 884.5905 6.785125 0.0462356936 491.7745 6.198020
## 2002 0.03192085027 892.3597 6.793869 0.0087445309 512.9883 6.240253
## 2003 0.03339970826 922.6081 6.827205 0.0333352095 526.6639 6.266563
## 2004 0.03162345374 956.2883 6.863059 0.0358548917 522.8567 6.259307
## 2005 0.02526041999 979.1963 6.886732 0.0236726728 548.3847 6.306977
## 2006 0.01600493521 1015.0685 6.922711 0.0359793025 550.5175 6.310859
## 2007 0.02340063133 1050.8386 6.957344 0.0346324087 548.1224 6.306499
## 2008 -0.00390196908 1031.9038 6.939161 -0.0181831206 563.8212 6.334737
## 2009 -0.02774769740 1004.7822 6.912526 -0.0266346474 526.3208 6.265911
## 2010 0.01239752400 1022.5067 6.930012 0.0174863395 516.0513 6.246206
## 2011 -0.00007469163 1023.5631 6.931045 0.0010326701 525.7819 6.264886
## 2012 0.01584594402 1028.3595 6.935720 0.0046750672 540.7525 6.292962
## 2013 0.02647344118 1051.7135 6.958176 0.0224559235 545.2255 6.301199
## 2014 0.02263825940 1065.9555 6.971627 0.0134507818 567.0995 6.340535
## 2015 0.02941663869 1084.1198 6.988524 0.0168968657 585.0052 6.371621
## 2016 0.03581395377 1106.7048 7.009142 0.0206185336 587.8862 6.376533
## 2017 0.02186244398 1127.2838 7.027566 0.0184240270 592.8772 6.384987
## 2018 0.01568075925 1143.8991 7.042198 0.0146316803 593.3329 6.385756
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1964 0.0580230351 112.4261 4.722296 0.150095503 6.645 1.893865
## 1965 0.0166201809 117.6945 4.768092 0.045796167 7.197 1.973664
## 1966 -0.0076994649 117.4420 4.765945 -0.002147690 7.687 2.039531
## 1967 0.0290288964 127.6921 4.849622 0.083677303 8.336 2.120583
## 1968 0.0830270565 141.6982 4.953699 0.104077546 9.548 2.256332
## 1969 0.0317265750 140.4452 4.944817 -0.008882067 10.176 2.320032
## 1970 0.0265335819 145.6207 4.981005 0.036187919 12.299 2.509518
## 1971 0.0590143911 156.2017 5.051148 0.070142825 13.829 2.626768
## 1972 0.0603738771 163.6893 5.097970 0.046821998 15.446 2.737350
## 1973 0.0825038841 166.8140 5.116879 0.018909300 18.647 2.925685
## 1974 -0.1401786346 154.3760 5.039391 -0.077488234 21.114 3.049936
## 1975 -0.1303698833 145.1626 4.977854 -0.061536692 23.618 3.162009
## 1976 0.0840742196 146.1640 4.984729 0.006874786 27.076 3.298648
## 1977 0.1282280989 148.4458 5.000220 0.015490629 30.886 3.430303
## 1978 0.0553134386 159.3919 5.071366 0.071146041 37.062 3.612592
## 1979 0.0333428711 173.0868 5.153793 0.082427253 46.007 3.828794
## 1980 -0.0773396846 161.9087 5.087033 -0.066760607 52.043 3.952070
## 1981 -0.0107740588 151.1593 5.018334 -0.068698348 54.178 3.992275
## 1982 0.0646238520 158.9348 5.068494 0.050159808 59.421 4.084648
## 1983 0.0814818411 170.4271 5.138308 0.069813584 65.436 4.181073
## 1984 0.0132426506 181.4006 5.200708 0.062400206 74.255 4.307505
## 1985 0.0676354413 185.0294 5.220515 0.019806886 82.317 4.410578
## 1986 0.0086837520 182.6663 5.207661 -0.012853740 88.348 4.481284
## 1987 0.0881113557 205.3113 5.324527 0.116866373 104.632 4.650449
## 1988 0.0584495462 237.0846 5.468417 0.143889676 126.593 4.840977
## 1989 0.0049963698 248.5857 5.515788 0.047370616 148.884 5.003167
## 1990 -0.0171171130 242.2228 5.489858 -0.025929692 156.632 5.053899
## 1991 -0.0519910926 222.9717 5.407045 -0.082813106 148.178 4.998414
## 1992 0.0063119823 219.3635 5.390730 -0.016314686 141.848 4.954756
## 1993 0.0622603574 221.0325 5.398310 0.007579578 143.399 4.965631
## 1994 0.0978865596 224.5585 5.414136 0.015826503 147.832 4.996076
## 1995 0.0167254761 223.4984 5.409404 -0.004731997 153.304 5.032423
## 1996 0.0589581313 233.9305 5.455024 0.045619808 168.531 5.127120
## 1997 -0.0075861518 230.2626 5.439220 -0.015803666 162.077 5.088072
## 1998 0.0258817316 247.9269 5.513134 0.073913548 174.437 5.161564
## 1999 -0.0255604648 253.4959 5.535348 0.022213705 182.204 5.205127
## 2000 0.0071778868 264.5487 5.578025 0.042677706 195.233 5.274194
## 2001 0.0022300341 270.7099 5.601048 0.023022412 203.930 5.317777
## 2002 0.0422326638 280.1994 5.635501 0.034453725 213.105 5.361785
## 2003 0.0263096136 286.9793 5.659410 0.023908595 219.566 5.391653
## 2004 -0.0072551641 290.9017 5.672985 0.013575322 228.283 5.430586
## 2005 0.0476696602 305.1007 5.720642 0.047656477 242.883 5.492580
## 2006 0.0038815898 315.7404 5.754920 0.034278471 261.507 5.566461
## 2007 -0.0043601176 327.5215 5.791554 0.036633345 279.677 5.633635
## 2008 0.0282386624 310.2742 5.737456 -0.054097279 277.288 5.625057
## 2009 -0.0688262592 271.7554 5.604902 -0.132554026 246.211 5.506189
## 2010 -0.0197046915 281.4171 5.639838 0.034935513 253.187 5.534128
## 2011 0.0186801979 278.4080 5.629088 -0.010750247 255.822 5.544482
## 2012 0.0280751463 283.8928 5.648597 0.019509038 265.435 5.581370
## 2013 0.0082377838 293.7268 5.682650 0.034053382 279.564 5.633231
## 2014 0.0393354163 313.0915 5.746495 0.063845396 304.707 5.719351
## 2015 0.0310859026 324.6230 5.782665 0.036169029 324.623 5.782665
## 2016 0.0049126635 336.4433 5.818430 0.035765127 343.694 5.839752
## 2017 0.0084539865 341.9369 5.834626 0.016196581 357.080 5.877960
## 2018 0.0007683055 341.1684 5.832376 -0.002250020 362.639 5.893408
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1964 0.165755250 4.9972 1.608878 0.15312730 0.7520241 -0.28498694
## 1965 0.079799580 5.4383 1.693467 0.08458876 0.7556343 -0.28019776
## 1966 0.065866318 5.7221 1.744336 0.05086936 0.7443866 -0.29519472
## 1967 0.081052895 6.0759 1.804330 0.05999426 0.7288748 -0.31625336
## 1968 0.135748223 7.0481 1.952758 0.14842795 0.7381755 -0.30357363
## 1969 0.063700298 7.5850 2.026173 0.07341454 0.7453813 -0.29385939
## 1970 0.189485952 9.4365 2.244585 0.21841254 0.7672575 -0.26493281
## 1971 0.117249878 10.7615 2.375975 0.13138980 0.7781835 -0.25079289
## 1972 0.110582234 12.1479 2.497156 0.12118137 0.7864755 -0.24019375
## 1973 0.188335205 14.3493 2.663701 0.16654485 0.7695232 -0.26198411
## 1974 0.124251052 16.0301 2.774468 0.11076704 0.7592166 -0.27546812
## 1975 0.112072806 17.8125 2.879900 0.10543225 0.7541917 -0.28210868
## 1976 0.136638593 20.6812 3.029225 0.14932462 0.7638204 -0.26942265
## 1977 0.131655280 24.9488 3.216826 0.18760065 0.8077705 -0.21347728
## 1978 0.182289179 30.8473 3.429049 0.21222350 0.8323161 -0.18354296
## 1979 0.216201373 38.8542 3.659816 0.23076695 0.8445280 -0.16897738
## 1980 0.123276741 44.1113 3.786716 0.12689981 0.8475933 -0.16535431
## 1981 0.040204622 46.8410 3.846759 0.06004290 0.8645760 -0.14551603
## 1982 0.092372777 51.9533 3.950345 0.10358635 0.8743256 -0.13430246
## 1983 0.096424866 56.2870 4.030464 0.08011836 0.8601840 -0.15060896
## 1984 0.126432550 63.8404 4.156386 0.12592262 0.8597455 -0.15111890
## 1985 0.103072532 71.1388 4.264633 0.10824668 0.8642054 -0.14594475
## 1986 0.070705914 76.0718 4.331678 0.06704473 0.8610472 -0.14960593
## 1987 0.169165871 91.5400 4.516776 0.18509840 0.8748758 -0.13367340
## 1988 0.190527784 114.2950 4.738783 0.22200679 0.9028540 -0.10219439
## 1989 0.162190263 132.2400 4.884618 0.14583563 0.8882083 -0.11854903
## 1990 0.050731626 136.4770 4.916156 0.03153765 0.8713226 -0.13774300
## 1991 -0.055484851 128.7910 4.858191 -0.05796517 0.8691641 -0.14022332
## 1992 -0.043658192 123.3610 4.815115 -0.04307592 0.8696704 -0.13964105
## 1993 0.010874893 125.4860 4.832194 0.01707918 0.8750828 -0.13343676
## 1994 0.030445539 129.0370 4.860099 0.02790499 0.8728624 -0.13597731
## 1995 0.036346384 135.6060 4.909754 0.04965444 0.8845562 -0.12266926
## 1996 0.094696831 153.5500 5.034026 0.12427262 0.9111083 -0.09309346
## 1997 -0.039048178 146.6440 4.988008 -0.04601837 0.9047798 -0.10006365
## 1998 0.073492114 157.3580 5.058523 0.07051558 0.9020907 -0.10304018
## 1999 0.043563294 164.3290 5.101871 0.04334705 0.9018957 -0.10325642
## 2000 0.069066779 176.9480 5.175856 0.07398539 0.9063427 -0.09833781
## 2001 0.043583081 182.1640 5.204907 0.02905148 0.8932673 -0.11286942
## 2002 0.044008204 189.3470 5.243581 0.03867393 0.8885151 -0.11820369
## 2003 0.029867869 193.2780 5.264130 0.02054826 0.8802729 -0.12752330
## 2004 0.038933217 196.4300 5.280306 0.01617657 0.8604671 -0.15027995
## 2005 0.061993759 222.5850 5.405309 0.12500292 0.9164289 -0.08727079
## 2006 0.073881206 225.0520 5.416331 0.01102244 0.8605965 -0.15012957
## 2007 0.067174314 241.1620 5.485469 0.06913742 0.8622876 -0.14816646
## 2008 -0.008578689 230.4320 5.439956 -0.04551310 0.8310205 -0.18510087
## 2009 -0.118867785 195.4790 5.275453 -0.16450285 0.7939491 -0.23073594
## 2010 0.027939454 202.6510 5.311485 0.03603233 0.8004005 -0.22264306
## 2011 0.010353544 207.5350 5.335300 0.02381471 0.8112477 -0.20918189
## 2012 0.036888099 219.2800 5.390349 0.05504945 0.8261156 -0.19102054
## 2013 0.051861257 233.9050 5.454915 0.06456560 0.8366778 -0.17831620
## 2014 0.086119412 253.8020 5.536554 0.08163939 0.8329379 -0.18279622
## 2015 0.063313850 273.4650 5.611174 0.07461921 0.8424080 -0.17149087
## 2016 0.057087218 291.2760 5.674271 0.06309763 0.8474864 -0.16548046
## 2017 0.038208120 301.7900 5.709731 0.03546014 0.8451607 -0.16822844
## 2018 0.015448003 305.4950 5.721933 0.01220200 0.8424218 -0.17147444
## Ips_dl I I_l I_dl r r_l
## 1964 -0.0126279531 84.54713 4.437309 0.1374675502 2.3101905 2.523457
## 1965 0.0047891761 88.93400 4.487895 0.0505853434 0.5866345 2.374727
## 1966 -0.0149969590 87.42225 4.470750 -0.0171446485 1.5171487 2.457758
## 1967 -0.0210586391 93.07155 4.533369 0.0626186636 3.7326738 2.631466
## 1968 0.0126797271 104.59814 4.650126 0.1167572734 3.2576697 2.596680
## 1969 0.0097142377 104.68522 4.650958 0.0008321711 2.2765495 2.520756
## 1970 0.0289265842 111.72857 4.716072 0.0651145031 -0.3417375 2.284392
## 1971 0.0141399233 121.55359 4.800355 0.0842827481 0.5767355 2.373806
## 1972 0.0105991315 128.73762 4.857776 0.0574211294 1.2985806 2.438865
## 1973 -0.0217903599 128.36725 4.854895 -0.0028810594 1.8247054 2.483752
## 1974 -0.0134840079 117.20483 4.763923 -0.0909722421 -1.0044588 2.214517
## 1975 -0.0066405525 109.48043 4.695746 -0.0681772441 -9.1614473 0.000000
## 1976 0.0126860235 111.64304 4.715307 0.0195608090 -0.8350063 2.232853
## 1977 0.0559453697 119.91014 4.786743 0.0714359991 -1.1352413 2.200132
## 1978 0.0299343223 132.66445 4.887823 0.1010803633 0.7225635 2.387295
## 1979 0.0145655799 146.17665 4.984816 0.0969928332 -1.2709849 2.184979
## 1980 0.0036230653 137.23274 4.921678 -0.0631375414 -5.1972303 1.602256
## 1981 0.0198382803 130.68871 4.872818 -0.0488600682 2.0911200 2.505735
## 1982 0.0112135731 138.96076 4.934192 0.0613733807 4.3374913 2.674075
## 1983 -0.0163065020 146.59866 4.987699 0.0535070821 4.9602558 2.716131
## 1984 -0.0005099336 155.95834 5.049589 0.0618902724 5.6216893 2.758942
## 1985 0.0051741472 159.90342 5.074570 0.0249810333 5.2897477 2.737686
## 1986 -0.0036611806 157.28431 5.058055 -0.0165149210 5.4077533 2.745295
## 1987 0.0159325332 179.62188 5.190854 0.1327989061 3.9561724 2.647424
## 1988 0.0314790064 214.05279 5.366223 0.1753686819 3.5454511 2.617899
## 1989 -0.0163546351 220.79587 5.397239 0.0310159807 2.1932920 2.514040
## 1990 -0.0191939770 211.05420 5.352115 -0.0451236685 3.4602290 2.611662
## 1991 -0.0024803157 193.79900 5.266822 -0.0852934218 3.2559946 2.596555
## 1992 0.0005822727 190.77393 5.251089 -0.0157324137 5.7334514 2.765998
## 1993 0.0062042895 193.42174 5.264873 0.0137838679 4.6985300 2.698672
## 1994 -0.0025405529 196.00868 5.278159 0.0132859499 6.7144439 2.825886
## 1995 0.0133080531 197.69689 5.286735 0.0085760560 5.7459762 2.766786
## 1996 0.0295757936 213.13603 5.361931 0.0751956011 3.6686737 2.626849
## 1997 -0.0069701879 208.33696 5.339157 -0.0227738538 5.9973571 2.782465
## 1998 -0.0029765305 223.65256 5.410094 0.0709370173 4.6059246 2.692420
## 1999 -0.0002162420 228.62686 5.432091 0.0219974627 4.0649186 2.655097
## 2000 0.0049186097 239.77178 5.479688 0.0475963157 3.4058345 2.607661
## 2001 -0.0145316045 241.81630 5.488178 0.0084908080 3.9743553 2.648711
## 2002 -0.0053342740 248.96138 5.517298 0.0291194508 2.7392003 2.557278
## 2003 -0.0093196122 252.62010 5.531887 0.0145889829 2.2723759 2.520420
## 2004 -0.0227566499 250.31133 5.522705 -0.0091813282 2.3228183 2.524469
## 2005 0.0630091588 279.60310 5.633371 0.1106656354 1.9037333 2.490324
## 2006 -0.0628587704 271.72507 5.604791 -0.0285802995 1.5595022 2.461378
## 2007 0.0019631061 282.41772 5.643387 0.0385964510 2.4130441 2.531670
## 2008 -0.0369344102 257.84421 5.552356 -0.0910316893 1.5773214 2.462897
## 2009 -0.0456350659 215.75995 5.374166 -0.1781890916 1.6790174 2.471523
## 2010 0.0080928766 225.24639 5.417195 0.0430283901 1.7990757 2.481611
## 2011 0.0134611685 225.85784 5.419906 0.0027109217 0.9895372 2.411528
## 2012 0.0181613524 234.52828 5.457576 0.0376703908 0.0771059 2.326160
## 2013 0.0127043409 245.75470 5.504334 0.0467577224 0.1319000 2.331498
## 2014 -0.0044800270 260.78577 5.563699 0.0593653695 0.3085229 2.348511
## 2015 0.0113053576 273.46500 5.611174 0.0474743865 1.2018546 2.430389
## 2016 0.0060104107 285.13113 5.652949 0.0417755374 -0.9008473 2.225769
## 2017 -0.0027479797 288.99165 5.666398 0.0134486018 -0.7461361 2.242337
## 2018 -0.0032460022 287.40770 5.660902 -0.0054960222 -0.7116334 2.245995
## r_dl P P_l P_dl Pm Pm_l
## 1964 -0.118540619 5.727740 1.745321 0.035241110 10.01170 2.303755
## 1965 -0.148729789 6.067884 1.803010 0.057688822 10.19566 2.321962
## 1966 0.083030463 6.392018 1.855050 0.052040191 10.41352 2.343105
## 1967 0.173708044 6.581644 1.884285 0.029234414 10.58619 2.359551
## 1968 -0.034785476 6.859061 1.925571 0.041286064 11.78372 2.466719
## 1969 -0.075924287 7.313986 1.989788 0.064217770 12.13419 2.496027
## 1970 -0.236364475 8.019397 2.081863 0.092074931 12.99246 2.564369
## 1971 0.089414306 8.683046 2.161372 0.079509049 13.55017 2.606399
## 1972 0.065059270 9.340619 2.234373 0.073000214 13.97566 2.637317
## 1973 0.044886896 10.162109 2.318666 0.084293493 17.35715 2.854005
## 1974 -0.269234684 11.809108 2.468871 0.150205085 24.55875 3.201068
## 1975 -2.214517358 14.890322 2.700711 0.231840321 27.96801 3.331061
## 1976 2.232853484 17.203492 2.845112 0.144400924 33.93861 3.524553
## 1977 -0.032721360 19.583125 2.974668 0.129555872 38.64267 3.654357
## 1978 0.187162689 21.898245 3.086407 0.111738269 39.97743 3.688315
## 1979 -0.202315752 25.059135 3.221238 0.134831937 43.78379 3.779264
## 1980 -0.582723481 30.099160 3.404497 0.183258823 48.24593 3.876311
## 1981 0.903479909 33.831333 3.521387 0.116890099 52.21622 3.955393
## 1982 0.168339956 36.539626 3.598397 0.077009934 56.04017 4.026069
## 1983 0.042055557 38.565643 3.652362 0.053964490 60.37896 4.100641
## 1984 0.042811063 40.576892 3.703199 0.050836945 65.85071 4.187390
## 1985 -0.021255720 42.765965 3.755743 0.052543843 68.64703 4.228978
## 1986 0.007608296 44.681872 3.799568 0.043825291 65.87008 4.187684
## 1987 -0.097871001 47.094777 3.852162 0.052594223 67.76395 4.216030
## 1988 -0.029524402 49.880358 3.909627 0.057465201 67.40543 4.210726
## 1989 -0.103859501 53.783536 3.984967 0.075340109 71.97517 4.276321
## 1990 0.097622631 58.118945 4.062492 0.077524283 74.65093 4.312823
## 1991 -0.015106875 61.976809 4.126760 0.064268577 75.23827 4.320660
## 1992 0.169442726 63.926702 4.157737 0.030976871 75.40870 4.322923
## 1993 -0.067326710 65.667749 4.184608 0.026870778 82.11528 4.408124
## 1994 0.127214536 66.551132 4.197971 0.013362634 84.68885 4.438984
## 1995 -0.059100160 68.171091 4.222021 0.024050042 89.77625 4.497320
## 1996 -0.139936992 70.979856 4.262396 0.040375533 90.16952 4.501692
## 1997 0.155616170 71.738317 4.273025 0.010628889 85.25225 4.445615
## 1998 -0.090044919 72.420050 4.282483 0.009458181 82.16464 4.408725
## 1999 -0.037323149 73.077744 4.291524 0.009040661 81.64998 4.402442
## 2000 -0.047435852 74.437567 4.309961 0.018436892 83.58601 4.425876
## 2001 0.041049626 75.179008 4.319872 0.009911298 83.25353 4.421890
## 2002 -0.091433259 76.767483 4.340781 0.020909100 80.93562 4.393654
## 2003 -0.036857075 78.499627 4.363094 0.022312721 81.65827 4.402543
## 2004 0.004048663 80.499794 4.388255 0.025160761 81.21804 4.397137
## 2005 -0.034145432 82.519141 4.413030 0.024775647 83.73426 4.427648
## 2006 -0.028945872 84.802727 4.440328 0.027297423 85.64114 4.450166
## 2007 0.070292474 86.994529 4.465845 0.025517527 86.60157 4.461318
## 2008 -0.068773342 89.497617 4.494212 0.028366777 96.95027 4.574198
## 2009 0.008625949 90.977214 4.510609 0.016397077 98.23714 4.587384
## 2010 0.010088600 92.372203 4.525826 0.015217016 101.79364 4.622948
## 2011 -0.070083687 94.256848 4.546023 0.020197388 108.45056 4.686294
## 2012 -0.085367469 95.823032 4.562503 0.016479591 108.28596 4.684775
## 2013 0.005337473 97.639453 4.581282 0.018778571 109.23588 4.693510
## 2014 0.017013385 99.422197 4.599375 0.018093755 105.43528 4.658097
## 2015 0.081877853 100.000000 4.605170 0.005794785 100.00000 4.605170
## 2016 -0.204620190 102.140126 4.626346 0.021175474 103.24668 4.637121
## 2017 0.016568374 104.070820 4.645072 0.018725968 108.79685 4.689482
## 2018 0.003657833 106.294647 4.666215 0.021143297 111.89480 4.717559
## Pm_dl Px Px_l Px_dl X X_l
## 1964 0.026617699 9.082066 2.206302 0.0271073727 69.5767 4.242430
## 1965 0.018207431 9.324238 2.232617 0.0263155681 72.2740 4.280464
## 1966 0.021142928 9.643818 2.266317 0.0336998309 75.7169 4.327001
## 1967 0.016445613 9.936362 2.296201 0.0298838691 75.8829 4.329191
## 1968 0.107168417 10.771684 2.376921 0.0807198993 85.0006 4.442658
## 1969 0.029307803 11.051149 2.402534 0.0256135193 93.0130 4.532739
## 1970 0.068342222 12.031251 2.487508 0.0849731282 97.6457 4.581346
## 1971 0.042030025 12.666899 2.538992 0.0514847379 104.2955 4.647228
## 1972 0.030918022 13.251501 2.584111 0.0451185539 105.3692 4.657470
## 1973 0.216687395 14.879684 2.699997 0.1158859862 118.1073 4.771594
## 1974 0.347063457 18.609594 2.923677 0.2236804616 126.6282 4.841255
## 1975 0.129993293 22.544458 3.115489 0.1918120033 122.8994 4.811366
## 1976 0.193492142 27.058072 3.297985 0.1824960989 133.7309 4.895830
## 1977 0.129803604 31.294198 3.443433 0.1454473438 142.4130 4.958731
## 1978 0.033957923 33.771238 3.519610 0.0761768052 144.6497 4.974315
## 1979 0.090948669 37.747211 3.630912 0.1113020842 149.7488 5.008959
## 1980 0.097047805 43.283787 3.767778 0.1368665389 148.9380 5.003530
## 1981 0.079081701 47.114284 3.852576 0.0847980942 147.8978 4.996521
## 1982 0.070675689 50.516179 3.922294 0.0697174347 149.1126 5.004702
## 1983 0.074571787 54.679756 4.001494 0.0791998923 151.6814 5.021782
## 1984 0.086749558 58.971489 4.077054 0.0755605352 161.4238 5.084033
## 1985 0.041587616 62.122130 4.129102 0.0520482079 170.4465 5.138421
## 1986 -0.041293449 57.388422 4.049843 -0.0792597187 177.1769 5.177149
## 1987 0.028346053 59.265985 4.082036 0.0321929672 188.2108 5.237563
## 1988 -0.005304792 59.777364 4.090627 0.0085915231 189.8344 5.246152
## 1989 0.065595640 64.826202 4.171710 0.0810828062 198.5817 5.291201
## 1990 0.036501685 67.949448 4.218764 0.0470541392 208.9642 5.342163
## 1991 0.007837067 69.385754 4.239682 0.0209175631 208.6322 5.340573
## 1992 0.002262593 70.058928 4.249337 0.0096551424 217.6511 5.382893
## 1993 0.085201496 76.651456 4.339269 0.0899318881 226.9233 5.424612
## 1994 0.030859902 77.847354 4.354750 0.0154813009 247.1028 5.509804
## 1995 0.058336506 80.597337 4.389466 0.0347157076 269.5623 5.596800
## 1996 0.004371006 82.180255 4.408915 0.0194494583 288.6959 5.665374
## 1997 -0.056076992 78.233554 4.359699 -0.0492164378 311.0085 5.739820
## 1998 -0.036889418 75.344517 4.322071 -0.0376274716 319.6225 5.767141
## 1999 -0.006283501 75.734149 4.327229 0.0051580024 328.4965 5.794526
## 2000 0.023434615 77.104750 4.345165 0.0179357278 358.0739 5.880739
## 2001 -0.003985721 78.212017 4.359423 0.0142584137 364.7572 5.899232
## 2002 -0.028236418 77.686629 4.352683 -0.0067401508 369.5243 5.912217
## 2003 0.008889043 79.343739 4.373790 0.0211063903 378.0903 5.935133
## 2004 -0.005405705 79.355254 4.373935 0.0001451150 394.4767 5.977560
## 2005 0.030510779 81.845028 4.404828 0.0308929001 426.0491 6.054555
## 2006 0.022517640 83.501465 4.424864 0.0200366175 478.6982 6.171070
## 2007 0.011152065 83.451956 4.424271 -0.0005930852 468.7380 6.150044
## 2008 0.112880277 90.351981 4.503713 0.0794418568 474.9348 6.163178
## 2009 0.013186174 93.208496 4.534839 0.0311259271 437.8785 6.081941
## 2010 0.035563309 97.781132 4.582732 0.0478927599 463.2243 6.138211
## 2011 0.063346735 102.557468 4.630423 0.0476916659 496.8473 6.208283
## 2012 -0.001518921 102.731596 4.632120 0.0016964210 499.6223 6.213852
## 2013 0.008734118 105.596921 4.659629 0.0275094935 505.4958 6.225540
## 2014 -0.035412267 103.901460 4.643443 -0.0161862694 510.7705 6.235920
## 2015 -0.052927129 100.000000 4.605170 -0.0382727601 530.0490 6.272969
## 2016 0.031950887 104.214516 4.646451 0.0412812426 544.5489 6.299958
## 2017 0.052361280 108.881057 4.690256 0.0438046394 577.7727 6.359181
## 2018 0.028076761 112.245143 4.720685 0.0304291872 584.8609 6.371374
## X_dl M M_l M_dl rulc rulc_l
## 1964 0.028367719 69.2090 4.237131 0.097698268 0.6519560 -0.4277782
## 1965 0.038034711 69.6080 4.242880 0.005748591 0.6528835 -0.4263566
## 1966 0.046536933 71.1287 4.264491 0.021611409 0.6599620 -0.4155731
## 1967 0.002189977 75.9007 4.329426 0.064934995 0.6582535 -0.4181651
## 1968 0.113466953 81.4089 4.399485 0.070058697 0.6474836 -0.4346618
## 1969 0.090080953 83.8952 4.429568 0.030083797 0.6416735 -0.4436756
## 1970 0.048606353 87.7355 4.474327 0.044758206 0.6410983 -0.4445725
## 1971 0.065882595 92.1686 4.523620 0.049292902 0.6328673 -0.4574944
## 1972 0.010242157 100.8110 4.613247 0.089627968 0.6266033 -0.4674416
## 1973 0.114123160 111.5794 4.714736 0.101488968 0.6197069 -0.4785087
## 1974 0.069661700 112.6564 4.724342 0.009606033 0.6582298 -0.4182012
## 1975 -0.029889099 105.2131 4.655988 -0.068354661 0.6911362 -0.3694184
## 1976 0.084463437 110.3551 4.703703 0.047715531 0.6723976 -0.3969055
## 1977 0.062901715 112.2438 4.720673 0.016969943 0.6337976 -0.4560256
## 1978 0.015583671 116.1480 4.754865 0.034191949 0.6258224 -0.4686887
## 1979 0.034644266 126.9397 4.843712 0.088846931 0.6191877 -0.4793469
## 1980 -0.005429112 122.4311 4.807548 -0.036163748 0.6301974 -0.4617222
## 1981 -0.007008617 118.9113 4.778378 -0.029170586 0.6245568 -0.4707130
## 1982 0.008180231 124.2858 4.822584 0.044205915 0.6080112 -0.4975620
## 1983 0.017080543 131.9268 4.882247 0.059663471 0.5937599 -0.5212802
## 1984 0.062250936 144.3872 4.972499 0.090251357 0.5959106 -0.5176647
## 1985 0.054388260 147.7500 4.995522 0.023023076 0.5858408 -0.5347073
## 1986 0.038727204 157.5799 5.059933 0.064410975 0.5900668 -0.5275194
## 1987 0.060413943 169.7643 5.134411 0.074478373 0.5752540 -0.5529436
## 1988 0.008589502 190.7383 5.250902 0.116491327 0.5719868 -0.5586394
## 1989 0.045048489 204.3010 5.319594 0.068692065 0.5775476 -0.5489644
## 1990 0.050962343 205.1214 5.323602 0.004007602 0.5829557 -0.5396441
## 1991 -0.001590052 195.8697 5.277450 -0.046152357 0.5893140 -0.5287961
## 1992 0.042320429 208.7040 5.340917 0.063467338 0.5855144 -0.5352644
## 1993 0.041718753 215.1159 5.371177 0.030259972 0.5725505 -0.5576544
## 1994 0.085192369 227.4243 5.426817 0.055640483 0.5486460 -0.6003018
## 1995 0.086995088 239.4208 5.478223 0.051405237 0.5478373 -0.6017769
## 1996 0.068574353 261.4254 5.566149 0.087926292 0.5331475 -0.6289571
## 1997 0.074446358 279.8366 5.634206 0.068056896 0.5483341 -0.6008705
## 1998 0.027320369 300.5782 5.705708 0.071502092 0.5501222 -0.5976148
## 1999 0.027385571 322.3687 5.775696 0.069987968 0.5672648 -0.5669291
## 2000 0.086213206 353.0399 5.866581 0.090885160 0.5738283 -0.5554250
## 2001 0.018492537 372.7926 5.921022 0.054441151 0.5836238 -0.5384986
## 2002 0.012984576 392.5811 5.972743 0.051720907 0.5753752 -0.5527330
## 2003 0.022916553 401.2894 5.994683 0.021939723 0.5759508 -0.5517330
## 2004 0.042427020 426.8534 6.056441 0.061757766 0.5831328 -0.5393402
## 2005 0.076994521 456.4989 6.123586 0.067145662 0.5787003 -0.5469705
## 2006 0.116515738 502.1091 6.218817 0.095231136 0.5836276 -0.5384921
## 2007 -0.021026359 487.1159 6.188502 -0.030315344 0.5898571 -0.5278750
## 2008 0.013133554 477.8914 6.169384 -0.019118572 0.5808611 -0.5432437
## 2009 -0.081236057 440.7590 6.088498 -0.080885269 0.5906856 -0.5264714
## 2010 0.056269911 476.3814 6.166219 0.077720553 0.5896105 -0.5282931
## 2011 0.070071349 483.6969 6.181458 0.015239677 0.5812671 -0.5425449
## 2012 0.005569678 492.5311 6.199558 0.018099135 0.5754796 -0.5525516
## 2013 0.011687317 509.4837 6.233398 0.033840254 0.5762201 -0.5512655
## 2014 0.010380640 527.9627 6.269026 0.035627777 0.5691817 -0.5635556
## 2015 0.037049085 556.5070 6.321680 0.052654112 0.5655601 -0.5699388
## 2016 0.026988290 580.9601 6.364682 0.043002331 0.5664757 -0.5683212
## 2017 0.059222793 601.3152 6.399119 0.034437176 0.5662944 -0.5686412
## 2018 0.012193502 613.3127 6.418875 0.019755664 0.5670387 -0.5673277
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1964 -0.0022946312 3.734235 1.317543 0.0329464790 52.32401 3.957455
## 1965 0.0014216431 3.961621 1.376653 0.0591104648 52.56182 3.961990
## 1966 0.0107835276 4.218489 1.439477 0.0628237186 52.65253 3.963714
## 1967 -0.0025920833 4.332390 1.466119 0.0266423305 53.97079 3.988443
## 1968 -0.0164966227 4.441130 1.490909 0.0247894418 56.36394 4.031830
## 1969 -0.0090138503 4.693191 1.546113 0.0552039195 56.71095 4.037967
## 1970 -0.0008969128 5.141222 1.637291 0.0911780182 57.60480 4.053606
## 1971 -0.0129219180 5.495216 1.703878 0.0665871313 59.14418 4.079978
## 1972 -0.0099471159 5.852863 1.766931 0.0630530985 60.96708 4.110334
## 1973 -0.0110671404 6.297529 1.840157 0.0732263527 63.43451 4.150008
## 1974 0.0603075083 7.773107 2.050670 0.2105125932 61.03427 4.111435
## 1975 0.0487827921 10.291240 2.331293 0.2806231134 59.78009 4.090673
## 1976 -0.0274870655 11.567586 2.448207 0.1169138587 61.51290 4.119247
## 1977 -0.0591201458 12.411738 2.518643 0.0704357265 62.70225 4.138397
## 1978 -0.0126630477 13.704412 2.617718 0.0990752213 64.56933 4.167740
## 1979 -0.0106582291 15.516307 2.741892 0.1241737083 65.94924 4.188885
## 1980 0.0176247061 18.968412 2.942775 0.2008835294 64.65386 4.169048
## 1981 -0.0089908636 21.129588 3.050674 0.1078992355 65.20292 4.177504
## 1982 -0.0268490020 22.216500 3.100835 0.0501609325 66.99867 4.204673
## 1983 -0.0237181680 22.898733 3.131082 0.0302463220 69.75541 4.244995
## 1984 0.0036155126 24.180198 3.185534 0.0544524575 70.09937 4.249914
## 1985 -0.0170425625 25.054046 3.221035 0.0355012809 72.07161 4.277660
## 1986 0.0071878181 26.365291 3.272048 0.0510131087 73.80927 4.301484
## 1987 -0.0254241360 27.091459 3.299219 0.0271700873 75.92649 4.329766
## 1988 -0.0056958427 28.530905 3.350988 0.0517693585 77.39193 4.348882
## 1989 0.0096750122 31.062553 3.436003 0.0850151216 77.18999 4.346270
## 1990 0.0093203125 33.880770 3.522848 0.0868445951 76.67201 4.339537
## 1991 0.0108480264 36.523803 3.597964 0.0751166032 76.57051 4.338212
## 1992 -0.0064683633 37.430007 3.622473 0.0245085080 77.26426 4.347232
## 1993 -0.0223899552 37.598100 3.626954 0.0044808230 79.11372 4.370886
## 1994 -0.0426474018 36.513014 3.597669 -0.0292847679 81.28652 4.397980
## 1995 -0.0014751176 37.346667 3.620244 0.0225749247 82.24783 4.409737
## 1996 -0.0271801871 37.842735 3.633439 0.0131953462 83.19781 4.421221
## 1997 0.0280866480 39.336568 3.672155 0.0387155373 84.93220 4.441853
## 1998 0.0032556719 39.839880 3.684868 0.0127138531 86.79149 4.463509
## 1999 0.0306856624 41.454430 3.724595 0.0397263229 88.33630 4.481151
## 2000 0.0115041134 42.714385 3.754536 0.0299410053 89.99753 4.499782
## 2001 0.0169263909 43.876262 3.781373 0.0268376894 91.48695 4.516196
## 2002 -0.0142343410 44.170105 3.788048 0.0066747588 92.41070 4.526243
## 2003 0.0009999138 45.211923 3.811361 0.0233126351 94.17449 4.545149
## 2004 0.0123927898 46.942074 3.848914 0.0375535508 95.07571 4.554674
## 2005 -0.0076302285 47.753855 3.866060 0.0171454185 96.68808 4.571490
## 2006 0.0084783788 49.493216 3.901836 0.0357758018 97.97629 4.584725
## 2007 0.0106170803 51.314338 3.937970 0.0361346070 98.98812 4.595000
## 2008 -0.0153686328 51.985683 3.950968 0.0129981439 97.58323 4.580706
## 2009 0.0167722492 53.738929 3.984138 0.0331693262 94.13862 4.544768
## 2010 -0.0018217287 54.463620 3.997533 0.0133952875 95.59793 4.560151
## 2011 -0.0142517775 54.788405 4.003479 0.0059456104 96.60444 4.570625
## 2012 -0.0100066483 55.144197 4.009952 0.0064729427 97.23219 4.577102
## 2013 0.0012860524 56.261819 4.030016 0.0200646231 98.39556 4.588996
## 2014 -0.0122900971 56.589293 4.035820 0.0058036581 99.18146 4.596951
## 2015 -0.0063831838 56.556006 4.035231 -0.0005883984 100.00000 4.605170
## 2016 0.0016176253 57.859896 4.058024 0.0227930991 100.49112 4.610069
## 2017 -0.0003200298 58.934723 4.076430 0.0184059384 101.27159 4.617806
## 2018 0.0013134630 60.273178 4.098887 0.0224567597 101.47157 4.619779
## Tau_dl dPxdPm dPdPm Trade
## 1964 0.037023130 0.0004896735 0.0086234111 0.2337542
## 1965 0.004534752 0.0081081371 0.0394813907 0.2339847
## 1966 0.001724187 0.0125569027 0.0308972629 0.2384333
## 1967 0.024728740 0.0134382560 0.0127888008 0.2397947
## 1968 0.043386679 -0.0264485173 -0.0658823521 0.2492604
## 1969 0.006137673 -0.0036942832 0.0349099673 0.2599454
## 1970 0.015638482 0.0166309061 0.0237327089 0.2652118
## 1971 0.026372335 0.0094547124 0.0374790239 0.2715505
## 1972 0.030355837 0.0142005323 0.0420821928 0.2731743
## 1973 0.039673954 -0.1008014086 -0.1323939016 0.2856814
## 1974 -0.038572487 -0.1233829951 -0.1968583719 0.3052014
## 1975 -0.020762768 0.0618187107 0.1018470287 0.2953035
## 1976 0.028574190 -0.0109960435 -0.0490912182 0.3070461
## 1977 0.019150401 0.0156437402 -0.0002477313 0.3126591
## 1978 0.029342283 0.0422188822 0.0777803461 0.3072799
## 1979 0.021145842 0.0203534149 0.0438832681 0.3142227
## 1980 -0.019837568 0.0398187334 0.0862110179 0.3145718
## 1981 0.008456474 0.0057163934 0.0378083983 0.3117417
## 1982 0.027168394 -0.0009582546 0.0063342451 0.3131927
## 1983 0.040322257 0.0046281057 -0.0206072966 0.3117279
## 1984 0.004918762 -0.0111890224 -0.0359126127 0.3286742
## 1985 0.027746467 0.0104605923 0.0109562278 0.3283667
## 1986 0.023824163 -0.0379662692 0.0851187400 0.3349058
## 1987 0.028281240 0.0038469145 0.0242481706 0.3398092
## 1988 0.019116881 0.0138963152 0.0627699933 0.3416741
## 1989 -0.002612700 0.0154871659 0.0097444690 0.3526147
## 1990 -0.006733125 0.0105524538 0.0410225972 0.3597800
## 1991 -0.001324665 0.0130804965 0.0564315102 0.3553733
## 1992 0.009019555 0.0073925495 0.0287142784 0.3730761
## 1993 0.023654762 0.0047303921 -0.0583307179 0.3774036
## 1994 0.027093928 -0.0153786006 -0.0174972677 0.3901363
## 1995 0.011756710 -0.0236207986 -0.0342864639 0.4081333
## 1996 0.011484069 0.0150784524 0.0360045273 0.4303969
## 1997 0.020632301 0.0068605541 0.0667058813 0.4450998
## 1998 0.021655218 -0.0007380532 0.0463475996 0.4507836
## 1999 0.017642626 0.0114415036 0.0153241616 0.4573914
## 2000 0.018631042 -0.0054988877 -0.0049977235 0.4831241
## 2001 0.016414073 0.0182441348 0.0138970196 0.4866112
## 2002 0.010046532 0.0214962668 0.0491455174 0.4913899
## 2003 0.018906567 0.0122173473 0.0134236783 0.4865385
## 2004 0.009524181 0.0055508203 0.0305664664 0.5008370
## 2005 0.016816542 0.0003821208 -0.0057351323 0.5215817
## 2006 0.013235364 -0.0024810226 0.0047797829 0.5639287
## 2007 0.010274356 -0.0117451503 0.0143654617 0.5365402
## 2008 -0.014294170 -0.0334384204 -0.0845135005 0.5363481
## 2009 -0.035937318 0.0179397533 0.0032109032 0.5165284
## 2010 0.015382807 0.0123294510 -0.0203462927 0.5418071
## 2011 0.010473530 -0.0156550691 -0.0431493470 0.5568373
## 2012 0.006477196 0.0032153421 0.0179985121 0.5552183
## 2013 0.011893781 0.0187753751 0.0100444522 0.5560940
## 2014 0.007955423 0.0192259978 0.0535060225 0.5546460
## 2015 0.008219112 0.0146543693 0.0587219148 0.5668310
## 2016 0.004899149 0.0093303552 -0.0107754137 0.5761007
## 2017 0.007736592 -0.0085566404 -0.0336353116 0.5923184
## 2018 0.001972708 0.0023524259 -0.0069334646 0.5939430
adf.GBR.WS <- adf.test((GBR$WS), alternative = c("stationary"), k = 2)
adf.GBR.PS <- adf.test((GBR$PS), alternative = c("stationary"), k = 2)
adf.GBR.Y <- adf.test((GBR$Y), alternative = c("stationary"), k = 2)
adf.GBR.Yrw <- adf.test((GBR$Yrw), alternative = c("stationary"), k = 2)
adf.GBR.r <- adf.test((GBR$r), alternative = c("stationary"), k = 2)
adf.GBR.R <- adf.test((GBR$R), alternative = c("stationary"), k = 2)
adf.GBR.Tau <- adf.test((GBR$Tau), alternative = c("stationary"), k = 2)
adf.GBR.rulc <- adf.test((GBR$rulc), alternative = c("stationary"), k = 2)
adf.GBR.ulc <- adf.test((GBR$ulc), alternative = c("stationary"), k = 2)
adf.GBR.P <- adf.test((GBR$P), alternative = c("stationary"), k = 2)
adf.GBR.Pm <- adf.test((GBR$Pm), alternative = c("stationary"), k = 2)
adf.GBR.Px <- adf.test((GBR$Px), alternative = c("stationary"), k = 2)
adf.GBR.X <- adf.test((GBR$X), alternative = c("stationary"), k = 2)
adf.GBR.M <- adf.test((GBR$M), alternative = c("stationary"), k = 2)
adf.GBR.I <- adf.test((GBR$I), alternative = c("stationary"), k = 2)
adf.GBR.C <- adf.test((GBR$C), alternative = c("stationary"), k = 2)
adf.GBR.Ipr <- adf.test((GBR$Ipr), alternative = c("stationary"), k = 2)
adf.GBR.Ips <- adf.test((GBR$Ips), alternative = c("stationary"), k = 2)
adf.GBR.It <- adf.test((GBR$It), alternative = c("stationary"), k = 2)
adf.GBR.Itcurr <- adf.test((GBR$Itcurr), alternative = c("stationary"), k = 2)
adf.GBR.Yf <- adf.test((GBR$Yf), alternative = c("stationary"), k = 2)
adf.GBR.W <- adf.test((GBR$W), alternative = c("stationary"), k = 2)
adf.GBR.WS.pval <- adf.GBR.WS$p.value
adf.GBR.PS.pval <- adf.GBR.PS$p.value
adf.GBR.Y.pval <- adf.GBR.Y$p.value
adf.GBR.Yrw.pval <- adf.GBR.Yrw$p.value
adf.GBR.r.pval <- adf.GBR.r$p.value
adf.GBR.R.pval <- adf.GBR.R$p.value
adf.GBR.Tau.pval <- adf.GBR.Tau$p.value
adf.GBR.rulc.pval <- adf.GBR.rulc$p.value
adf.GBR.ulc.pval <- adf.GBR.ulc$p.value
adf.GBR.P.pval <- adf.GBR.P$p.value
adf.GBR.Pm.pval <- adf.GBR.Pm$p.value
adf.GBR.Px.pval <- adf.GBR.Px$p.value
adf.GBR.X.pval <- adf.GBR.X$p.value
adf.GBR.M.pval <- adf.GBR.M$p.value
adf.GBR.I.pval <- adf.GBR.I$p.value
adf.GBR.C.pval <- adf.GBR.C$p.value
adf.GBR.Ipr.pval <- adf.GBR.Ipr$p.value
adf.GBR.Ips.pval <- adf.GBR.Ips$p.value
adf.GBR.It.pval <- adf.GBR.It$p.value
adf.GBR.Itcurr.pval <- adf.GBR.Itcurr$p.value
adf.GBR.Yf.pval <- adf.GBR.Yf$p.value
adf.GBR.W.pval <- adf.GBR.W$p.value
adf.GBR_non <- rbind(adf.GBR.WS.pval,adf.GBR.PS.pval,adf.GBR.Y.pval,adf.GBR.Yrw.pval,adf.GBR.r.pval,adf.GBR.R.pval,adf.GBR.Tau.pval,adf.GBR.rulc.pval,adf.GBR.ulc.pval,adf.GBR.P.pval,adf.GBR.Pm.pval,adf.GBR.Px.pval,adf.GBR.X.pval,adf.GBR.M.pval,adf.GBR.I.pval,adf.GBR.C.pval,adf.GBR.Ipr.pval,adf.GBR.Ips.pval,adf.GBR.It.pval,adf.GBR.Itcurr.pval,adf.GBR.Yf.pval,adf.GBR.W.pval)
colnames(adf.GBR_non) <- c("GBR")
rownames(adf.GBR_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.GBR_non
## GBR
## WS 0.50256586
## PS 0.50256586
## Y 0.59894258
## Yrw 0.62081531
## r 0.56394057
## R 0.25798017
## Tau 0.71476222
## rulc 0.53668267
## ulc 0.40154074
## P 0.47452317
## Pm 0.64134215
## Px 0.58467983
## X 0.81239839
## M 0.74367133
## I 0.06132643
## C 0.46999129
## Ipr 0.05740594
## Ips 0.71481404
## It 0.07232361
## Itcurr 0.21137751
## Yf 0.50550390
## W 0.57133761
adf.GBR.WS_dl <- adf.test((GBR$WS_dl), alternative = c("stationary"), k = 2)
adf.GBR.PS_dl <- adf.test((GBR$PS_dl), alternative = c("stationary"), k = 2)
adf.GBR.Y_dl <- adf.test((GBR$Y_dl), alternative = c("stationary"), k = 2)
adf.GBR.Yrw_dl <- adf.test((GBR$Yrw_dl), alternative = c("stationary"), k = 2)
adf.GBR.r_dl <- adf.test((GBR$r_dl), alternative = c("stationary"), k = 2)
adf.GBR.R_dl <- adf.test((GBR$R_dl), alternative = c("stationary"), k = 2)
adf.GBR.Tau_dl <- adf.test((GBR$Tau_dl), alternative = c("stationary"), k = 2)
adf.GBR.rulc_dl <- adf.test((GBR$rulc_dl), alternative = c("stationary"), k = 2)
adf.GBR.ulc_dl <- adf.test((GBR$ulc_dl), alternative = c("stationary"), k = 2)
adf.GBR.P_dl <- adf.test((GBR$P_dl), alternative = c("stationary"), k = 2)
adf.GBR.Pm_dl <- adf.test((GBR$Pm_dl), alternative = c("stationary"), k = 2)
adf.GBR.Px_dl <- adf.test((GBR$Px_dl), alternative = c("stationary"), k = 2)
adf.GBR.X_dl <- adf.test((GBR$X_dl), alternative = c("stationary"), k = 2)
adf.GBR.M_dl <- adf.test((GBR$M_dl), alternative = c("stationary"), k = 2)
adf.GBR.I_dl <- adf.test((GBR$I_dl), alternative = c("stationary"), k = 2)
adf.GBR.C_dl <- adf.test((GBR$C_dl), alternative = c("stationary"), k = 2)
adf.GBR.Ipr_dl <- adf.test((GBR$Ipr_dl), alternative = c("stationary"), k = 2)
adf.GBR.Ips_dl <- adf.test((GBR$Ips_dl), alternative = c("stationary"), k = 2)
adf.GBR.It_dl <- adf.test((GBR$It_dl), alternative = c("stationary"), k = 2)
adf.GBR.Itcurr_dl <- adf.test((GBR$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.GBR.Yf_dl <- adf.test((GBR$Yf_dl), alternative = c("stationary"), k = 2)
adf.GBR.W_dl <- adf.test((GBR$W_dl), alternative = c("stationary"), k = 2)
adf.GBR.WS_dl.pval <- adf.GBR.WS_dl$p.value
adf.GBR.PS_dl.pval <- adf.GBR.PS_dl$p.value
adf.GBR.Y_dl.pval <- adf.GBR.Y_dl$p.value
adf.GBR.Yrw_dl.pval <- adf.GBR.Yrw_dl$p.value
adf.GBR.r_dl.pval <- adf.GBR.r_dl$p.value
adf.GBR.R_dl.pval <- adf.GBR.R_dl$p.value
adf.GBR.Tau_dl.pval <- adf.GBR.Tau_dl$p.value
adf.GBR.rulc_dl.pval <- adf.GBR.rulc_dl$p.value
adf.GBR.ulc_dl.pval <- adf.GBR.ulc_dl$p.value
adf.GBR.P_dl.pval <- adf.GBR.P_dl$p.value
adf.GBR.Pm_dl.pval <- adf.GBR.Pm_dl$p.value
adf.GBR.Px_dl.pval <- adf.GBR.Px_dl$p.value
adf.GBR.X_dl.pval <- adf.GBR.X_dl$p.value
adf.GBR.M_dl.pval <- adf.GBR.M_dl$p.value
adf.GBR.I_dl.pval <- adf.GBR.I_dl$p.value
adf.GBR.C_dl.pval <- adf.GBR.C_dl$p.value
adf.GBR.Ipr_dl.pval <- adf.GBR.Ipr_dl$p.value
adf.GBR.Ips_dl.pval <- adf.GBR.Ips_dl$p.value
adf.GBR.It_dl.pval <- adf.GBR.It_dl$p.value
adf.GBR.Itcurr_dl.pval <- adf.GBR.Itcurr_dl$p.value
adf.GBR.Yf_dl.pval <- adf.GBR.Yf_dl$p.value
adf.GBR.W_dl.pval <- adf.GBR.W_dl$p.value
adf.GBR_dl <- rbind(adf.GBR.WS_dl.pval,adf.GBR.PS_dl.pval,adf.GBR.Y_dl.pval,adf.GBR.Yrw_dl.pval,adf.GBR.r_dl.pval,adf.GBR.R_dl.pval,adf.GBR.Tau_dl.pval,adf.GBR.rulc_dl.pval,adf.GBR.ulc_dl.pval,adf.GBR.P_dl.pval,adf.GBR.Pm_dl.pval,adf.GBR.Px_dl.pval,adf.GBR.X_dl.pval,adf.GBR.M_dl.pval,adf.GBR.I_dl.pval,adf.GBR.C_dl.pval,adf.GBR.Ipr_dl.pval,adf.GBR.Ips_dl.pval,adf.GBR.It_dl.pval,adf.GBR.Itcurr_dl.pval,adf.GBR.Yf_dl.pval,adf.GBR.W_dl.pval)
colnames(adf.GBR_dl) <- c("GBR")
rownames(adf.GBR_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.GBR_dl
## GBR
## dlog(WS) 0.01000000
## dlog(PS) 0.01000000
## dlog(Y) 0.01000000
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.01000000
## dlog(Tau) 0.01000000
## dlog(rulc) 0.01000000
## dlog(ulc) 0.08211543
## dlog(P) 0.31132783
## dlog(Pm) 0.14116250
## dlog(Px) 0.20820023
## dlog(X) 0.01000000
## dlog(M) 0.01000000
## dlog(I) 0.01000000
## dlog(C) 0.04435590
## dlog(Ipr) 0.01164540
## dlog(Ips) 0.01000000
## dlog(It) 0.01000000
## dlog(Itcurr) 0.01041577
## dlog(Yf) 0.01000000
## dlog(W) 0.05527507
adf.GBR <- NULL
adf.GBR <- rbind(adf.GBR_non,adf.GBR_dl)
#Consumption (C)
GBR_consumption <- dynlm(GBR$C_dl~GBR$R_dl+GBR$W_dl)
GBR_CR <- summary(GBR_consumption)$coefficients["GBR$R_dl","Estimate"]
GBR_CW <- summary(GBR_consumption)$coefficients["GBR$W_dl","Estimate"]
GBR_Ceffekt <- (GBR_CR*mean(GBR$C/GBR$R))-(GBR_CW*mean(GBR$C/GBR$W))
summary(GBR_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$C_dl ~ GBR$R_dl + GBR$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.022380 -0.004548 -0.001046 0.005853 0.022626
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.007035 0.002106 3.341 0.00155 **
## GBR$R_dl 0.223432 0.028332 7.886 0.000000000192776 ***
## GBR$W_dl 0.675589 0.067382 10.026 0.000000000000095 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01044 on 52 degrees of freedom
## Multiple R-squared: 0.7388, Adjusted R-squared: 0.7288
## F-statistic: 73.56 on 2 and 52 DF, p-value: 0.0000000000000006907
#Investments (I)
GBR_investment <- dynlm(GBR$I_dl~GBR$PS_dl+GBR$Y_dl+L(GBR$r_dl,2))
GBR_iPS <- summary(GBR_investment)$coefficients["GBR$PS_dl","Estimate"]
GBR_Ieffekt <- GBR_iPS*mean(GBR$I/GBR$R)
summary(GBR_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$I_dl ~ GBR$PS_dl + GBR$Y_dl + L(GBR$r_dl,
## 2))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.125619 -0.020355 0.005741 0.027394 0.073185
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.029128 0.008369 -3.481 0.00103 **
## GBR$PS_dl 0.340874 0.174934 1.949 0.05686 .
## GBR$Y_dl 2.313895 0.286514 8.076 0.000000000111 ***
## L(GBR$r_dl, 2) -0.019910 0.012537 -1.588 0.11844
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03761 on 51 degrees of freedom
## Multiple R-squared: 0.6696, Adjusted R-squared: 0.6502
## F-statistic: 34.46 on 3 and 51 DF, p-value: 0.000000000002593
#Price deflator (P)
GBR_deflator <- dynlm(GBR$P_dl~L(GBR$ulc_dl)+GBR$Pm_dl)
GBR_ePULC <- summary(GBR_deflator)$coefficients["L(GBR$ulc_dl)","Estimate"]
summary(GBR_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$P_dl ~ L(GBR$ulc_dl) + GBR$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.053276 -0.009357 -0.002046 0.009887 0.052851
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.010915 0.003115 3.504 0.000951 ***
## L(GBR$ulc_dl) 0.750933 0.052008 14.439 < 0.0000000000000002 ***
## GBR$Pm_dl 0.099363 0.041418 2.399 0.020059 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01668 on 52 degrees of freedom
## Multiple R-squared: 0.8837, Adjusted R-squared: 0.8793
## F-statistic: 197.6 on 2 and 52 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
GBR_exportdeflator <- dynlm(GBR$Px_dl~GBR$ulc_dl+GBR$Pm_dl)
GBR_ePX <- summary(GBR_exportdeflator)$coefficients["GBR$ulc_dl","Estimate"]
summary(GBR_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$Px_dl ~ GBR$ulc_dl + GBR$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.071866 -0.006383 0.002223 0.010418 0.040183
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.003479 0.003650 0.953 0.345
## GBR$ulc_dl 0.292934 0.060951 4.806 0.0000135 ***
## GBR$Pm_dl 0.625195 0.048540 12.880 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01955 on 52 degrees of freedom
## Multiple R-squared: 0.8866, Adjusted R-squared: 0.8822
## F-statistic: 203.2 on 2 and 52 DF, p-value: < 0.00000000000000022
#Exports (X)
GBR_exports <- dynlm(GBR$X_dl~L(GBR$dPxdPm)+GBR$Yrw_dl)
GBR_eXP <- summary(GBR_exports)$coefficients["L(GBR$dPxdPm)","Estimate"]
GBR_Xeffekt <- -(GBR_eXP*GBR_ePX*(1/(1-GBR_ePULC))*mean(GBR$Yf/GBR$Y)*(mean(GBR$X/GBR$Y)/mean(GBR$rulc)))
summary(GBR_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$X_dl ~ L(GBR$dPxdPm) + GBR$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.065624 -0.017281 -0.000221 0.020893 0.073148
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.008105 0.007345 1.104 0.27487
## L(GBR$dPxdPm) -0.534180 0.135379 -3.946 0.00024 ***
## GBR$Yrw_dl 1.097751 0.214982 5.106 0.00000474 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02762 on 52 degrees of freedom
## Multiple R-squared: 0.4862, Adjusted R-squared: 0.4664
## F-statistic: 24.6 on 2 and 52 DF, p-value: 0.00000003029
#Imports (M)
GBR_imports <- dynlm(GBR$M_dl~GBR$dPdPm+L(GBR$Y_dl))
GBR_eMP <- summary(GBR_imports)$coefficients["GBR$dPdPm","Estimate"]
GBR_eMP <- 0
GBR_Meffekt <- -(GBR_eMP*GBR_ePULC*(1/(1-GBR_ePULC))*mean(GBR$Yf/GBR$Y)*(mean(GBR$M/GBR$Y)/mean(GBR$rulc)))
summary(GBR_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$M_dl ~ GBR$dPdPm + L(GBR$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.072651 -0.015322 -0.002302 0.015976 0.056257
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.002973 0.005365 0.554 0.582
## GBR$dPdPm -0.088270 0.067425 -1.309 0.196
## L(GBR$Y_dl) 1.691852 0.173744 9.738 0.000000000000258 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02585 on 52 degrees of freedom
## Multiple R-squared: 0.6493, Adjusted R-squared: 0.6358
## F-statistic: 48.14 on 2 and 52 DF, p-value: 0.00000000000147
names(GBR_consumption$coefficients) <- sub("GBR$","",names(GBR_consumption$coefficients),fixed=TRUE)
names(GBR_investment$coefficients) <- sub("GBR$","",names(GBR_investment$coefficients),fixed=TRUE)
names(GBR_deflator$coefficients) <- sub("GBR$","",names(GBR_deflator$coefficients),fixed=TRUE)
names(GBR_exportdeflator$coefficients) <- sub("GBR$","",names(GBR_exportdeflator$coefficients),fixed=TRUE)
names(GBR_exports$coefficients) <- sub("GBR$","",names(GBR_exports$coefficients),fixed=TRUE)
names(GBR_imports$coefficients) <- sub("GBR$","",names(GBR_imports$coefficients),fixed=TRUE)
GBR_Xeffekt
## [1] 0.1992125
GBR_Meffekt
## [1] 0
#Nettoeksport (NX)
GBR_NXeffekt <- GBR_Xeffekt - GBR_Meffekt
GBR_NXeffekt
## [1] 0.1992125
#Nettoeffekten
GBR_Neteffekt = GBR_Ceffekt + GBR_Ieffekt + GBR_NXeffekt
GBR_Neteffekt
## [1] 0.07685367
GBR_Lukket <- GBR_Ceffekt + GBR_Ieffekt
GBR_Lukket_Konklusion <- ifelse(GBR_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
GBR_Lukket_Konklusion
## [1] "Wage-led domestic"
GBR_Def <- ifelse(GBR_Neteffekt > 0, "Profit-led", "Wage-led")
GBR_Def
## [1] "Profit-led"
summary(ur.df(y=GBR_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.012720 -0.003191 0.001790 0.005409 0.016449
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.58156 0.28487 -2.042 0.0504 .
## z.diff.lag1 -0.15323 0.28373 -0.540 0.5933
## z.diff.lag2 0.03812 0.27017 0.141 0.8888
## z.diff.lag3 0.15029 0.27073 0.555 0.5831
## z.diff.lag4 0.16859 0.27475 0.614 0.5442
## z.diff.lag5 -0.04172 0.26666 -0.156 0.8768
## z.diff.lag6 0.15465 0.25305 0.611 0.5459
## z.diff.lag7 0.26706 0.23174 1.152 0.2586
## z.diff.lag8 0.53187 0.21985 2.419 0.0221 *
## z.diff.lag9 0.21882 0.22714 0.963 0.3433
## z.diff.lag10 0.03592 0.21444 0.168 0.8681
## z.diff.lag11 0.08876 0.17626 0.504 0.6184
## z.diff.lag12 -0.10354 0.13278 -0.780 0.4418
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.007636 on 29 degrees of freedom
## Multiple R-squared: 0.63, Adjusted R-squared: 0.4642
## F-statistic: 3.799 on 13 and 29 DF, p-value: 0.001357
##
##
## Value of test-statistic is: -2.0415
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=GBR_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.074418 -0.024768 0.007786 0.022754 0.080224
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.028669 0.739535 -1.391 0.175
## z.diff.lag1 -0.030219 0.715508 -0.042 0.967
## z.diff.lag2 0.007084 0.684844 0.010 0.992
## z.diff.lag3 0.078240 0.652840 0.120 0.905
## z.diff.lag4 0.082218 0.610257 0.135 0.894
## z.diff.lag5 0.040224 0.560937 0.072 0.943
## z.diff.lag6 -0.112647 0.515202 -0.219 0.828
## z.diff.lag7 -0.161845 0.468696 -0.345 0.732
## z.diff.lag8 -0.141303 0.425870 -0.332 0.742
## z.diff.lag9 -0.067225 0.389002 -0.173 0.864
## z.diff.lag10 -0.046334 0.330283 -0.140 0.889
## z.diff.lag11 -0.058508 0.253325 -0.231 0.819
## z.diff.lag12 0.021547 0.172969 0.125 0.902
##
## Residual standard error: 0.04008 on 29 degrees of freedom
## Multiple R-squared: 0.551, Adjusted R-squared: 0.3497
## F-statistic: 2.737 on 13 and 29 DF, p-value: 0.01179
##
##
## Value of test-statistic is: -1.391
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=GBR_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.060376 -0.015019 -0.001191 0.018978 0.070787
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.88445 0.51995 -1.701 0.0996 .
## z.diff.lag1 -0.07331 0.49794 -0.147 0.8840
## z.diff.lag2 0.02369 0.48490 0.049 0.9614
## z.diff.lag3 -0.05950 0.47540 -0.125 0.9013
## z.diff.lag4 -0.17714 0.46460 -0.381 0.7058
## z.diff.lag5 0.14642 0.45193 0.324 0.7483
## z.diff.lag6 0.21335 0.43098 0.495 0.6243
## z.diff.lag7 0.16917 0.40995 0.413 0.6829
## z.diff.lag8 0.14864 0.37577 0.396 0.6953
## z.diff.lag9 0.28549 0.31012 0.921 0.3649
## z.diff.lag10 0.26373 0.27975 0.943 0.3536
## z.diff.lag11 0.31978 0.24435 1.309 0.2009
## z.diff.lag12 0.13462 0.21715 0.620 0.5401
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02809 on 29 degrees of freedom
## Multiple R-squared: 0.5787, Adjusted R-squared: 0.3899
## F-statistic: 3.065 on 13 and 29 DF, p-value: 0.005912
##
##
## Value of test-statistic is: -1.701
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=GBR_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.039585 -0.013591 0.004926 0.017580 0.041832
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.98339 0.66579 -1.477 0.150
## z.diff.lag1 -0.17271 0.63641 -0.271 0.788
## z.diff.lag2 -0.20866 0.61461 -0.339 0.737
## z.diff.lag3 -0.37466 0.60478 -0.619 0.540
## z.diff.lag4 -0.10743 0.59053 -0.182 0.857
## z.diff.lag5 0.02678 0.57120 0.047 0.963
## z.diff.lag6 0.05470 0.54462 0.100 0.921
## z.diff.lag7 0.10160 0.51757 0.196 0.846
## z.diff.lag8 0.10193 0.48852 0.209 0.836
## z.diff.lag9 0.03292 0.45201 0.073 0.942
## z.diff.lag10 0.21930 0.38942 0.563 0.578
## z.diff.lag11 -0.09161 0.31498 -0.291 0.773
## z.diff.lag12 -0.14790 0.21007 -0.704 0.487
##
## Residual standard error: 0.02516 on 29 degrees of freedom
## Multiple R-squared: 0.7522, Adjusted R-squared: 0.6412
## F-statistic: 6.773 on 13 and 29 DF, p-value: 0.000009722
##
##
## Value of test-statistic is: -1.477
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
plot(GBR_consumption)
plot(GBR_investment)
plot(GBR_deflator)
plot(GBR_exportdeflator)
plot(GBR_exports)
plot(GBR_imports)
bptest(GBR_consumption)
##
## studentized Breusch-Pagan test
##
## data: GBR_consumption
## BP = 4.8636, df = 2, p-value = 0.08788
bptest(GBR_investment)
##
## studentized Breusch-Pagan test
##
## data: GBR_investment
## BP = 6.2237, df = 3, p-value = 0.1012
bptest(GBR_deflator)
##
## studentized Breusch-Pagan test
##
## data: GBR_deflator
## BP = 15.116, df = 2, p-value = 0.0005219
bptest(GBR_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: GBR_exportdeflator
## BP = 7.0032, df = 2, p-value = 0.03015
bptest(GBR_exports)
##
## studentized Breusch-Pagan test
##
## data: GBR_exports
## BP = 1.0499, df = 2, p-value = 0.5916
bptest(GBR_imports)
##
## studentized Breusch-Pagan test
##
## data: GBR_imports
## BP = 0.086692, df = 2, p-value = 0.9576
resettest(GBR_consumption)
##
## RESET test
##
## data: GBR_consumption
## RESET = 0.96057, df1 = 2, df2 = 50, p-value = 0.3896
resettest(GBR_investment)
##
## RESET test
##
## data: GBR_investment
## RESET = 0.77028, df1 = 2, df2 = 49, p-value = 0.4684
resettest(GBR_deflator)
##
## RESET test
##
## data: GBR_deflator
## RESET = 4.0189, df1 = 2, df2 = 50, p-value = 0.02407
resettest(GBR_exportdeflator)
##
## RESET test
##
## data: GBR_exportdeflator
## RESET = 13.48, df1 = 2, df2 = 50, p-value = 0.00002078
resettest(GBR_exports)
##
## RESET test
##
## data: GBR_exports
## RESET = 2.0893, df1 = 2, df2 = 50, p-value = 0.1344
resettest(GBR_imports)
##
## RESET test
##
## data: GBR_imports
## RESET = 1.1267, df1 = 2, df2 = 50, p-value = 0.3322
GBR_regtab <- matrix(c(GBR_Ceffekt, GBR_Ieffekt, GBR_Lukket, GBR_Xeffekt, GBR_Meffekt, GBR_NXeffekt, GBR_Neteffekt,GBR_Lukket_Konklusion, GBR_Def),ncol=9,byrow=TRUE)
colnames(GBR_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(GBR_regtab) <- c("GBR")
GBR_regtab <- as.table(GBR_regtab)
GBR_regtab
## consumption investment Lukket neteffekt
## GBR -0.280552719300364 0.158193849731167 -0.122358869569198
## exports imports netexports neteffect
## GBR 0.199212536911048 0 0.199212536911048 0.0768536673418502
## Lukket konklusion Konklusion
## GBR Wage-led domestic Profit-led
GBR_smoke <- matrix(c(mean(GBR$C/GBR$R), mean(GBR$C/GBR$W), mean(GBR$I/GBR$R), GBR_CR, GBR_CW, GBR_iPS, GBR_ePULC, (1/(1-GBR_ePULC)), GBR_eXP, GBR_ePX, GBR_eMP, mean(GBR$Yf/GBR$Y), mean(GBR$X/GBR$Y), mean(GBR$rulc), (mean(GBR$X/GBR$Y)/mean(GBR$rulc))),ncol=15,byrow=TRUE)
colnames(GBR_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(GBR_smoke) <- c("GBR")
GBR_smoke <- as.table(GBR_smoke)
GBR_smoke
## C/R C/W I/R CR CW iPS
## GBR 1.8063573 1.0126717 0.4640836 0.2234315 0.6755890 0.3408736
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## GBR 0.7509329 4.0149831 -0.5341795 0.2929344 0.0000000 0.9335395
## X/Y RULC (X/Y)/rulc
## GBR 0.2030828 0.5979027 0.3396586
summary(GBR_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$C_dl ~ GBR$R_dl + GBR$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.022380 -0.004548 -0.001046 0.005853 0.022626
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.007035 0.002106 3.341 0.00155 **
## R_dl 0.223432 0.028332 7.886 0.000000000192776 ***
## W_dl 0.675589 0.067382 10.026 0.000000000000095 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01044 on 52 degrees of freedom
## Multiple R-squared: 0.7388, Adjusted R-squared: 0.7288
## F-statistic: 73.56 on 2 and 52 DF, p-value: 0.0000000000000006907
summary(GBR_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$I_dl ~ GBR$PS_dl + GBR$Y_dl + L(GBR$r_dl,
## 2))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.125619 -0.020355 0.005741 0.027394 0.073185
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.029128 0.008369 -3.481 0.00103 **
## PS_dl 0.340874 0.174934 1.949 0.05686 .
## Y_dl 2.313895 0.286514 8.076 0.000000000111 ***
## L(r_dl, 2) -0.019910 0.012537 -1.588 0.11844
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03761 on 51 degrees of freedom
## Multiple R-squared: 0.6696, Adjusted R-squared: 0.6502
## F-statistic: 34.46 on 3 and 51 DF, p-value: 0.000000000002593
summary(GBR_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$P_dl ~ L(GBR$ulc_dl) + GBR$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.053276 -0.009357 -0.002046 0.009887 0.052851
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.010915 0.003115 3.504 0.000951 ***
## L(ulc_dl) 0.750933 0.052008 14.439 < 0.0000000000000002 ***
## Pm_dl 0.099363 0.041418 2.399 0.020059 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01668 on 52 degrees of freedom
## Multiple R-squared: 0.8837, Adjusted R-squared: 0.8793
## F-statistic: 197.6 on 2 and 52 DF, p-value: < 0.00000000000000022
summary(GBR_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$Px_dl ~ GBR$ulc_dl + GBR$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.071866 -0.006383 0.002223 0.010418 0.040183
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.003479 0.003650 0.953 0.345
## ulc_dl 0.292934 0.060951 4.806 0.0000135 ***
## Pm_dl 0.625195 0.048540 12.880 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01955 on 52 degrees of freedom
## Multiple R-squared: 0.8866, Adjusted R-squared: 0.8822
## F-statistic: 203.2 on 2 and 52 DF, p-value: < 0.00000000000000022
summary(GBR_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$X_dl ~ L(GBR$dPxdPm) + GBR$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.065624 -0.017281 -0.000221 0.020893 0.073148
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.008105 0.007345 1.104 0.27487
## L(dPxdPm) -0.534180 0.135379 -3.946 0.00024 ***
## Yrw_dl 1.097751 0.214982 5.106 0.00000474 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02762 on 52 degrees of freedom
## Multiple R-squared: 0.4862, Adjusted R-squared: 0.4664
## F-statistic: 24.6 on 2 and 52 DF, p-value: 0.00000003029
summary(GBR_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 55
##
## Call:
## dynlm(formula = GBR$M_dl ~ GBR$dPdPm + L(GBR$Y_dl))
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.072651 -0.015322 -0.002302 0.015976 0.056257
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.002973 0.005365 0.554 0.582
## dPdPm -0.088270 0.067425 -1.309 0.196
## L(Y_dl) 1.691852 0.173744 9.738 0.000000000000258 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02585 on 52 degrees of freedom
## Multiple R-squared: 0.6493, Adjusted R-squared: 0.6358
## F-statistic: 48.14 on 2 and 52 DF, p-value: 0.00000000000147
USA_df[!complete.cases(USA_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 0.6831705 -0.3810108 NA 0.3168295 -1.1493915 NA
## 1961 0.6779188 -0.3887277 -0.0077169030 0.3220812 -1.1329517 0.016439823
## 2019 0.6061193 -0.5006785 0.0009501636 0.3938807 -0.9317072 -0.001460388
## 2020 0.6149378 -0.4862342 0.0144443030 0.3850622 -0.9543504 -0.022643207
## 2021 0.5951158 -0.5189993 -0.0327651816 0.4048842 -0.9041541 0.050196317
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 3413.79 8.135578 NA 8890010242468 29.81595 NA
## 1961 3501.22 8.160867 0.02528837 9308427119852 29.86194 0.04599193
## 2019 19972.85 9.902129 0.02306594 NA NA NA
## 2020 18683.10 9.835375 -0.06675448 NA NA NA
## 2021 19604.87 9.883533 0.04815863 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1960 44.500 3369.29 8.122457 NA 2071.63 7.636091 NA
## 1961 47.000 3454.22 8.147352 0.02489463 2114.09 7.656380 0.02028872
## 2019 1494.800 18478.05 9.824339 0.02201892 13684.59 9.524026 0.02558805
## 2020 1459.181 17223.92 9.754054 -0.07028448 12697.06 9.449126 -0.07489991
## 2021 1497.590 18107.28 9.804069 0.05001501 13776.67 9.530732 0.08160611
## 2022 NA NA NA NA NA NA NA
## W W_l W_dl R R_l R_dl It
## 1960 2301.800 7.741446 NA 1067.490 6.973066 NA 560.521
## 1961 2341.681 7.758624 0.01717773 1112.539 7.014400 0.04133446 569.119
## 2019 11199.903 9.323660 0.02296908 7278.147 8.892632 0.02055853 4157.039
## 2020 10591.639 9.267820 -0.05584018 6632.280 8.799704 -0.09292769 3891.542
## 2021 10775.928 9.285070 0.01724983 7331.352 8.899915 0.10021133 3943.540
## 2022 NA NA NA NA NA NA NA
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1960 6.328867 NA 119.200 4.780803 NA 83.200 4.421247
## 1961 6.344090 0.01522284 123.500 4.816241 0.03543840 83.600 4.426044
## 2019 8.332558 0.01782556 4410.100 8.391653 0.03444043 3675.600 8.209472
## 2020 8.266561 -0.06599756 3970.071 8.286539 -0.10511339 3129.617 8.048666
## 2021 8.279834 0.01327332 4123.396 8.324432 0.03789312 3335.047 8.112242
## 2022 NA NA NA NA NA NA NA
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1960 NA 0.6979866 -0.3595554 NA 391.2361 5.969311
## 1961 0.004796172 0.6769231 -0.3901976 -0.030642229 385.2498 5.953892
## 2019 0.028142894 0.8334505 -0.1821810 -0.006297535 3464.6862 8.150377
## 2020 -0.160805752 0.7883025 -0.2378733 -0.055692366 3067.7124 8.028687
## 2021 0.063576139 0.8088107 -0.2121903 0.025683022 3189.5775 8.067644
## 2022 NA NA NA NA NA NA
## I_dl r r_l r_dl P P_l
## 1960 NA NA NA NA 15.88852 2.765597
## 1961 -0.01541939 2.828075 1.778511 NA 16.05724 2.776160
## 2019 0.01152802 0.389249 1.247666 -0.02091865 107.28415 4.675481
## 2020 -0.12168993 NA NA NA 106.62775 4.669344
## 2021 0.03895634 NA NA NA 108.22783 4.684239
## 2022 NA NA NA NA NA NA
## P_dl Pm Pm_l Pm_dl Px Px_l
## 1960 NA 18.73518 2.930403 NA 25.07232 3.221764
## 1961 0.010562954 18.77792 2.932681 0.002278496 25.49399 3.238443
## 2019 0.017289302 99.99624 4.605133 -0.013687151 103.65564 4.641074
## 2020 -0.006137171 98.20450 4.587052 -0.018080569 102.12262 4.626174
## 2021 0.014894789 100.02816 4.605452 0.018399712 103.70365 4.641537
## 2022 NA NA NA NA NA NA
## Px_dl X X_l X_dl M M_l
## 1960 NA 107.688 4.679238 NA 121.696 4.801526
## 1961 0.016678540 108.261 4.684545 0.005306821 120.887 4.794856
## 2019 -0.002393014 2415.981 7.789861 0.000000000 3136.218 8.050773
## 2020 -0.014899937 2091.484 7.645629 -0.144231554 2732.847 7.913099
## 2021 0.015362986 2306.555 7.743510 0.097881208 3092.839 8.036845
## 2022 NA NA NA NA NA NA
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1960 NA 0.6742651 -0.3941319 NA 10.71307 2.371465
## 1961 -0.006669907 0.6688185 -0.4022425 -0.00811063881 10.73938 2.373917
## 2019 0.009741133 0.5607564 -0.5784688 -0.00009685623 60.16027 4.097012
## 2020 -0.137673692 0.5669101 -0.5675545 0.01091429856 60.44835 4.101789
## 2021 0.123745516 0.5496557 -0.5984633 -0.03090880441 59.48804 4.085775
## 2022 NA NA NA NA NA NA
## ulc_dl Tau Tau_l Tau_dl dPxdPm
## 1960 NA 52.03706 3.951956 NA NA
## 1961 0.002452315 52.90290 3.968458 0.016501927 0.014400044
## 2019 0.017192446 102.74226 4.632224 0.008336292 0.011294137
## 2020 0.004777128 99.44046 4.599559 -0.032664482 0.003180632
## 2021 -0.016014016 102.60602 4.630897 0.031337576 -0.003036725
## 2022 NA NA NA NA NA
## dPdPm Trade
## 1960 NA 0.06719335
## 1961 0.008284458 0.06544804
## 2019 0.030976453 0.27798732
## 2020 0.011943398 0.25821898
## 2021 -0.003504923 0.27541085
## 2022 NA NA
USA <- USA_df[3:59,]
USA[!complete.cases(USA),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
USA %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1962 0.6716970 -0.3979480 -0.009220267 0.3283030 -1.113818 0.019133474
## 1963 0.6684577 -0.4027822 -0.004834198 0.3315423 -1.104000 0.009818379
## 1964 0.6647163 -0.4083949 -0.005612715 0.3352837 -1.092778 0.011221495
## 1965 0.6559498 -0.4216709 -0.013276034 0.3440502 -1.066968 0.025810470
## 1966 0.6545491 -0.4238087 -0.002137726 0.3454509 -1.062905 0.004063068
## 1967 0.6628483 -0.4112091 0.012599554 0.3371517 -1.087222 -0.024317543
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl Tax
## 1962 3715.79 8.220347 0.05947983 9857985551658 29.91930 0.05736171 50.4
## 1963 3877.58 8.262967 0.04261994 10397353895289 29.97257 0.05326950 53.4
## 1964 4101.05 8.318998 0.05603179 11076704480468 30.03587 0.06329287 57.3
## 1965 4367.55 8.381957 0.06295917 11689708297532 30.08973 0.05386461 60.7
## 1966 4655.63 8.445833 0.06387503 12403784248097 30.14902 0.05929279 63.2
## 1967 4783.28 8.472882 0.02704926 12981685156702 30.19456 0.04553792 67.9
## Yf Yf_l Yf_dl C C_l C_dl W
## 1962 3665.39 8.206690 0.05933807 2218.68 7.704668 0.04828796 2462.031
## 1963 3824.18 8.249099 0.04240932 2310.18 7.745081 0.04041302 2556.302
## 1964 4043.75 8.304928 0.05582841 2447.65 7.802884 0.05780294 2687.947
## 1965 4306.85 8.367962 0.06303430 2602.94 7.864397 0.06151319 2825.078
## 1966 4592.43 8.432165 0.06420252 2750.60 7.919574 0.05517749 3005.971
## 1967 4715.38 8.458585 0.02642021 2832.83 7.949031 0.02945714 3125.582
## W_l W_dl R R_l R_dl It It_l
## 1962 7.808742 0.05011780 1203.359 7.092872 0.078471544 615.746 6.422835
## 1963 7.846317 0.03757513 1267.878 7.145100 0.052227703 664.523 6.499069
## 1964 7.896533 0.05021570 1355.803 7.212149 0.067049909 726.693 6.588504
## 1965 7.946291 0.04975826 1481.772 7.300994 0.088844769 797.130 6.681018
## 1966 8.008356 0.06206479 1586.459 7.369260 0.068265586 841.442 6.735117
## 1967 8.047376 0.03901976 1589.798 7.371362 0.002102668 832.018 6.723854
## It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl
## 1962 0.07874499 133.5 4.894101 0.07786032 90.9 4.509760 0.08371648
## 1963 0.07623495 142.1 4.956531 0.06242956 97.7 4.581902 0.07214156
## 1964 0.08943461 153.7 5.035003 0.07847162 107.3 4.675629 0.09372709
## 1965 0.09251367 168.3 5.125748 0.09074545 120.4 4.790820 0.11519088
## 1966 0.05409931 184.2 5.216022 0.09027402 130.6 4.872139 0.08131968
## 1967 -0.01126301 190.5 5.249652 0.03363007 132.8 4.888844 0.01670502
## Ips Ips_l Ips_dl I I_l I_dl
## 1962 0.6808989 -0.3843415 0.005856159 419.2608 6.038493 0.08460115
## 1963 0.6875440 -0.3746295 0.009712001 456.8888 6.124440 0.08594695
## 1964 0.6981132 -0.3593740 0.015255475 507.3140 6.229130 0.10469009
## 1965 0.7153892 -0.3349286 0.024445433 570.2582 6.346089 0.11695910
## 1966 0.7090119 -0.3438829 -0.008954339 596.5924 6.391234 0.04514497
## 1967 0.6971129 -0.3608080 -0.016925051 580.0104 6.363046 -0.02818806
## r r_l r_dl P P_l P_dl Pm
## 1962 2.692746 1.755390 -0.02312086 16.25226 2.788232 0.01207233 18.56688
## 1963 2.818047 1.776816 0.02142580 16.44067 2.799758 0.01152615 18.87937
## 1964 2.569107 1.733789 -0.04302720 16.69086 2.814861 0.01510334 19.29658
## 1965 2.320686 1.688922 -0.04486625 16.99579 2.832966 0.01810429 19.55401
## 1966 1.801658 1.588136 -0.10078662 17.47132 2.860561 0.02759506 20.05213
## 1967 1.916802 1.611388 0.02325213 17.97930 2.889221 0.02866003 20.09978
## Pm_l Pm_dl Px Px_l Px_dl X X_l
## 1962 2.921380 -0.011301962 25.59419 3.242365 0.003922486 113.698 4.733546
## 1963 2.938070 0.016690128 25.53254 3.239954 -0.002411366 121.805 4.802421
## 1964 2.959928 0.021858053 25.69594 3.246333 0.006378958 136.208 4.914183
## 1965 2.973180 0.013252520 26.49552 3.276976 0.030642841 140.024 4.941814
## 1966 2.998335 0.025154936 27.32908 3.307951 0.030975549 149.657 5.008346
## 1967 3.000709 0.002373841 28.41442 3.346897 0.038945594 153.091 5.031033
## X_dl M M_l M_dl rulc rulc_l
## 1962 0.04900083 134.648 4.902664 0.10780774 0.6625862 -0.4116046
## 1963 0.06887559 138.246 4.929035 0.02637074 0.6592520 -0.4166494
## 1964 0.11176172 145.622 4.981014 0.05197952 0.6554289 -0.4224655
## 1965 0.02763071 161.092 5.081976 0.10096141 0.6468335 -0.4356664
## 1966 0.06653217 185.018 5.220453 0.13847749 0.6456636 -0.4374766
## 1967 0.02268651 198.510 5.290839 0.07038636 0.6534390 -0.4255061
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1962 -0.009362025 10.76852 2.376627 0.002710305 55.05524 4.008337
## 1963 -0.005044815 10.83855 2.383109 0.006481340 56.79073 4.039373
## 1964 -0.005816092 10.93967 2.392396 0.009287245 58.47186 4.068546
## 1965 -0.013200908 10.99345 2.397299 0.004903384 60.40284 4.101036
## 1966 -0.001810237 11.28060 2.423084 0.025784824 62.03388 4.127681
## 1967 0.011970501 11.74837 2.463715 0.040630535 62.10106 4.128763
## Tau_dl dPxdPm dPdPm Trade
## 1962 0.039879007 0.015224448 0.023374292 0.06683532
## 1963 0.031036033 -0.019101494 -0.005163973 0.06706528
## 1964 0.029172464 -0.015479096 -0.006754717 0.06872143
## 1965 0.032490521 0.017390321 0.004851772 0.06894392
## 1966 0.026644594 0.005820613 0.002440125 0.07188608
## 1967 0.001082382 0.036571753 0.026286193 0.07350626
USA %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1962 0.6716970 -0.3979480 -0.0092202673 0.3283030 -1.1138182 0.0191334739
## 1963 0.6684577 -0.4027822 -0.0048341978 0.3315423 -1.1039998 0.0098183792
## 1964 0.6647163 -0.4083949 -0.0056127150 0.3352837 -1.0927783 0.0112214948
## 1965 0.6559498 -0.4216709 -0.0132760345 0.3440502 -1.0669678 0.0258104697
## 1966 0.6545491 -0.4238087 -0.0021377255 0.3454509 -1.0629048 0.0040630683
## 1967 0.6628483 -0.4112091 0.0125995539 0.3371517 -1.0872223 -0.0243175429
## 1968 0.6668813 -0.4051432 0.0060658955 0.3331187 -1.0992564 -0.0120340586
## 1969 0.6789211 -0.3872503 0.0178928989 0.3210789 -1.1360685 -0.0368120941
## 1970 0.6874078 -0.3748276 0.0124227178 0.3125922 -1.1628557 -0.0267872636
## 1971 0.6770281 -0.3900425 -0.0152148640 0.3229719 -1.1301900 0.0326657085
## 1972 0.6748367 -0.3932846 -0.0032420992 0.3251633 -1.1234277 0.0067623124
## 1973 0.6712451 -0.3986210 -0.0053364316 0.3287549 -1.1124426 0.0109850552
## 1974 0.6770519 -0.3900074 0.0086136425 0.3229481 -1.1302636 -0.0178209742
## 1975 0.6623764 -0.4119213 -0.0219138987 0.3376236 -1.0858237 0.0444399196
## 1976 0.6558083 -0.4218867 -0.0099654274 0.3441917 -1.0665566 0.0192670564
## 1977 0.6548050 -0.4234178 -0.0015311109 0.3451950 -1.0636458 0.0029108417
## 1978 0.6518857 -0.4278860 -0.0044682186 0.3481143 -1.0552244 0.0084213563
## 1979 0.6525488 -0.4268693 0.0010167272 0.3474512 -1.0571312 -0.0019067284
## 1980 0.6612833 -0.4135729 0.0132963420 0.3387167 -1.0825912 -0.0254600201
## 1981 0.6532723 -0.4257613 -0.0121883111 0.3467277 -1.0592155 0.0233757007
## 1982 0.6616859 -0.4129643 0.0127969375 0.3383141 -1.0837805 -0.0245650027
## 1983 0.6477897 -0.4341892 -0.0212248858 0.3522103 -1.0435268 0.0402537223
## 1984 0.6407926 -0.4450495 -0.0108602937 0.3592074 -1.0238552 0.0196715572
## 1985 0.6403206 -0.4457863 -0.0007367905 0.3596794 -1.0225422 0.0013130191
## 1986 0.6447276 -0.4389273 0.0068589756 0.3552724 -1.0348706 -0.0123283725
## 1987 0.6516154 -0.4283007 0.0106266217 0.3483846 -1.0544484 -0.0195778053
## 1988 0.6549949 -0.4231279 0.0051728117 0.3450051 -1.0641960 -0.0097476032
## 1989 0.6470110 -0.4353920 -0.0122641139 0.3529890 -1.0413184 0.0228776196
## 1990 0.6517638 -0.4280730 0.0073190149 0.3482362 -1.0548744 -0.0135560674
## 1991 0.6561075 -0.4214306 0.0066423978 0.3438925 -1.0674263 -0.0125518347
## 1992 0.6563138 -0.4211162 0.0003143472 0.3436862 -1.0680263 -0.0006000128
## 1993 0.6501969 -0.4304800 -0.0093637895 0.3498031 -1.0503849 0.0176413964
## 1994 0.6430158 -0.4415860 -0.0111059997 0.3569842 -1.0300637 0.0203211997
## 1995 0.6403374 -0.4457601 -0.0041740887 0.3596626 -1.0225888 0.0074748767
## 1996 0.6362153 -0.4522182 -0.0064580637 0.3637847 -1.0111932 0.0113956045
## 1997 0.6371208 -0.4507960 0.0014221981 0.3628792 -1.0136853 -0.0024921248
## 1998 0.6469782 -0.4354427 0.0153533200 0.3530218 -1.0412255 -0.0275401806
## 1999 0.6460450 -0.4368861 -0.0014434066 0.3539550 -1.0385856 0.0026399158
## 2000 0.6558906 -0.4217612 0.0151248162 0.3441094 -1.0667957 -0.0282101039
## 2001 0.6548973 -0.4232768 -0.0015155360 0.3451027 -1.0639133 0.0028823457
## 2002 0.6451353 -0.4382953 -0.0150184856 0.3548647 -1.0360186 0.0278947565
## 2003 0.6394713 -0.4471135 -0.0088182496 0.3605287 -1.0201837 0.0158348460
## 2004 0.6354760 -0.4533809 -0.0062673852 0.3645240 -1.0091630 0.0110207732
## 2005 0.6259076 -0.4685525 -0.0151716152 0.3740924 -0.9832525 0.0259105152
## 2006 0.6255380 -0.4691433 -0.0005907584 0.3744620 -0.9822648 0.0009876397
## 2007 0.6282584 -0.4648038 0.0043394725 0.3717416 -0.9895562 -0.0072913470
## 2008 0.6297207 -0.4624789 0.0023248808 0.3702793 -0.9934976 -0.0039414705
## 2009 0.6176715 -0.4817986 -0.0193196451 0.3823285 -0.9614750 0.0320226305
## 2010 0.6077360 -0.4980147 -0.0162161207 0.3922640 -0.9358202 0.0256547916
## 2011 0.6070107 -0.4992089 -0.0011942376 0.3929893 -0.9339728 0.0018474247
## 2012 0.6058292 -0.5011572 -0.0019483008 0.3941708 -0.9309709 0.0030019021
## 2013 0.6022416 -0.5070966 -0.0059393998 0.3977584 -0.9219104 0.0090604597
## 2014 0.6030915 -0.5056863 0.0014102959 0.3969085 -0.9240495 -0.0021391058
## 2015 0.6076630 -0.4981349 0.0075514710 0.3923370 -0.9356341 -0.0115845274
## 2016 0.6075571 -0.4983091 -0.0001742713 0.3924429 -0.9353642 0.0002698565
## 2017 0.6080964 -0.4974218 0.0008873335 0.3919036 -0.9367395 -0.0013752725
## 2018 0.6055437 -0.5016286 -0.0042068218 0.3944563 -0.9302468 0.0064926732
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1962 3715.79 8.220347 0.059479828 9857985551658 29.91930 0.0573617109
## 1963 3877.58 8.262967 0.042619941 10397353895289 29.97257 0.0532694980
## 1964 4101.05 8.318998 0.056031791 11076704480468 30.03587 0.0632928669
## 1965 4367.55 8.381957 0.062959173 11689708297532 30.08973 0.0538646145
## 1966 4655.63 8.445833 0.063875029 12403784248097 30.14902 0.0592927853
## 1967 4783.28 8.472882 0.027049264 12981685156702 30.19456 0.0455379227
## 1968 5018.37 8.520860 0.047978676 13798330135653 30.25557 0.0610080502
## 1969 5175.24 8.551641 0.030780535 14600020821203 30.31204 0.0564753746
## 1970 5184.87 8.553500 0.001859054 14975481714557 30.33744 0.0253913566
## 1971 5355.56 8.585891 0.032390505 15574778643648 30.37667 0.0392385409
## 1972 5637.25 8.637152 0.051261084 16453905652046 30.43158 0.0549100224
## 1973 5955.49 8.692069 0.054917125 17500802298438 30.49327 0.0616838508
## 1974 5923.34 8.686656 -0.005413004 17707458422176 30.50501 0.0117392051
## 1975 5911.09 8.684586 -0.002070231 17683974212249 30.50368 -0.0013271129
## 1976 6229.64 8.737074 0.052488299 18572308919457 30.55269 0.0490128859
## 1977 6517.71 8.782278 0.045204541 19305516610142 30.59141 0.0387191862
## 1978 6878.46 8.836150 0.053871702 20105384307117 30.63201 0.0405967654
## 1979 7096.28 8.867326 0.031175913 20937973767138 30.67259 0.0405767818
## 1980 7078.06 8.864755 -0.002570844 21250225320104 30.68739 0.0148030616
## 1981 7257.65 8.889811 0.025056226 21674356589551 30.70715 0.0197623392
## 1982 7126.85 8.871625 -0.018186743 21658492203609 30.70642 -0.0007322106
## 1983 7453.47 8.916435 0.044810354 22246019917576 30.73318 0.0267654854
## 1984 7992.87 8.986305 0.069870199 23257901179454 30.77767 0.0444817975
## 1985 8326.18 9.027160 0.040854873 24094796735296 30.81302 0.0353510041
## 1986 8614.47 9.061199 0.034038580 24876026027446 30.84493 0.0319086154
## 1987 8912.49 9.095209 0.034010316 25745609904472 30.87929 0.0343595939
## 1988 9284.76 9.136130 0.040920683 26993102364775 30.92660 0.0473172420
## 1989 9625.72 9.172194 0.036064336 28048948591931 30.96497 0.0383697825
## 1990 9807.30 9.190882 0.018688324 28940199000875 30.99625 0.0312804496
## 1991 9796.73 9.189804 -0.001078350 29389720940893 31.01167 0.0154133878
## 1992 10141.77 9.224418 0.034613883 30009058230314 31.03252 0.0208542917
## 1993 10420.95 9.251573 0.027155664 30379603602611 31.04479 0.0122721720
## 1994 10840.76 9.291068 0.039494901 31344830467265 31.07607 0.0312779070
## 1995 11131.77 9.317558 0.026490078 32256011089571 31.10473 0.0286550601
## 1996 11551.79 9.354596 0.037037221 33215674136321 31.13404 0.0293174608
## 1997 12065.43 9.398100 0.043503935 34327940218293 31.16698 0.0329377292
## 1998 12606.19 9.441943 0.043843624 35257832812352 31.19371 0.0267281058
## 1999 13205.38 9.488380 0.046436359 36403468465637 31.22569 0.0319763456
## 2000 13750.44 9.528826 0.040446501 37867472273283 31.26511 0.0394284346
## 2001 13887.72 9.538760 0.009934173 38436293570727 31.28002 0.0149096661
## 2002 14129.62 9.556029 0.017268307 39016923368455 31.29502 0.0149933262
## 2003 14533.83 9.584234 0.028205732 39870466114403 31.31666 0.0216403676
## 2004 15086.00 9.621522 0.037288126 41187742550339 31.34916 0.0325048490
## 2005 15615.98 9.656050 0.034527588 42365730203911 31.37736 0.0281990843
## 2006 16061.86 9.684203 0.028152769 43685839477319 31.40805 0.0306842246
## 2007 16363.13 9.702786 0.018583116 44901425650169 31.43549 0.0274455357
## 2008 16340.83 9.701422 -0.001363749 45076599704656 31.43938 0.0038937124
## 2009 15926.25 9.675724 -0.025698192 43584963497081 31.40573 -0.0336510414
## 2010 16334.65 9.701044 0.025319927 44861323740621 31.43460 0.0288638200
## 2011 16587.96 9.716432 0.015388513 45689238834427 31.45288 0.0182867592
## 2012 16961.07 9.738676 0.022243587 46284632700319 31.46583 0.0129472028
## 2013 17273.55 9.756932 0.018255712 46952839013791 31.48016 0.0143336738
## 2014 17709.80 9.781873 0.024941729 47900453546908 31.50015 0.0199813003
## 2015 18224.80 9.810539 0.028665145 49005691393054 31.52296 0.0228114693
## 2016 18523.35 9.826787 0.016248794 49841543840822 31.53987 0.0169124077
## 2017 18962.32 9.850209 0.023421754 50988668991365 31.56262 0.0227545815
## 2018 19517.43 9.879063 0.028854060 52129802672307 31.58476 0.0221333821
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1962 50.4 3665.39 8.206690 0.059338070 2218.68 7.704668 0.048287965
## 1963 53.4 3824.18 8.249099 0.042409324 2310.18 7.745081 0.040413019
## 1964 57.3 4043.75 8.304928 0.055828414 2447.65 7.802884 0.057802937
## 1965 60.7 4306.85 8.367962 0.063034299 2602.94 7.864397 0.061513195
## 1966 63.2 4592.43 8.432165 0.064202517 2750.60 7.919574 0.055177494
## 1967 67.9 4715.38 8.458585 0.026420211 2832.83 7.949031 0.029457142
## 1968 76.4 4941.97 8.505519 0.046934530 2996.06 8.005053 0.056021880
## 1969 83.9 5091.34 8.535296 0.029777020 3107.76 8.041657 0.036604117
## 1970 91.4 5093.47 8.535715 0.000418270 3180.92 8.064926 0.023268254
## 1971 100.5 5255.06 8.566947 0.031232095 3302.41 8.102408 0.037482042
## 1972 107.9 5529.35 8.617826 0.050878846 3504.59 8.161829 0.059421033
## 1973 117.2 5838.29 8.672193 0.054367678 3678.12 8.210157 0.048328214
## 1974 124.9 5798.44 8.665344 -0.006849030 3647.31 8.201745 -0.008411842
## 1975 135.3 5775.79 8.661430 -0.003913872 3729.95 8.224150 0.022404919
## 1976 146.4 6083.24 8.713293 0.051862405 3937.90 8.278403 0.054252758
## 1977 159.7 6358.01 8.757471 0.044177987 4104.32 8.319795 0.041392491
## 1978 170.9 6707.56 8.810991 0.053519813 4283.92 8.362624 0.042828401
## 1979 180.1 6916.18 8.841619 0.030628346 4385.73 8.386111 0.023487610
## 1980 200.3 6877.76 8.836048 -0.005570577 4372.03 8.382983 -0.003128656
## 1981 235.6 7022.05 8.856810 0.020762181 4432.62 8.396746 0.013763399
## 1982 240.9 6885.95 8.837238 -0.019572094 4497.54 8.411286 0.014539749
## 1983 263.3 7190.17 8.880470 0.043231712 4752.16 8.466355 0.055068671
## 1984 289.8 7703.07 8.949374 0.068904135 5002.15 8.517623 0.051268568
## 1985 308.1 8018.08 8.989454 0.040080041 5261.11 8.568097 0.050474211
## 1986 323.4 8291.07 9.022934 0.033480040 5478.33 8.608556 0.040458279
## 1987 347.5 8564.99 9.055438 0.032503932 5664.33 8.641944 0.033388307
## 1988 374.5 8910.26 9.094959 0.039520458 5900.92 8.682864 0.040919654
## 1989 398.9 9226.82 9.129870 0.034911039 6073.01 8.711610 0.028746093
## 1990 425.0 9382.30 9.146580 0.016710475 6195.32 8.731549 0.019939805
## 1991 457.1 9339.63 9.142022 -0.004558299 6206.45 8.733344 0.001794906
## 1992 483.4 9658.37 9.175580 0.033558260 6434.90 8.769492 0.036147227
## 1993 503.1 9917.85 9.202091 0.026511267 6659.03 8.803729 0.034237527
## 1994 545.2 10295.56 9.239468 0.037376570 6917.05 8.841745 0.038015550
## 1995 557.9 10573.87 9.266141 0.026673129 7121.19 8.870830 0.029085468
## 1996 580.8 10970.99 9.303010 0.036868653 7368.29 8.904941 0.034110811
## 1997 611.6 11453.83 9.346079 0.043069656 7645.69 8.941897 0.036956433
## 1998 639.5 11966.69 9.389882 0.043802785 8051.80 8.993651 0.051753579
## 1999 673.6 12531.78 9.436023 0.046140861 8475.93 9.044986 0.051334713
## 2000 708.6 13041.84 9.475918 0.039894833 8906.66 9.094555 0.049568930
## 2001 727.7 13160.02 9.484939 0.009020795 9130.99 9.119429 0.024874811
## 2002 760.0 13369.62 9.500740 0.015801523 9365.53 9.144791 0.025361806
## 2003 805.6 13728.23 9.527210 0.026469328 9663.12 9.176072 0.031280649
## 2004 868.1 14217.90 9.562257 0.035047437 10025.64 9.212901 0.036829234
## 2005 942.4 14673.58 9.593804 0.031546864 10382.80 9.247906 0.035004779
## 2006 997.0 15064.86 9.620120 0.026316282 10700.79 9.278073 0.030166980
## 2007 1036.8 15326.33 9.637328 0.017207385 10938.62 9.300055 0.021982076
## 2008 1049.7 15291.13 9.635028 -0.002299343 10915.44 9.297934 -0.002121346
## 2009 1026.8 14899.45 9.609080 -0.025948622 10778.59 9.285317 -0.012616542
## 2010 1063.1 15271.55 9.633747 0.024667321 10967.17 9.302662 0.017344506
## 2011 1103.7 15484.26 9.647579 0.013832404 11174.08 9.321352 0.018690546
## 2012 1136.1 15824.97 9.669344 0.021765048 11342.05 9.336272 0.014920247
## 2013 1188.7 16084.85 9.685633 0.016288763 11507.03 9.350713 0.014441095
## 2014 1240.8 16469.00 9.709235 0.023601991 11847.59 9.379880 0.029166318
## 2015 1277.1 16947.70 9.737887 0.028652306 12284.30 9.416077 0.036197553
## 2016 1312.8 17210.55 9.753278 0.015390436 12620.54 9.443081 0.027003621
## 2017 1364.5 17597.82 9.775530 0.022252463 12949.67 9.468826 0.025744660
## 2018 1441.8 18075.63 9.802320 0.026789591 13338.87 9.498438 0.029612024
## W W_l W_dl R R_l R_dl
## 1962 2462.031 7.808742 0.05011780244 1203.359 7.092872 0.078471544
## 1963 2556.302 7.846317 0.03757512568 1267.878 7.145100 0.052227703
## 1964 2687.947 7.896533 0.05021569908 1355.803 7.212149 0.067049909
## 1965 2825.078 7.946291 0.04975826472 1481.772 7.300994 0.088844769
## 1966 3005.971 8.008356 0.06206479177 1586.459 7.369260 0.068265586
## 1967 3125.582 8.047376 0.03901976482 1589.798 7.371362 0.002102668
## 1968 3295.707 8.100376 0.05300042593 1646.263 7.406263 0.034900472
## 1969 3456.618 8.148046 0.04766991893 1634.722 7.399228 -0.007035074
## 1970 3501.291 8.160887 0.01284098777 1592.179 7.372859 -0.026368994
## 1971 3557.823 8.176904 0.01601723083 1697.237 7.436757 0.063897803
## 1972 3731.408 8.224541 0.04763674674 1797.942 7.494398 0.057641158
## 1973 3918.923 8.273572 0.04903124625 1919.367 7.559751 0.065352733
## 1974 3925.845 8.275337 0.00176461257 1872.595 7.535081 -0.024670004
## 1975 3825.747 8.249509 -0.02582777098 1950.043 7.575607 0.040526047
## 1976 3989.440 8.291406 0.04189697777 2093.800 7.646736 0.071129462
## 1977 4163.257 8.334053 0.04264687562 2194.753 7.693825 0.047088828
## 1978 4372.563 8.383105 0.04905159461 2334.997 7.755766 0.061941169
## 1979 4513.145 8.414750 0.03164507281 2403.035 7.784488 0.028721617
## 1980 4548.148 8.422475 0.00772576541 2329.612 7.753457 -0.031030597
## 1981 4587.311 8.431049 0.00857386959 2434.739 7.797595 0.044137881
## 1982 4556.336 8.424274 -0.00677515691 2329.614 7.753458 -0.044137097
## 1983 4657.718 8.446281 0.02200682586 2532.452 7.836943 0.083485434
## 1984 4936.070 8.504325 0.05804384157 2767.000 7.925519 0.088575692
## 1985 5134.142 8.543668 0.03934325049 2883.938 7.966912 0.041393060
## 1986 5345.482 8.584007 0.04033901589 2945.588 7.988064 0.021151668
## 1987 5581.080 8.627138 0.04313055397 2983.910 8.000990 0.012926127
## 1988 5836.175 8.671831 0.04469326918 3074.085 8.030763 0.029772854
## 1989 5969.854 8.694478 0.02264692479 3256.966 8.088551 0.057788658
## 1990 6115.044 8.718507 0.02402949001 3267.256 8.091706 0.003154408
## 1991 6127.802 8.720591 0.00208409915 3211.828 8.074596 -0.017110133
## 1992 6338.922 8.754464 0.03387260725 3319.448 8.107554 0.032958247
## 1993 6448.555 8.771611 0.01714747748 3469.295 8.151707 0.044152663
## 1994 6620.207 8.797882 0.02627057073 3675.353 8.209404 0.057697770
## 1995 6770.844 8.820381 0.02249904043 3803.026 8.243552 0.034148006
## 1996 6979.912 8.850792 0.03041058926 3991.078 8.291817 0.048264257
## 1997 7297.474 8.895283 0.04449185367 4156.356 8.332394 0.040577531
## 1998 7742.188 8.954440 0.05915610479 4224.502 8.348657 0.016262604
## 1999 8096.094 8.999137 0.04469745456 4435.686 8.397438 0.048780777
## 2000 8554.020 9.054157 0.05501964915 4487.820 8.409122 0.011684729
## 2001 8618.462 9.061662 0.00750525878 4541.558 8.421025 0.011903141
## 2002 8625.213 9.062445 0.00078303762 4744.407 8.464722 0.043696280
## 2003 8778.809 9.080096 0.01765107823 4949.421 8.507026 0.042304174
## 2004 9035.135 9.108876 0.02878005222 5182.765 8.553094 0.046068211
## 2005 9184.305 9.125251 0.01637524849 5489.275 8.610551 0.057457379
## 2006 9423.642 9.150977 0.02572552321 5641.218 8.637855 0.027303921
## 2007 9628.895 9.172524 0.02154685735 5697.435 8.647771 0.009916038
## 2008 9629.141 9.172549 0.00002553819 5661.989 8.641531 -0.006240813
## 2009 9202.965 9.127281 -0.04526826733 5696.485 8.647605 0.006074008
## 2010 9281.071 9.135732 0.00845120011 5990.479 8.697927 0.050322112
## 2011 9399.111 9.148370 0.01263816617 6085.149 8.713607 0.015679829
## 2012 9587.228 9.168187 0.01981674744 6237.742 8.738373 0.024766950
## 2013 9686.965 9.178536 0.01034936313 6397.885 8.763723 0.025349223
## 2014 9932.314 9.203549 0.02501228658 6536.686 8.785186 0.021462885
## 2015 10298.490 9.239753 0.03620377654 6649.210 8.802253 0.017067778
## 2016 10456.392 9.254969 0.01521616516 6754.158 8.817914 0.015660293
## 2017 10701.172 9.278109 0.02313979634 6896.648 8.838791 0.020877190
## 2018 10945.583 9.300691 0.02258276971 7130.047 8.872073 0.033282265
## It It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr
## 1962 615.746 6.422835 0.078744990 133.5 4.894101 0.077860322 90.9
## 1963 664.523 6.499069 0.076234949 142.1 4.956531 0.062429557 97.7
## 1964 726.693 6.588504 0.089434615 153.7 5.035003 0.078471615 107.3
## 1965 797.130 6.681018 0.092513672 168.3 5.125748 0.090745451 120.4
## 1966 841.442 6.735117 0.054099310 184.2 5.216022 0.090274023 130.6
## 1967 832.018 6.723854 -0.011263012 190.5 5.249652 0.033630071 132.8
## 1968 881.125 6.781200 0.057345425 207.1 5.333202 0.083549574 147.9
## 1969 912.706 6.816414 0.035214313 223.9 5.411200 0.077997755 164.4
## 1970 883.275 6.783637 -0.032777223 227.8 5.428468 0.017268527 168.0
## 1971 892.417 6.793934 0.010296922 247.1 5.509793 0.081325062 188.6
## 1972 964.086 6.871181 0.077246990 279.7 5.633718 0.123924487 219.0
## 1973 1032.314 6.939558 0.068377661 316.6 5.757639 0.123921547 251.0
## 1974 992.021 6.899744 -0.039813887 336.7 5.819192 0.061553179 260.5
## 1975 919.603 6.823942 -0.075802221 347.9 5.851915 0.032722756 263.5
## 1976 993.466 6.901200 0.077257784 395.7 5.980656 0.128741266 306.1
## 1977 1096.080 6.999495 0.098295619 467.5 6.147399 0.166743000 374.3
## 1978 1212.847 7.100726 0.101230310 558.2 6.324717 0.177317972 452.6
## 1979 1281.966 7.156150 0.055424349 641.8 6.464277 0.139559408 521.7
## 1980 1226.938 7.112277 -0.043873202 672.3 6.510705 0.046427941 536.4
## 1981 1250.346 7.131176 0.018898678 748.7 6.618338 0.107633700 601.4
## 1982 1188.259 7.080244 -0.050931102 752.8 6.623800 0.005461219 595.9
## 1983 1274.518 7.150323 0.070078857 814.5 6.702574 0.078774840 643.3
## 1984 1465.813 7.290165 0.139841969 947.9 6.854249 0.151674583 754.7
## 1985 1568.489 7.357868 0.067702698 1027.7 6.935079 0.080829563 807.8
## 1986 1617.831 7.388842 0.030973628 1080.7 6.985364 0.050285684 842.6
## 1987 1646.436 7.406368 0.017526589 1119.6 7.020727 0.035362499 865.0
## 1988 1684.501 7.429225 0.022856426 1176.9 7.070639 0.049912384 918.5
## 1989 1733.866 7.458109 0.028884220 1242.4 7.124800 0.054161130 972.0
## 1990 1732.048 7.457060 -0.001049074 1269.3 7.146221 0.021420575 978.9
## 1991 1660.913 7.415123 -0.041937072 1238.8 7.121898 -0.024322398 944.7
## 1992 1729.011 7.455305 0.040182118 1292.8 7.164566 0.042667240 996.7
## 1993 1817.104 7.504999 0.049694456 1377.9 7.228316 0.063750192 1086.0
## 1994 1928.034 7.564256 0.059256806 1486.9 7.304449 0.076132815 1192.7
## 1995 2027.439 7.614529 0.050272589 1594.0 7.374002 0.069553165 1286.3
## 1996 2182.624 7.688283 0.073754402 1721.3 7.450835 0.076833239 1401.3
## 1997 2339.361 7.757633 0.069349992 1851.3 7.523643 0.072808276 1524.7
## 1998 2556.775 7.846502 0.088868884 2017.0 7.609367 0.085723164 1673.0
## 1999 2769.612 7.926463 0.079960539 2194.7 7.693801 0.084434104 1826.2
## 2000 2946.800 7.988475 0.062012598 2372.8 7.771826 0.078025329 1983.9
## 2001 2934.331 7.984235 -0.004240347 2385.0 7.776954 0.005128432 1973.1
## 2002 2884.574 7.967133 -0.017102260 2354.1 7.763914 -0.013040636 1910.4
## 2003 3006.713 8.008603 0.041470227 2477.2 7.814884 0.050970401 2013.0
## 2004 3186.994 8.066833 0.058230697 2703.4 7.902266 0.087381350 2217.2
## 2005 3380.233 8.125700 0.058866489 2990.5 8.003196 0.100930357 2477.2
## 2006 3470.545 8.152067 0.026367000 3182.9 8.065548 0.062352133 2632.0
## 2007 3450.197 8.146187 -0.005880311 3231.1 8.080578 0.015029906 2639.1
## 2008 3304.491 8.103038 -0.043148878 3136.5 8.050863 -0.029715108 2506.9
## 2009 2889.650 7.968891 -0.134147065 2723.3 7.909600 -0.141263148 2080.4
## 2010 2954.433 7.991062 0.022171367 2756.1 7.921572 0.011972257 2111.6
## 2011 3089.993 8.035924 0.044862071 2922.9 7.980332 0.058759637 2286.3
## 2012 3302.527 8.102443 0.066519107 3171.5 8.061960 0.081628388 2550.5
## 2013 3420.508 8.137544 0.035101145 3321.9 8.108292 0.046332246 2721.5
## 2014 3595.991 8.187575 0.050030536 3562.8 8.178302 0.070009844 2960.2
## 2015 3712.200 8.219380 0.031805079 3712.2 8.219380 0.041077940 3091.2
## 2016 3782.592 8.238165 0.018784796 3786.8 8.239277 0.019896642 3151.6
## 2017 3921.490 8.274227 0.036062195 3995.3 8.292874 0.053597335 3340.5
## 2018 4083.594 8.314733 0.040505799 4260.8 8.357212 0.064338266 3573.6
## Ipr_l Ipr_dl Ips Ips_l Ips_dl I
## 1962 4.509760 0.083716481 0.6808989 -0.3843415 0.0058561593 419.2608
## 1963 4.581902 0.072141558 0.6875440 -0.3746295 0.0097120006 456.8888
## 1964 4.675629 0.093727091 0.6981132 -0.3593740 0.0152554751 507.3140
## 1965 4.790820 0.115190883 0.7153892 -0.3349286 0.0244454326 570.2582
## 1966 4.872139 0.081319684 0.7090119 -0.3438829 -0.0089543387 596.5924
## 1967 4.888844 0.016705020 0.6971129 -0.3608080 -0.0169250505 580.0104
## 1968 4.996536 0.107692133 0.7141478 -0.3366654 0.0241425588 629.2534
## 1969 5.102302 0.105766113 0.7342564 -0.3088970 0.0277683577 670.1602
## 1970 5.123964 0.021661497 0.7374890 -0.3045041 0.0043929694 651.4056
## 1971 5.239628 0.115664391 0.7632537 -0.2701647 0.0343393288 681.1406
## 1972 5.389072 0.149443360 0.7829818 -0.2446459 0.0255188724 754.8618
## 1973 5.525453 0.136381209 0.7927985 -0.2321862 0.0124596621 818.4170
## 1974 5.562603 0.037149922 0.7736858 -0.2565895 -0.0244032567 767.5125
## 1975 5.574053 0.011450507 0.7574016 -0.2778617 -0.0212722492 696.5087
## 1976 5.723912 0.149858478 0.7735658 -0.2567445 0.0211172117 768.5114
## 1977 5.925058 0.201145769 0.8006417 -0.2223417 0.0344027686 877.5674
## 1978 6.115009 0.189951118 0.8108205 -0.2097086 0.0126331459 983.4012
## 1979 6.257093 0.142083977 0.8128701 -0.2071840 0.0025245693 1042.0718
## 1980 6.284880 0.027787441 0.7978581 -0.2258245 -0.0186404994 978.9224
## 1981 6.399260 0.114380119 0.8032590 -0.2190781 0.0067464194 1004.3517
## 1982 6.390073 -0.009187403 0.7915781 -0.2337267 -0.0146486218 940.5998
## 1983 6.466611 0.076538311 0.7898097 -0.2359632 -0.0022365291 1006.6267
## 1984 6.626320 0.159709141 0.7961810 -0.2279287 0.0080345575 1167.0525
## 1985 6.694315 0.067994184 0.7860271 -0.2407641 -0.0128353793 1232.8748
## 1986 6.736492 0.042177846 0.7796798 -0.2488719 -0.0081078373 1261.3902
## 1987 6.762730 0.026237157 0.7725974 -0.2579973 -0.0091253419 1272.0321
## 1988 6.822742 0.060012398 0.7804401 -0.2478972 0.0101000135 1314.6522
## 1989 6.879356 0.056613900 0.7823567 -0.2454445 0.0024527699 1356.5017
## 1990 6.886429 0.007073688 0.7712125 -0.2597914 -0.0143468868 1335.7770
## 1991 6.850867 -0.035562075 0.7625928 -0.2710310 -0.0112396772 1266.6003
## 1992 6.904450 0.053582405 0.7709623 -0.2601159 0.0109151655 1333.0022
## 1993 6.990257 0.085806679 0.7881559 -0.2380594 0.0220564863 1432.1612
## 1994 7.083975 0.093718423 0.8021387 -0.2204738 0.0175856084 1546.5506
## 1995 7.159525 0.075550236 0.8069636 -0.2144767 0.0059970709 1636.0695
## 1996 7.245156 0.085630497 0.8140940 -0.2056794 0.0087972582 1776.8611
## 1997 7.329553 0.084397292 0.8235834 -0.1940904 0.0115890165 1926.6590
## 1998 7.422374 0.092820753 0.8294497 -0.1869928 0.0070975886 2120.7162
## 1999 7.509993 0.087618883 0.8320955 -0.1838081 0.0031847792 2304.5817
## 2000 7.592820 0.082827299 0.8361008 -0.1790061 0.0048019697 2463.8219
## 2001 7.587361 -0.005458694 0.8272956 -0.1895932 -0.0105871263 2427.5591
## 2002 7.555068 -0.032293266 0.8115203 -0.2088458 -0.0192526303 2340.8904
## 2003 7.607381 0.052313502 0.8126110 -0.2075027 0.0013431012 2443.2881
## 2004 7.704000 0.096618992 0.8201524 -0.1982651 0.0092376419 2613.8208
## 2005 7.814884 0.110883752 0.8283565 -0.1883117 0.0099533941 2800.0378
## 2006 7.875499 0.060615123 0.8269188 -0.1900487 -0.0017370100 2869.8591
## 2007 7.878193 0.002693936 0.8167807 -0.2023847 -0.0123359691 2818.0542
## 2008 7.826802 -0.051391020 0.7992667 -0.2240606 -0.0216759119 2641.1696
## 2009 7.640315 -0.186486747 0.7639261 -0.2692842 -0.0452235988 2207.4791
## 2010 7.655201 0.014885771 0.7661551 -0.2663707 0.0029135143 2263.5538
## 2011 7.734690 0.079488836 0.7822026 -0.2456415 0.0207291992 2417.0006
## 2012 7.844045 0.109354628 0.8041936 -0.2179152 0.0277262400 2655.8711
## 2013 7.908938 0.064893781 0.8192601 -0.1993537 0.0185615342 2802.2856
## 2014 7.993012 0.084073635 0.8308634 -0.1852899 0.0140637905 2987.7772
## 2015 8.036315 0.043302531 0.8327138 -0.1830653 0.0022245912 3091.2000
## 2016 8.055666 0.019350895 0.8322594 -0.1836111 -0.0005457471 3148.0979
## 2017 8.113876 0.058210236 0.8361074 -0.1789982 0.0046129010 3278.7869
## 2018 8.181329 0.067452995 0.8387157 -0.1758834 0.0031147289 3424.9745
## I_l I_dl r r_l r_dl P
## 1962 6.038493 0.084601149 2.6927460 1.755390 -0.02312086354 16.25226
## 1963 6.124440 0.085946950 2.8180469 1.776816 0.02142580426 16.44067
## 1964 6.229130 0.104690090 2.5691069 1.733789 -0.04302720329 16.69086
## 1965 6.346089 0.116959105 2.3206858 1.688922 -0.04486625399 16.99579
## 1966 6.391234 0.045144971 1.8016578 1.588136 -0.10078661591 17.47132
## 1967 6.363046 -0.028188062 1.9168015 1.611388 0.02325212624 17.97930
## 1968 6.444534 0.081487984 0.9787756 1.404069 -0.20731906444 18.74513
## 1969 6.507517 0.062982671 1.2241872 1.462594 0.05852549856 19.66287
## 1970 6.479133 -0.028384254 1.2275316 1.463369 0.00077437873 20.70061
## 1971 6.523769 0.044636251 0.6230958 1.312662 -0.15070643792 21.75123
## 1972 6.626535 0.102765863 1.2590408 1.470635 0.15797294290 22.69014
## 1973 6.707372 0.080837323 0.8030045 1.359941 -0.11069447872 23.93424
## 1974 6.643155 -0.064217144 -1.8469185 0.219970 -1.13997074834 26.08664
## 1975 6.546080 -0.097074470 -2.0929578 0.000000 -0.21996996080 28.50407
## 1976 6.644455 0.098374996 1.2112855 1.459601 1.45960135007 30.07238
## 1977 6.777154 0.132698387 0.7978673 1.358621 -0.10098010696 31.94065
## 1978 6.891017 0.113863456 0.7982518 1.358720 0.00009881734 34.18786
## 1979 6.948966 0.057948918 0.4111983 1.253950 -0.10477033928 37.02364
## 1980 6.886452 -0.062513702 1.6286660 1.552153 0.29820304469 40.36843
## 1981 6.912097 0.025645098 3.1138992 1.825655 0.27350188280 44.18788
## 1982 6.846518 -0.065579724 5.6987159 2.173805 0.34815045447 46.91832
## 1983 6.914360 0.067842328 6.6626537 2.277843 0.10403755478 48.75583
## 1984 7.062237 0.147876527 8.0898912 2.414381 0.13653860740 50.51504
## 1985 7.117104 0.054867319 7.3546126 2.346369 -0.06801181155 52.11272
## 1986 7.139970 0.022865790 6.0061534 2.208177 -0.13819271535 53.16172
## 1987 7.148371 0.008401247 6.0378444 2.211654 0.00347681651 54.47633
## 1988 7.181327 0.032956439 5.2671201 2.123468 -0.08818580970 56.39777
## 1989 7.212664 0.031336990 4.3572442 2.008241 -0.11522659912 58.60961
## 1990 7.197268 -0.015395961 4.8083331 2.067026 0.05878500507 60.80264
## 1991 7.144092 -0.053176749 4.4770050 2.024188 -0.04283799788 62.85874
## 1992 7.195189 0.051097283 4.7425261 2.058663 0.03447448193 64.29153
## 1993 7.266940 0.071750943 3.5162293 1.888461 -0.17020196926 65.81551
## 1994 7.343782 0.076842414 4.9693671 2.087202 0.19874129809 67.22038
## 1995 7.400052 0.056269660 4.4991063 2.027104 -0.06009845969 68.62970
## 1996 7.482604 0.082551661 4.6245918 2.043497 0.01639339996 69.88613
## 1997 7.563543 0.080939009 4.6438422 2.045988 0.00249126110 71.09237
## 1998 7.659509 0.095966472 4.1589369 1.981263 -0.06472539277 71.89167
## 1999 7.742654 0.083145319 4.1358050 1.978068 -0.00319487146 72.93011
## 2000 7.809469 0.066814567 3.7124288 1.917714 -0.06035345554 74.55981
## 2001 7.794642 -0.014827474 2.7559343 1.766252 -0.15146218697 76.19537
## 2002 7.758287 -0.036354890 2.9713219 1.802416 0.03616351325 77.40053
## 2003 7.801100 0.042813328 2.1035619 1.647989 -0.15442665889 78.83815
## 2004 7.868568 0.067468339 1.5268787 1.530359 -0.11762979820 80.96048
## 2005 7.937388 0.068819883 1.1297464 1.440476 -0.08988358635 83.48245
## 2006 7.962018 0.024629990 1.7121038 1.569670 0.12919413381 86.00870
## 2007 7.943802 -0.018216280 1.8920228 1.606430 0.03675964941 88.31987
## 2008 7.878977 -0.064824790 1.6732080 1.561542 -0.04488734558 90.03704
## 2009 7.699606 -0.179370664 2.4684416 1.715850 0.15430760109 90.72378
## 2010 7.724691 0.025084881 2.0112932 1.630074 -0.08577604529 91.78096
## 2011 7.790283 0.065591270 0.6574850 1.321874 -0.30819980894 93.69806
## 2012 7.884528 0.094245348 -0.1255466 1.087690 -0.23418399014 95.49515
## 2013 7.938191 0.053662679 0.5748760 1.299601 0.21191131970 97.17112
## 2014 8.002285 0.064094326 0.6669276 1.324388 0.02478723564 98.96950
## 2015 8.036315 0.034029670 1.0775473 1.428037 0.10364867736 100.00000
## 2016 8.054554 0.018239049 0.7872107 1.355879 -0.07215857505 101.03464
## 2017 8.095229 0.040675096 0.4380793 1.261592 -0.09428695670 102.93780
## 2018 8.138849 0.043620528 0.4628593 1.268585 0.00699325830 105.44523
## P_l P_dl Pm Pm_l Pm_dl Px
## 1962 2.788232 0.012072331 18.56688 2.921380 -0.0113019618 25.59419
## 1963 2.799758 0.011526155 18.87937 2.938070 0.0166901277 25.53254
## 1964 2.814861 0.015103337 19.29658 2.959928 0.0218580533 25.69594
## 1965 2.832966 0.018104292 19.55401 2.973180 0.0132525199 26.49552
## 1966 2.860561 0.027595061 20.05213 2.998335 0.0251549360 27.32908
## 1967 2.889221 0.028660034 20.09978 3.000709 0.0023738410 28.41442
## 1968 2.930934 0.041713111 20.42949 3.016979 0.0162703041 28.99427
## 1969 2.978732 0.047798034 20.94968 3.042123 0.0251440397 29.96237
## 1970 3.030163 0.051431279 22.20387 3.100266 0.0581430654 31.13887
## 1971 3.079670 0.049506861 23.52724 3.158159 0.0578926172 32.29772
## 1972 3.121931 0.042260427 25.18914 3.226413 0.0682540576 33.67800
## 1973 3.175310 0.053379302 29.58704 3.387336 0.1609233732 38.14890
## 1974 3.261423 0.086113588 42.32684 3.745421 0.3580849152 46.98675
## 1975 3.350047 0.088623419 45.82332 3.824793 0.0793716985 51.78500
## 1976 3.403607 0.053560377 47.20166 3.854429 0.0296359927 53.47490
## 1977 3.463880 0.060272227 51.36514 3.938960 0.0845306936 55.63264
## 1978 3.531871 0.067991178 55.01910 4.007680 0.0687206798 59.05512
## 1979 3.611557 0.079685974 64.40808 4.165239 0.1575587103 66.14629
## 1980 3.698048 0.086491382 80.23641 4.384977 0.2197382478 72.86859
## 1981 3.788451 0.090402518 84.56804 4.437556 0.0525789968 78.25139
## 1982 3.848408 0.059957592 81.71956 4.403293 -0.0342629566 78.62957
## 1983 3.886825 0.038416637 78.65071 4.365017 -0.0382768005 78.95737
## 1984 3.922271 0.035446375 77.97509 4.356389 -0.0086272851 79.69694
## 1985 3.953409 0.031137917 75.40834 4.322918 -0.0334714948 77.32258
## 1986 3.973339 0.019929540 75.43482 4.323269 0.0003510932 76.03582
## 1987 3.997766 0.024427688 79.97243 4.381682 0.0584129805 77.70074
## 1988 4.032430 0.034663259 83.79985 4.428431 0.0467492466 81.68876
## 1989 4.070899 0.038469184 85.63338 4.450075 0.0216439706 83.05140
## 1990 4.107633 0.036734461 88.08392 4.478290 0.0282148465 83.51743
## 1991 4.140890 0.033256816 87.34853 4.469906 -0.0083837957 84.44215
## 1992 4.163428 0.022537845 87.42935 4.470831 0.0009247887 84.03879
## 1993 4.186856 0.023427629 86.76406 4.463192 -0.0076385572 84.15944
## 1994 4.207976 0.021120963 87.56908 4.472428 0.0092355422 85.13996
## 1995 4.228725 0.020748913 89.97553 4.499538 0.0271097989 87.04135
## 1996 4.246867 0.018141874 88.40722 4.481954 -0.0175841476 85.89111
## 1997 4.263980 0.017112787 85.33168 4.446546 -0.0354078604 84.37044
## 1998 4.275160 0.011180307 80.73539 4.391177 -0.0553687807 82.38124
## 1999 4.289502 0.014341223 81.17981 4.396667 0.0054895603 81.74395
## 2000 4.311602 0.022100111 84.74171 4.439608 0.0429413793 83.31675
## 2001 4.333301 0.021698978 82.52168 4.413061 -0.0265468837 82.64867
## 2002 4.348994 0.015693030 81.42836 4.399724 -0.0133374597 81.98507
## 2003 4.367397 0.018403289 83.88660 4.429466 0.0297423524 83.24491
## 2004 4.393961 0.026564200 87.89686 4.476164 0.0466981563 86.26251
## 2005 4.424636 0.030675279 93.05746 4.533217 0.0570530440 89.24890
## 2006 4.454448 0.029812037 96.62172 4.570804 0.0375863795 92.09409
## 2007 4.480965 0.026516665 99.97241 4.604894 0.0340907399 95.55386
## 2008 4.500221 0.019256012 110.01819 4.700646 0.0957515019 100.03142
## 2009 4.507820 0.007598367 97.81888 4.583118 -0.1175281259 94.03332
## 2010 4.519405 0.011585329 103.15414 4.636224 0.0531066980 97.86391
## 2011 4.540078 0.020672656 110.98817 4.709424 0.0731993146 104.04781
## 2012 4.559075 0.018997937 111.17850 4.711137 0.0017133501 104.83942
## 2013 4.576474 0.017398118 109.66300 4.697412 -0.0137249311 105.01495
## 2014 4.594812 0.018338118 108.79435 4.689459 -0.0079526899 105.12309
## 2015 4.605170 0.010358494 100.00000 4.605170 -0.0842891848 100.00000
## 2016 4.615463 0.010293287 96.38660 4.568367 -0.0368030106 97.97838
## 2017 4.634125 0.018661473 98.52999 4.590361 0.0219937915 100.48604
## 2018 4.658192 0.024066720 101.37431 4.618820 0.0284587550 103.90398
## Px_l Px_dl X X_l X_dl M
## 1962 3.242365 0.003922486 113.698 4.733546 0.0490008321 134.648
## 1963 3.239954 -0.002411366 121.805 4.802421 0.0688755949 138.246
## 1964 3.246333 0.006378958 136.208 4.914183 0.1117617238 145.622
## 1965 3.276976 0.030642841 140.024 4.941814 0.0276307073 161.092
## 1966 3.307951 0.030975549 149.657 5.008346 0.0665321725 185.018
## 1967 3.346897 0.038945594 153.091 5.031033 0.0226865068 198.510
## 1968 3.367098 0.020201511 165.205 5.107187 0.0761546111 228.102
## 1969 3.399942 0.032843815 173.217 5.154545 0.0473580168 241.054
## 1970 3.438457 0.038514790 191.722 5.256046 0.1015012624 251.308
## 1971 3.474997 0.036539637 195.060 5.273307 0.0172607974 264.799
## 1972 3.516845 0.041848173 210.226 5.348183 0.0748759390 294.571
## 1973 3.641497 0.124652134 249.811 5.520705 0.1725214894 308.243
## 1974 3.849866 0.208368765 269.650 5.597125 0.0764201898 301.227
## 1975 3.947101 0.097234832 267.838 5.590382 -0.0067425017 267.768
## 1976 3.979212 0.032111891 279.570 5.633253 0.0428703883 320.116
## 1977 4.018770 0.039557751 286.343 5.657190 0.0239376845 355.105
## 1978 4.078471 0.059701039 316.484 5.757273 0.1000822945 385.866
## 1979 4.191869 0.113397563 347.865 5.851814 0.0945417861 392.342
## 1980 4.288658 0.096788894 385.351 5.954155 0.1023401338 366.168
## 1981 4.359927 0.071268878 390.025 5.966211 0.0120562324 375.792
## 1982 4.364748 0.004821255 360.170 5.886576 -0.0796346974 371.025
## 1983 4.368908 0.004160267 350.822 5.860279 -0.0262971699 417.797
## 1984 4.378231 0.009323084 379.437 5.938689 0.0784096028 519.525
## 1985 4.347986 -0.030245118 392.123 5.971576 0.0328869909 553.254
## 1986 4.331205 -0.016781465 422.169 6.045406 0.0738301417 600.386
## 1987 4.352865 0.021660282 468.335 6.149184 0.1037781440 636.094
## 1988 4.402916 0.050051586 544.261 6.299429 0.1502450594 661.099
## 1989 4.419460 0.016543251 607.214 6.408881 0.1094523713 690.151
## 1990 4.425055 0.005595699 660.820 6.493481 0.0846002056 714.886
## 1991 4.436067 0.011011309 704.506 6.557497 0.0640153599 713.807
## 1992 4.431278 -0.004788183 753.343 6.624521 0.0670237874 763.817
## 1993 4.432713 0.001434566 778.047 6.656787 0.0322662983 829.837
## 1994 4.444296 0.011583378 846.723 6.741374 0.0845866709 928.867
## 1995 4.466383 0.022086851 933.809 6.839272 0.0978983160 1003.162
## 1996 4.453080 -0.013303000 1010.116 6.917820 0.0785485342 1090.409
## 1997 4.435217 -0.017863244 1130.491 7.030407 0.1125868759 1237.290
## 1998 4.411358 -0.023859302 1156.817 7.053428 0.0230202164 1381.922
## 1999 4.403592 -0.007765889 1214.524 7.102108 0.0486799625 1538.067
## 2000 4.422650 0.019057759 1315.822 7.182217 0.0801093349 1736.217
## 2001 4.414599 -0.008050935 1239.705 7.122629 -0.0595881173 1687.557
## 2002 4.406537 -0.008061552 1218.149 7.105088 -0.0175409546 1748.899
## 2003 4.421787 0.015249862 1244.761 7.126699 0.0216110501 1834.977
## 2004 4.457395 0.035608082 1365.135 7.219009 0.0923097812 2044.100
## 2005 4.491429 0.034034015 1462.427 7.287853 0.0688440595 2177.579
## 2006 4.522811 0.031381677 1599.017 7.377144 0.0892916811 2321.942
## 2007 4.559690 0.036879276 1738.182 7.460595 0.0834506740 2379.957
## 2008 4.605484 0.045794318 1836.523 7.515629 0.0550343706 2326.979
## 2009 4.543649 -0.061835206 1682.382 7.427966 -0.0876634637 2022.513
## 2010 4.583578 0.039928664 1886.600 7.542532 0.1145656209 2288.032
## 2011 4.644850 0.061272657 2021.186 7.611440 0.0689082006 2416.924
## 2012 4.652430 0.007579382 2090.149 7.644991 0.0335508875 2482.404
## 2013 4.654103 0.001672904 2164.835 7.680099 0.0351087908 2520.631
## 2014 4.655132 0.001029229 2256.117 7.721400 0.0413010479 2646.645
## 2015 4.605170 -0.049961805 2266.800 7.726124 0.0047239513 2786.600
## 2016 4.584747 -0.020423387 2266.418 7.725956 -0.0001685337 2842.096
## 2017 4.610019 0.025271968 2345.301 7.760169 0.0342131403 2975.845
## 2018 4.643467 0.033448467 2415.981 7.789861 0.0296916639 3105.816
## M_l M_dl rulc rulc_l rulc_dl ulc
## 1962 4.902664 0.107807741 0.6625862 -0.4116046 -0.00936202535 10.76852
## 1963 4.929035 0.026370741 0.6592520 -0.4166494 -0.00504481505 10.83855
## 1964 4.981014 0.051979516 0.6554289 -0.4224655 -0.00581609169 10.93967
## 1965 5.081976 0.100961407 0.6468335 -0.4356664 -0.01320090795 10.99345
## 1966 5.220453 0.138477487 0.6456636 -0.4374766 -0.00181023699 11.28060
## 1967 5.290839 0.070386359 0.6534390 -0.4255061 0.01197050109 11.74837
## 1968 5.429793 0.138953421 0.6567286 -0.4204844 0.00502174980 12.31046
## 1969 5.485021 0.055228077 0.6679146 -0.4035950 0.01688938383 13.13312
## 1970 5.526679 0.041658304 0.6752900 -0.3926131 0.01098193361 13.97892
## 1971 5.578971 0.052291769 0.6643233 -0.4089863 -0.01637327372 14.44985
## 1972 5.685520 0.106549013 0.6619199 -0.4126107 -0.00362433761 15.01906
## 1973 5.730888 0.045368372 0.6580354 -0.4184965 -0.00588587902 15.74957
## 1974 5.707864 -0.023024300 0.6627755 -0.4113189 0.00717761680 17.28959
## 1975 5.590121 -0.117743199 0.6472152 -0.4350765 -0.02375753957 18.44827
## 1976 5.768683 0.178562496 0.6403965 -0.4456678 -0.01059132087 19.25825
## 1977 5.872414 0.103730090 0.6387607 -0.4482254 -0.00255766541 20.40243
## 1978 5.955490 0.083076639 0.6356892 -0.4530456 -0.00482010782 21.73285
## 1979 5.972134 0.016643749 0.6359875 -0.4525764 0.00046915942 23.54657
## 1980 5.903092 -0.069041664 0.6425698 -0.4422798 0.01029660963 25.93953
## 1981 5.929036 0.025943554 0.6320656 -0.4587621 -0.01648235653 27.92964
## 1982 5.916269 -0.012766353 0.6393198 -0.4473506 0.01141158650 29.99581
## 1983 6.034996 0.118726223 0.6249060 -0.4701541 -0.02280352833 30.46781
## 1984 6.252915 0.217919264 0.6175591 -0.4819804 -0.01182635694 31.19603
## 1985 6.315817 0.062902276 0.6166263 -0.4834921 -0.00151162279 32.13408
## 1986 6.397573 0.081755573 0.6205236 -0.4771916 0.00630043597 32.98810
## 1987 6.455346 0.057773569 0.6262088 -0.4680714 0.00912023773 34.11356
## 1988 6.493904 0.038557251 0.6285757 -0.4642988 0.00377258657 35.45027
## 1989 6.536910 0.043006813 0.6201982 -0.4777162 -0.01341741145 36.34958
## 1990 6.572123 0.035212675 0.6235196 -0.4723751 0.00534116624 37.91164
## 1991 6.570613 -0.001510472 0.6254946 -0.4692126 0.00316244896 39.31780
## 1992 6.638328 0.067715614 0.6250311 -0.4699539 -0.00074127536 40.18420
## 1993 6.721229 0.082901064 0.6188069 -0.4799621 -0.01000818637 40.72709
## 1994 6.833966 0.112736268 0.6106774 -0.4931864 -0.01322433053 41.04997
## 1995 6.910912 0.076946727 0.6082451 -0.4971774 -0.00399103761 41.74368
## 1996 6.994308 0.083395844 0.6042278 -0.5038041 -0.00662663177 42.22714
## 1997 7.120679 0.126370649 0.6048250 -0.5028161 0.00098791826 42.99844
## 1998 7.231231 0.110551780 0.6141576 -0.4875037 0.01531248034 44.15281
## 1999 7.338282 0.107051149 0.6130906 -0.4892426 -0.00173890458 44.71276
## 2000 7.459464 0.121182175 0.6220907 -0.4746694 0.01457314786 46.38296
## 2001 7.431037 -0.028426687 0.6205815 -0.4770983 -0.00242891404 47.28544
## 2002 7.466742 0.035704526 0.6104349 -0.4935836 -0.01648526915 47.24799
## 2003 7.514787 0.048045500 0.6040259 -0.5041383 -0.01055465399 47.62028
## 2004 7.622713 0.107925647 0.5989086 -0.5126463 -0.00850807380 48.48793
## 2005 7.685969 0.063256114 0.5881351 -0.5307987 -0.01815233901 49.09896
## 2006 7.750159 0.064190195 0.5867092 -0.5332259 -0.00242724537 50.46210
## 2007 7.774838 0.024678516 0.5884507 -0.5302622 0.00296374168 51.97189
## 2008 7.752326 -0.022511561 0.5892688 -0.5288729 0.00138928762 53.05602
## 2009 7.612096 -0.140230062 0.5778488 -0.5484430 -0.01957007491 52.42463
## 2010 7.735447 0.123351262 0.5681830 -0.5653117 -0.01686872702 52.14838
## 2011 7.790251 0.054803598 0.5666225 -0.5680620 -0.00275034639 53.09143
## 2012 7.816983 0.026731788 0.5652490 -0.5704889 -0.00242683955 53.97854
## 2013 7.832265 0.015281822 0.5607976 -0.5783952 -0.00790634869 54.49333
## 2014 7.881048 0.048783533 0.5608372 -0.5783247 0.00007055771 55.50577
## 2015 7.932577 0.051529415 0.5650811 -0.5707860 0.00753863132 56.50811
## 2016 7.952297 0.019719593 0.5644979 -0.5718187 -0.00103262934 57.03384
## 2017 7.998283 0.045986224 0.5643387 -0.5721006 -0.00028195748 58.09179
## 2018 8.041032 0.042748451 0.5608107 -0.5783719 -0.00627129056 59.13481
## ulc_l ulc_dl Tau Tau_l Tau_dl dPxdPm
## 1962 2.376627 0.0027103052 55.05524 4.008337 0.0398790068 0.015224448
## 1963 2.383109 0.0064813395 56.79073 4.039373 0.0310360328 -0.019101494
## 1964 2.392396 0.0092872450 58.47186 4.068546 0.0291724640 -0.015479096
## 1965 2.397299 0.0049033842 60.40284 4.101036 0.0324905206 0.017390321
## 1966 2.423084 0.0257848244 62.03388 4.127681 0.0266445939 0.005820613
## 1967 2.463715 0.0406305349 62.10106 4.128763 0.0010823819 0.036571753
## 1968 2.510450 0.0467348613 63.44981 4.150249 0.0214860979 0.003931207
## 1969 2.575137 0.0646874179 63.66296 4.153603 0.0033536615 0.007699775
## 1970 2.637550 0.0624132126 63.01161 4.143319 -0.0102838866 -0.019628275
## 1971 2.670684 0.0331335877 64.27498 4.163170 0.0198513910 -0.021352980
## 1972 2.709320 0.0386360895 65.75669 4.185961 0.0227910139 -0.026405885
## 1973 2.756813 0.0474934229 67.31448 4.209375 0.0234139967 -0.036271239
## 1974 2.850105 0.0932912048 65.54941 4.182804 -0.0265712328 -0.149716150
## 1975 2.914970 0.0648658799 65.37932 4.180206 -0.0025981662 0.017863133
## 1976 2.957939 0.0429690564 67.05592 4.205527 0.0253208562 0.002475898
## 1977 3.015654 0.0577145615 68.02040 4.219808 0.0142808319 -0.044972942
## 1978 3.078825 0.0631710698 69.18590 4.236797 0.0169894270 -0.009019640
## 1979 3.158980 0.0801551333 69.33937 4.239013 0.0022156992 -0.044161147
## 1980 3.255768 0.0967879913 68.26009 4.223325 -0.0156875187 -0.122949353
## 1981 3.329688 0.0739201615 68.84282 4.231826 0.0085006889 0.018689882
## 1982 3.401058 0.0713691789 67.40807 4.210765 -0.0210613003 0.039084212
## 1983 3.416671 0.0156131085 69.36514 4.239384 0.0286198008 0.042437068
## 1984 3.440291 0.0236200181 71.82331 4.274209 0.0348246060 0.017950369
## 1985 3.469917 0.0296262942 73.04609 4.291091 0.0168814886 0.003226377
## 1986 3.496147 0.0262299763 73.71139 4.300157 0.0090667037 -0.017132558
## 1987 3.529695 0.0335479256 74.30223 4.308141 0.0079837294 -0.036752698
## 1988 3.568131 0.0384358457 75.62892 4.325839 0.0176978028 0.003302339
## 1989 3.593183 0.0250517727 76.69458 4.339831 0.0139922200 -0.005100720
## 1990 3.635258 0.0420756273 76.89669 4.342463 0.0026318191 -0.022619148
## 1991 3.671677 0.0364192646 76.69744 4.339868 -0.0025945564 0.019395105
## 1992 3.693474 0.0217965696 78.56362 4.363909 0.0240404290 -0.005712972
## 1993 3.706893 0.0134194428 79.44446 4.375058 0.0111494115 0.009073123
## 1994 3.714790 0.0078966324 80.85623 4.392673 0.0176145628 0.002347836
## 1995 3.731548 0.0167578758 81.56393 4.401387 0.0087144423 -0.005022948
## 1996 3.743063 0.0115152418 83.06990 4.419682 0.0182952764 0.004281147
## 1997 3.761164 0.0181007049 84.66858 4.438745 0.0190621712 0.017544616
## 1998 3.787657 0.0264927875 86.58339 4.461108 0.0223634238 0.031509479
## 1999 3.800259 0.0126023186 88.44950 4.482432 0.0213237943 -0.013255449
## 2000 3.836932 0.0366732588 89.67985 4.496246 0.0138143202 -0.023883620
## 2001 3.856202 0.0192700639 89.53073 4.494582 -0.0016641856 0.018495949
## 2002 3.855410 -0.0007922393 90.53868 4.505777 0.0111952652 0.005275908
## 2003 3.863259 0.0078486347 92.06038 4.522445 0.0166674224 -0.014492490
## 2004 3.881315 0.0180561264 93.76575 4.540800 0.0183550409 -0.011090074
## 2005 3.893838 0.0125229399 95.01198 4.554003 0.0132033159 -0.023019029
## 2006 3.921223 0.0273847917 95.47855 4.558902 0.0048986690 -0.006204702
## 2007 3.950703 0.0294804064 95.66528 4.560855 0.0019538047 0.002788536
## 2008 3.971348 0.0206452996 95.04788 4.554381 -0.0064747116 -0.049957184
## 2009 3.959377 -0.0119717083 94.73714 4.551106 -0.0032745785 0.055692920
## 2010 3.954093 -0.0052833982 97.16246 4.576384 0.0252782424 -0.013178034
## 2011 3.972015 0.0179223092 97.65814 4.581473 0.0050885880 -0.011926658
## 2012 3.988587 0.0165710973 98.12300 4.586222 0.0047488330 0.005866032
## 2013 3.998078 0.0094917694 98.41200 4.589163 0.0029409276 0.015397835
## 2014 4.016487 0.0184086756 99.08281 4.595956 0.0067931951 0.008981919
## 2015 4.034384 0.0178971258 100.00000 4.605170 0.0092142380 0.034327380
## 2016 4.043645 0.0092606576 99.97366 4.604907 -0.0002634827 0.016379624
## 2017 4.062024 0.0183795153 100.82239 4.613360 0.0084537418 0.003278177
## 2018 4.079820 0.0177954293 101.88933 4.623887 0.0105267743 0.004989712
## dPdPm Trade
## 1962 0.0233742924 0.06683532
## 1963 -0.0051639732 0.06706528
## 1964 -0.0067547167 0.06872143
## 1965 0.0048517722 0.06894392
## 1966 0.0024401253 0.07188608
## 1967 0.0262861929 0.07350626
## 1968 0.0254428073 0.07837346
## 1969 0.0226539943 0.08004865
## 1970 -0.0067117865 0.08544669
## 1971 -0.0083857558 0.08586572
## 1972 -0.0259936305 0.08954668
## 1973 -0.1075440713 0.09370413
## 1974 -0.2719713271 0.09637755
## 1975 0.0092517209 0.09061036
## 1976 0.0239243845 0.09626335
## 1977 -0.0242584667 0.09841616
## 1978 -0.0007295022 0.10210861
## 1979 -0.0778727365 0.10430916
## 1980 -0.1332468661 0.10617584
## 1981 0.0378235212 0.10551859
## 1982 0.0942205490 0.10259722
## 1983 0.0766934374 0.10312230
## 1984 0.0440736602 0.11247049
## 1985 0.0646094118 0.11354271
## 1986 0.0195784471 0.11870202
## 1987 -0.0339852927 0.12391924
## 1988 -0.0120859874 0.12982134
## 1989 0.0168252136 0.13478109
## 1990 0.0085196145 0.14027367
## 1991 0.0416406114 0.14477412
## 1992 0.0216130563 0.14959519
## 1993 0.0310661864 0.15429342
## 1994 0.0118854207 0.16378833
## 1995 -0.0063608855 0.17400386
## 1996 0.0357260211 0.18183546
## 1997 0.0525206471 0.19624506
## 1998 0.0665490878 0.20138829
## 1999 0.0088516629 0.20844466
## 2000 -0.0208412683 0.22195937
## 2001 0.0482458617 0.21078060
## 2002 0.0290304896 0.20998781
## 2003 -0.0113390637 0.21190134
## 2004 -0.0201339561 0.22598668
## 2005 -0.0263777650 0.23309495
## 2006 -0.0077743424 0.24411612
## 2007 -0.0075740751 0.25167184
## 2008 -0.0764954899 0.25479134
## 2009 0.1251264924 0.23262821
## 2010 -0.0415213692 0.25556911
## 2011 -0.0525266591 0.26755008
## 2012 0.0172845867 0.26959107
## 2013 0.0311230492 0.27125090
## 2014 0.0262908077 0.27683893
## 2015 0.0946476792 0.27728151
## 2016 0.0470962975 0.27578780
## 2017 -0.0033323187 0.28061682
## 2018 -0.0043920351 0.28291619
adf.USA.WS <- adf.test((USA$WS), alternative = c("stationary"), k = 2)
adf.USA.PS <- adf.test((USA$PS), alternative = c("stationary"), k = 2)
adf.USA.Y <- adf.test((USA$Y), alternative = c("stationary"), k = 2)
adf.USA.Yrw <- adf.test((USA$Yrw), alternative = c("stationary"), k = 2)
adf.USA.r <- adf.test((USA$r), alternative = c("stationary"), k = 2)
adf.USA.R <- adf.test((USA$R), alternative = c("stationary"), k = 2)
adf.USA.Tau <- adf.test((USA$Tau), alternative = c("stationary"), k = 2)
adf.USA.rulc <- adf.test((USA$rulc), alternative = c("stationary"), k = 2)
adf.USA.ulc <- adf.test((USA$ulc), alternative = c("stationary"), k = 2)
adf.USA.P <- adf.test((USA$P), alternative = c("stationary"), k = 2)
adf.USA.Pm <- adf.test((USA$Pm), alternative = c("stationary"), k = 2)
adf.USA.Px <- adf.test((USA$Px), alternative = c("stationary"), k = 2)
adf.USA.X <- adf.test((USA$X), alternative = c("stationary"), k = 2)
adf.USA.M <- adf.test((USA$M), alternative = c("stationary"), k = 2)
adf.USA.I <- adf.test((USA$I), alternative = c("stationary"), k = 2)
adf.USA.C <- adf.test((USA$C), alternative = c("stationary"), k = 2)
adf.USA.Ipr <- adf.test((USA$Ipr), alternative = c("stationary"), k = 2)
adf.USA.Ips <- adf.test((USA$Ips), alternative = c("stationary"), k = 2)
adf.USA.It <- adf.test((USA$It), alternative = c("stationary"), k = 2)
adf.USA.Itcurr <- adf.test((USA$Itcurr), alternative = c("stationary"), k = 2)
adf.USA.Yf <- adf.test((USA$Yf), alternative = c("stationary"), k = 2)
adf.USA.W <- adf.test((USA$W), alternative = c("stationary"), k = 2)
adf.USA.WS.pval <- adf.USA.WS$p.value
adf.USA.PS.pval <- adf.USA.PS$p.value
adf.USA.Y.pval <- adf.USA.Y$p.value
adf.USA.Yrw.pval <- adf.USA.Yrw$p.value
adf.USA.r.pval <- adf.USA.r$p.value
adf.USA.R.pval <- adf.USA.R$p.value
adf.USA.Tau.pval <- adf.USA.Tau$p.value
adf.USA.rulc.pval <- adf.USA.rulc$p.value
adf.USA.ulc.pval <- adf.USA.ulc$p.value
adf.USA.P.pval <- adf.USA.P$p.value
adf.USA.Pm.pval <- adf.USA.Pm$p.value
adf.USA.Px.pval <- adf.USA.Px$p.value
adf.USA.X.pval <- adf.USA.X$p.value
adf.USA.M.pval <- adf.USA.M$p.value
adf.USA.I.pval <- adf.USA.I$p.value
adf.USA.C.pval <- adf.USA.C$p.value
adf.USA.Ipr.pval <- adf.USA.Ipr$p.value
adf.USA.Ips.pval <- adf.USA.Ips$p.value
adf.USA.It.pval <- adf.USA.It$p.value
adf.USA.Itcurr.pval <- adf.USA.Itcurr$p.value
adf.USA.Yf.pval <- adf.USA.Yf$p.value
adf.USA.W.pval <- adf.USA.W$p.value
adf.USA_non <- rbind(adf.USA.WS.pval,adf.USA.PS.pval,adf.USA.Y.pval,adf.USA.Yrw.pval,adf.USA.r.pval,adf.USA.R.pval,adf.USA.Tau.pval,adf.USA.rulc.pval,adf.USA.ulc.pval,adf.USA.P.pval,adf.USA.Pm.pval,adf.USA.Px.pval,adf.USA.X.pval,adf.USA.M.pval,adf.USA.I.pval,adf.USA.C.pval,adf.USA.Ipr.pval,adf.USA.Ips.pval,adf.USA.It.pval,adf.USA.Itcurr.pval,adf.USA.Yf.pval,adf.USA.W.pval)
colnames(adf.USA_non) <- c("USA")
rownames(adf.USA_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.USA_non
## USA
## WS 0.14727279
## PS 0.14727279
## Y 0.75063640
## Yrw 0.64619086
## r 0.72717372
## R 0.90110005
## Tau 0.64256632
## rulc 0.09430572
## ulc 0.83164226
## P 0.35795379
## Pm 0.79691168
## Px 0.78904372
## X 0.86446891
## M 0.90638954
## I 0.40754783
## C 0.88874702
## Ipr 0.75205114
## Ips 0.31639286
## It 0.46636119
## Itcurr 0.77863650
## Yf 0.70162132
## W 0.51369211
adf.USA.WS_dl <- adf.test((USA$WS_dl), alternative = c("stationary"), k = 2)
adf.USA.PS_dl <- adf.test((USA$PS_dl), alternative = c("stationary"), k = 2)
adf.USA.Y_dl <- adf.test((USA$Y_dl), alternative = c("stationary"), k = 2)
adf.USA.Yrw_dl <- adf.test((USA$Yrw_dl), alternative = c("stationary"), k = 2)
adf.USA.r_dl <- adf.test((USA$r_dl), alternative = c("stationary"), k = 2)
adf.USA.R_dl <- adf.test((USA$R_dl), alternative = c("stationary"), k = 2)
adf.USA.Tau_dl <- adf.test((USA$Tau_dl), alternative = c("stationary"), k = 2)
adf.USA.rulc_dl <- adf.test((USA$rulc_dl), alternative = c("stationary"), k = 2)
adf.USA.ulc_dl <- adf.test((USA$ulc_dl), alternative = c("stationary"), k = 2)
adf.USA.P_dl <- adf.test((USA$P_dl), alternative = c("stationary"), k = 2)
adf.USA.Pm_dl <- adf.test((USA$Pm_dl), alternative = c("stationary"), k = 2)
adf.USA.Px_dl <- adf.test((USA$Px_dl), alternative = c("stationary"), k = 2)
adf.USA.X_dl <- adf.test((USA$X_dl), alternative = c("stationary"), k = 2)
adf.USA.M_dl <- adf.test((USA$M_dl), alternative = c("stationary"), k = 2)
adf.USA.I_dl <- adf.test((USA$I_dl), alternative = c("stationary"), k = 2)
adf.USA.C_dl <- adf.test((USA$C_dl), alternative = c("stationary"), k = 2)
adf.USA.Ipr_dl <- adf.test((USA$Ipr_dl), alternative = c("stationary"), k = 2)
adf.USA.Ips_dl <- adf.test((USA$Ips_dl), alternative = c("stationary"), k = 2)
adf.USA.It_dl <- adf.test((USA$It_dl), alternative = c("stationary"), k = 2)
adf.USA.Itcurr_dl <- adf.test((USA$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.USA.Yf_dl <- adf.test((USA$Yf_dl), alternative = c("stationary"), k = 2)
adf.USA.W_dl <- adf.test((USA$W_dl), alternative = c("stationary"), k = 2)
adf.USA.WS_dl.pval <- adf.USA.WS_dl$p.value
adf.USA.PS_dl.pval <- adf.USA.PS_dl$p.value
adf.USA.Y_dl.pval <- adf.USA.Y_dl$p.value
adf.USA.Yrw_dl.pval <- adf.USA.Yrw_dl$p.value
adf.USA.r_dl.pval <- adf.USA.r_dl$p.value
adf.USA.R_dl.pval <- adf.USA.R_dl$p.value
adf.USA.Tau_dl.pval <- adf.USA.Tau_dl$p.value
adf.USA.rulc_dl.pval <- adf.USA.rulc_dl$p.value
adf.USA.ulc_dl.pval <- adf.USA.ulc_dl$p.value
adf.USA.P_dl.pval <- adf.USA.P_dl$p.value
adf.USA.Pm_dl.pval <- adf.USA.Pm_dl$p.value
adf.USA.Px_dl.pval <- adf.USA.Px_dl$p.value
adf.USA.X_dl.pval <- adf.USA.X_dl$p.value
adf.USA.M_dl.pval <- adf.USA.M_dl$p.value
adf.USA.I_dl.pval <- adf.USA.I_dl$p.value
adf.USA.C_dl.pval <- adf.USA.C_dl$p.value
adf.USA.Ipr_dl.pval <- adf.USA.Ipr_dl$p.value
adf.USA.Ips_dl.pval <- adf.USA.Ips_dl$p.value
adf.USA.It_dl.pval <- adf.USA.It_dl$p.value
adf.USA.Itcurr_dl.pval <- adf.USA.Itcurr_dl$p.value
adf.USA.Yf_dl.pval <- adf.USA.Yf_dl$p.value
adf.USA.W_dl.pval <- adf.USA.W_dl$p.value
adf.USA_dl <- rbind(adf.USA.WS_dl.pval,adf.USA.PS_dl.pval,adf.USA.Y_dl.pval,adf.USA.Yrw_dl.pval,adf.USA.r_dl.pval,adf.USA.R_dl.pval,adf.USA.Tau_dl.pval,adf.USA.rulc_dl.pval,adf.USA.ulc_dl.pval,adf.USA.P_dl.pval,adf.USA.Pm_dl.pval,adf.USA.Px_dl.pval,adf.USA.X_dl.pval,adf.USA.M_dl.pval,adf.USA.I_dl.pval,adf.USA.C_dl.pval,adf.USA.Ipr_dl.pval,adf.USA.Ips_dl.pval,adf.USA.It_dl.pval,adf.USA.Itcurr_dl.pval,adf.USA.Yf_dl.pval,adf.USA.W_dl.pval)
colnames(adf.USA_dl) <- c("USA")
rownames(adf.USA_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.USA_dl
## USA
## dlog(WS) 0.01000000
## dlog(PS) 0.01000000
## dlog(Y) 0.01000000
## dlog(Yrw) 0.01000000
## dlog(r) 0.01000000
## dlog(R) 0.01000000
## dlog(Tau) 0.01000000
## dlog(rulc) 0.01000000
## dlog(ulc) 0.05409671
## dlog(P) 0.29298829
## dlog(Pm) 0.06478720
## dlog(Px) 0.07141159
## dlog(X) 0.01000000
## dlog(M) 0.01000000
## dlog(I) 0.01000000
## dlog(C) 0.01093446
## dlog(Ipr) 0.01000000
## dlog(Ips) 0.01000000
## dlog(It) 0.01000000
## dlog(Itcurr) 0.01000000
## dlog(Yf) 0.01000000
## dlog(W) 0.01000000
adf.USA <- NULL
adf.USA <- rbind(adf.USA_non,adf.USA_dl)
#Consumption (C)
USA_consumption <- dynlm(USA$C_dl~USA$R_dl+USA$W_dl)
USA_CR <- summary(USA_consumption)$coefficients["USA$R_dl","Estimate"]
USA_CW <- summary(USA_consumption)$coefficients["USA$W_dl","Estimate"]
USA_Ceffekt <- (USA_CR*mean(USA$C/USA$R))-(USA_CW*mean(USA$C/USA$W))
summary(USA_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$C_dl ~ USA$R_dl + USA$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.013976 -0.003872 -0.000206 0.004366 0.018041
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.010472 0.001697 6.171 0.0000000906226848 ***
## USA$R_dl 0.236349 0.036661 6.447 0.0000000325047248 ***
## USA$W_dl 0.522732 0.052037 10.045 0.0000000000000582 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.007406 on 54 degrees of freedom
## Multiple R-squared: 0.8217, Adjusted R-squared: 0.8151
## F-statistic: 124.4 on 2 and 54 DF, p-value: < 0.00000000000000022
#Investments (I)
USA_investment <- dynlm(USA$I_dl~USA$PS_dl+USA$Y_dl)
USA_iPS <- summary(USA_investment)$coefficients["USA$PS_dl","Estimate"]
USA_iPS <- 0
USA_Ieffekt <- USA_iPS*mean(USA$I/USA$R)
summary(USA_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$I_dl ~ USA$PS_dl + USA$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.084817 -0.016281 0.001683 0.015697 0.077308
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.043084 0.007349 -5.863 0.000000283 ***
## USA$PS_dl -0.150859 0.226852 -0.665 0.509
## USA$Y_dl 2.718730 0.206798 13.147 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03064 on 54 degrees of freedom
## Multiple R-squared: 0.7659, Adjusted R-squared: 0.7572
## F-statistic: 88.33 on 2 and 54 DF, p-value: < 0.00000000000000022
#Price deflator (P)
USA_deflator <- dynlm(USA$P_dl~L(USA$ulc_dl)+USA$Pm_dl)
USA_ePULC <- summary(USA_deflator)$coefficients["L(USA$ulc_dl)","Estimate"]
summary(USA_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$P_dl ~ L(USA$ulc_dl) + USA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.016506 -0.004758 -0.001976 0.004244 0.027342
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009264 0.001977 4.685 0.0000193 ***
## L(USA$ulc_dl) 0.759097 0.064977 11.683 < 0.0000000000000002 ***
## USA$Pm_dl 0.034999 0.022062 1.586 0.118
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.008837 on 54 degrees of freedom
## Multiple R-squared: 0.8418, Adjusted R-squared: 0.836
## F-statistic: 143.7 on 2 and 54 DF, p-value: < 0.00000000000000022
#Export price deflator (Px)
USA_exportdeflator <- dynlm(USA$Px_dl~USA$ulc_dl+USA$Pm_dl)
USA_ePX <- summary(USA_exportdeflator)$coefficients["USA$ulc_dl","Estimate"]
summary(USA_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$Px_dl ~ USA$ulc_dl + USA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042262 -0.008381 -0.000197 0.007110 0.038698
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.002448 0.003235 0.757 0.4525
## USA$ulc_dl 0.225586 0.106306 2.122 0.0384 *
## USA$Pm_dl 0.522300 0.036094 14.471 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01446 on 54 degrees of freedom
## Multiple R-squared: 0.8923, Adjusted R-squared: 0.8883
## F-statistic: 223.6 on 2 and 54 DF, p-value: < 0.00000000000000022
#Exports (X)
USA_exports <- dynlm(USA$X_dl~L(USA$dPxdPm)+USA$Yrw_dl)
USA_eXP <- summary(USA_exports)$coefficients["L(USA$dPxdPm)","Estimate"]
USA_Xeffekt <- -(USA_eXP*USA_ePX*(1/(1-USA_ePULC))*mean(USA$Yf/USA$Y)*(mean(USA$X/USA$Y)/mean(USA$rulc)))
summary(USA_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$X_dl ~ L(USA$dPxdPm) + USA$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.076510 -0.026707 -0.000561 0.027131 0.076411
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.007463 0.009301 0.802 0.426
## L(USA$dPxdPm) -0.656192 0.142903 -4.592 0.00002668 ***
## USA$Yrw_dl 1.448493 0.265557 5.455 0.00000126 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03593 on 54 degrees of freedom
## Multiple R-squared: 0.5091, Adjusted R-squared: 0.4909
## F-statistic: 28 on 2 and 54 DF, p-value: 0.00000000454
#Imports (M)
USA_imports <- dynlm(USA$M_dl~USA$dPdPm+USA$Y_l)
USA_eMP <- summary(USA_imports)$coefficients["USA$dPdPm","Estimate"]
USA_eMP <- 0
USA_Meffekt <- -(USA_eMP*USA_ePULC*(1/(1-USA_ePULC))*mean(USA$Yf/USA$Y)*(mean(USA$M/USA$Y)/mean(USA$rulc)))
summary(USA_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$M_dl ~ USA$dPdPm + USA$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.205762 -0.021743 0.002994 0.027107 0.150615
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.25723 0.15830 1.625 0.110
## USA$dPdPm 0.16479 0.14356 1.148 0.256
## USA$Y_l -0.02194 0.01728 -1.270 0.210
##
## Residual standard error: 0.06232 on 54 degrees of freedom
## Multiple R-squared: 0.04464, Adjusted R-squared: 0.009261
## F-statistic: 1.262 on 2 and 54 DF, p-value: 0.2914
names(USA_consumption$coefficients) <- sub("USA$","",names(USA_consumption$coefficients),fixed=TRUE)
names(USA_investment$coefficients) <- sub("USA$","",names(USA_investment$coefficients),fixed=TRUE)
names(USA_deflator$coefficients) <- sub("USA$","",names(USA_deflator$coefficients),fixed=TRUE)
names(USA_exportdeflator$coefficients) <- sub("USA$","",names(USA_exportdeflator$coefficients),fixed=TRUE)
names(USA_exports$coefficients) <- sub("USA$","",names(USA_exports$coefficients),fixed=TRUE)
names(USA_imports$coefficients) <- sub("USA$","",names(USA_imports$coefficients),fixed=TRUE)
USA_Xeffekt
## [1] 0.06841105
USA_Meffekt
## [1] 0
#Nettoeksport (NX)
USA_NXeffekt <- USA_Xeffekt - USA_Meffekt
USA_NXeffekt
## [1] 0.06841105
#Nettoeffekten
USA_Neteffekt = USA_Ceffekt + USA_Ieffekt + USA_NXeffekt
USA_Neteffekt
## [1] -0.02923659
USA_Lukket <- USA_Ceffekt + USA_Ieffekt
USA_Lukket_Konklusion <- ifelse(USA_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
USA_Lukket_Konklusion
## [1] "Wage-led domestic"
USA_Def <- ifelse(USA_Neteffekt > 0, "Profit-led", "Wage-led")
USA_Def
## [1] "Wage-led"
summary(ur.df(y=USA_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0135377 -0.0033774 0.0002086 0.0039571 0.0138175
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.7541 0.6886 -2.547 0.0160 *
## z.diff.lag1 0.9888 0.6343 1.559 0.1292
## z.diff.lag2 0.8688 0.5899 1.473 0.1509
## z.diff.lag3 0.9279 0.5417 1.713 0.0968 .
## z.diff.lag4 0.6446 0.4909 1.313 0.1988
## z.diff.lag5 0.7163 0.4560 1.571 0.1263
## z.diff.lag6 0.6378 0.4430 1.440 0.1599
## z.diff.lag7 0.7897 0.3946 2.001 0.0542 .
## z.diff.lag8 0.5108 0.3693 1.383 0.1765
## z.diff.lag9 0.1779 0.3135 0.567 0.5745
## z.diff.lag10 0.2959 0.2768 1.069 0.2934
## z.diff.lag11 0.2533 0.2192 1.156 0.2567
## z.diff.lag12 0.1248 0.1726 0.723 0.4752
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.006884 on 31 degrees of freedom
## Multiple R-squared: 0.6291, Adjusted R-squared: 0.4736
## F-statistic: 4.045 on 13 and 31 DF, p-value: 0.0006914
##
##
## Value of test-statistic is: -2.5474
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=USA_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.041915 -0.011208 -0.003296 0.014567 0.064376
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.99177 0.51922 -1.910 0.0654 .
## z.diff.lag1 0.58403 0.48592 1.202 0.2385
## z.diff.lag2 0.59009 0.46594 1.266 0.2148
## z.diff.lag3 0.49038 0.42685 1.149 0.2594
## z.diff.lag4 0.17864 0.41443 0.431 0.6694
## z.diff.lag5 0.50998 0.39141 1.303 0.2022
## z.diff.lag6 0.20178 0.37160 0.543 0.5910
## z.diff.lag7 0.28759 0.30877 0.931 0.3588
## z.diff.lag8 0.27330 0.28481 0.960 0.3447
## z.diff.lag9 0.23949 0.25490 0.940 0.3547
## z.diff.lag10 -0.08722 0.23289 -0.375 0.7106
## z.diff.lag11 -0.01450 0.21071 -0.069 0.9456
## z.diff.lag12 0.03043 0.18587 0.164 0.8710
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02532 on 31 degrees of freedom
## Multiple R-squared: 0.4113, Adjusted R-squared: 0.1645
## F-statistic: 1.666 on 13 and 31 DF, p-value: 0.1197
##
##
## Value of test-statistic is: -1.9101
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=USA_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.057265 -0.011571 0.002123 0.014391 0.067422
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.63663 0.33022 -1.928 0.0631 .
## z.diff.lag1 0.08152 0.31747 0.257 0.7990
## z.diff.lag2 0.17462 0.29922 0.584 0.5637
## z.diff.lag3 0.30717 0.28691 1.071 0.2926
## z.diff.lag4 0.10084 0.28903 0.349 0.7295
## z.diff.lag5 0.11599 0.27310 0.425 0.6740
## z.diff.lag6 0.14215 0.26087 0.545 0.5897
## z.diff.lag7 0.10576 0.24602 0.430 0.6703
## z.diff.lag8 0.17749 0.23176 0.766 0.4495
## z.diff.lag9 0.14788 0.21181 0.698 0.4903
## z.diff.lag10 0.14670 0.20981 0.699 0.4896
## z.diff.lag11 0.13874 0.19457 0.713 0.4811
## z.diff.lag12 -0.06563 0.15619 -0.420 0.6773
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03307 on 31 degrees of freedom
## Multiple R-squared: 0.4136, Adjusted R-squared: 0.1677
## F-statistic: 1.682 on 13 and 31 DF, p-value: 0.1156
##
##
## Value of test-statistic is: -1.9279
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
summary(ur.df(y=USA_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.155123 -0.024699 0.000817 0.037133 0.101126
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.25381 0.73320 -1.710 0.0972 .
## z.diff.lag1 0.40151 0.69859 0.575 0.5696
## z.diff.lag2 0.38761 0.67798 0.572 0.5716
## z.diff.lag3 0.19121 0.64589 0.296 0.7692
## z.diff.lag4 0.09383 0.59191 0.159 0.8751
## z.diff.lag5 0.11652 0.56721 0.205 0.8386
## z.diff.lag6 0.12201 0.52568 0.232 0.8180
## z.diff.lag7 0.19804 0.47853 0.414 0.6818
## z.diff.lag8 0.34802 0.42522 0.818 0.4193
## z.diff.lag9 -0.04578 0.37859 -0.121 0.9045
## z.diff.lag10 0.15382 0.30971 0.497 0.6229
## z.diff.lag11 0.31354 0.26064 1.203 0.2381
## z.diff.lag12 0.15526 0.20860 0.744 0.4623
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.06756 on 31 degrees of freedom
## Multiple R-squared: 0.5977, Adjusted R-squared: 0.429
## F-statistic: 3.543 on 13 and 31 DF, p-value: 0.001897
##
##
## Value of test-statistic is: -1.7101
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.6 -1.95 -1.61
plot(USA_consumption)
plot(USA_investment)
plot(USA_deflator)
plot(USA_exportdeflator)
plot(USA_exports)
plot(USA_imports)
bptest(USA_consumption)
##
## studentized Breusch-Pagan test
##
## data: USA_consumption
## BP = 7.5459, df = 2, p-value = 0.02298
bptest(USA_investment)
##
## studentized Breusch-Pagan test
##
## data: USA_investment
## BP = 0.51183, df = 2, p-value = 0.7742
bptest(USA_deflator)
##
## studentized Breusch-Pagan test
##
## data: USA_deflator
## BP = 6.965, df = 2, p-value = 0.03073
bptest(USA_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: USA_exportdeflator
## BP = 11.398, df = 2, p-value = 0.003349
bptest(USA_exports)
##
## studentized Breusch-Pagan test
##
## data: USA_exports
## BP = 0.50157, df = 2, p-value = 0.7782
bptest(USA_imports)
##
## studentized Breusch-Pagan test
##
## data: USA_imports
## BP = 2.6199, df = 2, p-value = 0.2698
resettest(USA_consumption)
##
## RESET test
##
## data: USA_consumption
## RESET = 1.6132, df1 = 2, df2 = 52, p-value = 0.2091
resettest(USA_investment)
##
## RESET test
##
## data: USA_investment
## RESET = 4.326, df1 = 2, df2 = 52, p-value = 0.01829
resettest(USA_deflator)
##
## RESET test
##
## data: USA_deflator
## RESET = 5.2033, df1 = 2, df2 = 52, p-value = 0.008712
resettest(USA_exportdeflator)
##
## RESET test
##
## data: USA_exportdeflator
## RESET = 0.74244, df1 = 2, df2 = 52, p-value = 0.4809
resettest(USA_exports)
##
## RESET test
##
## data: USA_exports
## RESET = 2.3591, df1 = 2, df2 = 52, p-value = 0.1045
resettest(USA_imports)
##
## RESET test
##
## data: USA_imports
## RESET = 0.57174, df1 = 2, df2 = 52, p-value = 0.568
USA_regtab <- matrix(c(USA_Ceffekt, USA_Ieffekt, USA_Lukket, USA_Xeffekt, USA_Meffekt, USA_NXeffekt, USA_Neteffekt,USA_Lukket_Konklusion, USA_Def),ncol=9,byrow=TRUE)
colnames(USA_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(USA_regtab) <- c("USA")
USA_regtab <- as.table(USA_regtab)
USA_regtab
## consumption investment Lukket neteffekt exports
## USA -0.097647639083685 0 -0.097647639083685 0.0684110478031558
## imports netexports neteffect Lukket konklusion
## USA 0 0.0684110478031558 -0.0292365912805291 Wage-led domestic
## Konklusion
## USA Wage-led
USA_smoke <- matrix(c(mean(USA$C/USA$R), mean(USA$C/USA$W), mean(USA$I/USA$R), USA_CR, USA_CW, USA_iPS, USA_ePULC, (1/(1-USA_ePULC)), USA_eXP, USA_ePX, USA_eMP, mean(USA$Yf/USA$Y), mean(USA$X/USA$Y), mean(USA$rulc), (mean(USA$X/USA$Y)/mean(USA$rulc))),ncol=15,byrow=TRUE)
colnames(USA_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(USA_smoke) <- c("USA")
USA_smoke <- as.table(USA_smoke)
USA_smoke
## C/R C/W I/R CR CW
## USA 1.87916048 1.03644963 0.43073877 0.23634884 0.52273167
## iPS ePULC 1/1-epulc eXP ePX
## USA 0.00000000 0.75909736 4.15105460 -0.65619245 0.22558618
## eMP Yf/Y X/Y RULC (X/Y)/rulc
## USA 0.00000000 0.95803892 0.07186168 0.61838140 0.11620931
summary(USA_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$C_dl ~ USA$R_dl + USA$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.013976 -0.003872 -0.000206 0.004366 0.018041
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.010472 0.001697 6.171 0.0000000906226848 ***
## R_dl 0.236349 0.036661 6.447 0.0000000325047248 ***
## W_dl 0.522732 0.052037 10.045 0.0000000000000582 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.007406 on 54 degrees of freedom
## Multiple R-squared: 0.8217, Adjusted R-squared: 0.8151
## F-statistic: 124.4 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(USA_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$I_dl ~ USA$PS_dl + USA$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.084817 -0.016281 0.001683 0.015697 0.077308
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.043084 0.007349 -5.863 0.000000283 ***
## PS_dl -0.150859 0.226852 -0.665 0.509
## Y_dl 2.718730 0.206798 13.147 < 0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03064 on 54 degrees of freedom
## Multiple R-squared: 0.7659, Adjusted R-squared: 0.7572
## F-statistic: 88.33 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(USA_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$P_dl ~ L(USA$ulc_dl) + USA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.016506 -0.004758 -0.001976 0.004244 0.027342
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.009264 0.001977 4.685 0.0000193 ***
## L(ulc_dl) 0.759097 0.064977 11.683 < 0.0000000000000002 ***
## Pm_dl 0.034999 0.022062 1.586 0.118
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.008837 on 54 degrees of freedom
## Multiple R-squared: 0.8418, Adjusted R-squared: 0.836
## F-statistic: 143.7 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(USA_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$Px_dl ~ USA$ulc_dl + USA$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.042262 -0.008381 -0.000197 0.007110 0.038698
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.002448 0.003235 0.757 0.4525
## ulc_dl 0.225586 0.106306 2.122 0.0384 *
## Pm_dl 0.522300 0.036094 14.471 <0.0000000000000002 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.01446 on 54 degrees of freedom
## Multiple R-squared: 0.8923, Adjusted R-squared: 0.8883
## F-statistic: 223.6 on 2 and 54 DF, p-value: < 0.00000000000000022
summary(USA_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$X_dl ~ L(USA$dPxdPm) + USA$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.076510 -0.026707 -0.000561 0.027131 0.076411
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.007463 0.009301 0.802 0.426
## L(dPxdPm) -0.656192 0.142903 -4.592 0.00002668 ***
## Yrw_dl 1.448493 0.265557 5.455 0.00000126 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03593 on 54 degrees of freedom
## Multiple R-squared: 0.5091, Adjusted R-squared: 0.4909
## F-statistic: 28 on 2 and 54 DF, p-value: 0.00000000454
summary(USA_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 57
##
## Call:
## dynlm(formula = USA$M_dl ~ USA$dPdPm + USA$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.205762 -0.021743 0.002994 0.027107 0.150615
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.25723 0.15830 1.625 0.110
## dPdPm 0.16479 0.14356 1.148 0.256
## Y_l -0.02194 0.01728 -1.270 0.210
##
## Residual standard error: 0.06232 on 54 degrees of freedom
## Multiple R-squared: 0.04464, Adjusted R-squared: 0.009261
## F-statistic: 1.262 on 2 and 54 DF, p-value: 0.2914
DEU_df[!complete.cases(DEU_df),]
## WS WS_l WS_dl PS PS_l PS_dl
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 0.6423539 -0.4426159 NA 0.3576461 -1.028211 NA
## 1992 0.6533819 -0.4255935 0.017022366 0.3466181 -1.059532 -0.031320288
## 2019 0.6568661 -0.4202752 0.013870046 0.3431339 -1.069634 -0.026026681
## 2020 0.6559190 -0.4217179 -0.001442744 0.3440810 -1.066878 0.002756071
## 2021 0.6509527 -0.4293183 -0.007600391 0.3490473 -1.052548 0.014330476
## 2022 NA NA NA NA NA NA
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1960 NA NA NA 5854229569019 29.39819 NA
## 1961 NA NA NA 6207391581344 29.45676 0.0585763692
## 1962 NA NA NA 6565158437932 29.51280 0.0560358687
## 1963 NA NA NA 6961023665524 29.57135 0.0585499007
## 1964 NA NA NA 7442668140591 29.63825 0.0669028637
## 1965 NA NA NA 7818775155889 29.68755 0.0492985070
## 1966 NA NA NA 8273573770758 29.74409 0.0565386398
## 1967 NA NA NA 8749755625143 29.80005 0.0559592190
## 1968 NA NA NA 9361136753158 29.86759 0.0675409597
## 1969 NA NA NA 10028904874151 29.93649 0.0689046799
## 1970 NA NA NA 10429414863916 29.97565 0.0391587552
## 1971 NA NA NA 10873999497165 30.01740 0.0417444063
## 1972 NA NA NA 11499542646223 30.07333 0.0559326922
## 1973 NA NA NA 12263046535497 30.13761 0.0642831289
## 1974 NA NA NA 12506548925291 30.15727 0.0196620276
## 1975 NA NA NA 12500248008917 30.15677 -0.0005039363
## 1976 NA NA NA 13098816465739 30.20354 0.0467733952
## 1977 NA NA NA 13563735778365 30.23842 0.0348778644
## 1978 NA NA NA 14036689016070 30.27270 0.0342748013
## 1979 NA NA NA 14678781578475 30.31742 0.0447284753
## 1980 NA NA NA 15012070253662 30.33988 0.0224515401
## 1981 NA NA NA 15272518067013 30.35708 0.0172004474
## 1982 NA NA NA 15379983658710 30.36409 0.0070118931
## 1983 NA NA NA 15672664257157 30.38294 0.0188511631
## 1984 NA NA NA 16200811735720 30.41608 0.0331432834
## 1985 NA NA NA 16737848041754 30.44869 0.0326111568
## 1986 NA NA NA 17262134501637 30.47954 0.0308428406
## 1987 NA NA NA 17868000973679 30.51403 0.0344961124
## 1988 NA NA NA 18781549954868 30.56390 0.0498635446
## 1989 NA NA NA 19532657826725 30.60311 0.0392128225
## 1990 NA NA NA 20259693228943 30.63965 0.0365455319
## 1991 2215.890 7.703409 NA 20715284390085 30.66189 0.0222384471
## 1992 2258.614 7.722507 0.019097222 21014228425241 30.67622 0.0143279482
## 2019 3240.660 8.083532 0.005626074 NA NA NA
## 2020 3031.003 8.016649 -0.066883425 NA NA NA
## 2021 3208.995 8.073713 0.057064216 NA NA NA
## 2022 NA NA NA NA NA NA
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1960 NA NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA NA
## 1991 161.0210 2054.869 7.627967 NA 1258.567 7.137729 NA
## 1992 173.0900 2085.524 7.642775 0.014808044 1295.419 7.166589 0.02886042
## 2019 375.5970 2865.063 7.960346 0.001843892 1707.999 7.443078 0.01550424
## 2020 350.7557 2680.247 7.893664 -0.066681273 1567.054 7.356953 -0.08612509
## 2021 377.0030 2831.992 7.948736 0.055071285 1660.364 7.414792 0.05783943
## 2022 NA NA NA NA NA NA NA
## W W_l W_dl R R_l R_dl It
## 1960 NA NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA NA
## 1991 1319.953 7.185351 NA 734.9159 6.599756 NA 489.4186
## 1992 1362.644 7.217182 0.03183041 722.8804 6.583244 -0.01651224 511.3536
## 2019 1881.963 7.540070 0.01571394 983.1004 6.890711 -0.02418279 683.9256
## 2020 1758.025 7.471946 -0.06812402 922.2221 6.826786 -0.06392520 644.4054
## 2021 1843.493 7.519417 0.04747089 988.4992 6.896188 0.06940176 682.5412
## 2022 NA NA NA NA NA NA NA
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1960 NA NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA NA
## 1991 6.193218 NA 394.7210 5.978179 NA 344.9460 5.843388
## 1992 6.237061 0.04384317 428.9390 6.061315 0.08313553 373.6210 5.923242
## 2019 6.527849 0.02566542 746.8740 6.615896 0.05384937 661.3590 6.494297
## 2020 6.468328 -0.05952111 717.7619 6.576138 -0.03975860 625.8580 6.439124
## 2021 6.525823 0.05749486 777.5564 6.656156 0.08001828 680.0105 6.522108
## 2022 NA NA NA NA NA NA NA
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 NA 0.8738983 -0.1347913 NA 427.7021 6.058427
## 1992 0.07985403 0.8710353 -0.1380728 -0.003281500 445.4070 6.098989
## 2019 0.05147165 0.8855028 -0.1215997 -0.002377723 605.6180 6.406249
## 2020 -0.05517330 0.8719577 -0.1370144 -0.015414703 561.8942 6.331314
## 2021 0.08298473 0.8745481 -0.1340479 0.002966448 596.9151 6.391775
## 2022 NA NA NA NA NA NA
## I_dl r r_l r_dl P P_l
## 1960 NA NA NA NA 22.19090 3.099682
## 1961 NA NA NA NA 23.24077 3.145908
## 1962 NA NA NA NA 24.15110 3.184330
## 1963 NA NA NA NA 24.89615 3.214713
## 1964 NA NA NA NA 25.64937 3.244519
## 1965 NA NA NA NA 26.60496 3.281098
## 1966 NA NA NA NA 27.52088 3.314945
## 1967 NA NA NA NA 27.95183 3.330483
## 1968 NA NA NA NA 28.59377 3.353189
## 1969 NA NA NA NA 29.78553 3.394023
## 1970 NA NA NA NA 32.07914 3.468206
## 1971 NA NA NA NA 34.52400 3.541655
## 1972 NA NA NA NA 36.08858 3.585977
## 1973 NA NA NA NA 38.36199 3.647067
## 1974 NA NA NA NA 41.15293 3.717295
## 1975 NA NA NA NA 43.48491 3.772414
## 1976 NA NA NA NA 44.92261 3.804941
## 1977 NA NA NA NA 46.31553 3.835477
## 1978 NA NA NA NA 47.95781 3.870322
## 1979 NA NA NA NA 50.00951 3.912213
## 1980 NA NA NA NA 52.73563 3.965291
## 1981 NA NA NA NA 54.93746 4.006195
## 1982 NA NA NA NA 57.45418 4.050988
## 1983 NA NA NA NA 59.06746 4.078680
## 1984 NA NA NA NA 60.24240 4.098376
## 1985 NA NA NA NA 61.52238 4.119401
## 1986 NA NA NA NA 63.36777 4.148955
## 1987 NA NA NA NA 64.17867 4.161671
## 1988 NA NA NA NA 65.26359 4.178434
## 1989 NA NA NA NA 67.14257 4.206818
## 1990 NA NA NA NA 69.42316 4.240221
## 1991 NA NA NA NA 71.56492 4.270605
## 1992 0.04056167 2.41115 1.752095 NA 75.35860 4.322258
## 2019 0.02328770 -2.35552 0.000000 -0.8153903 106.02038 4.663631
## 2020 -0.07493581 NA NA NA 108.28340 4.684752
## 2021 0.06046131 NA NA NA 110.03404 4.700790
## 2022 NA NA NA NA NA NA
## P_dl Pm Pm_l Pm_dl Px Px_l
## 1960 NA 45.51832 3.818115 NA 37.09301 3.613429
## 1961 0.04622571 44.43546 3.794038 -0.024076997 36.76024 3.604417
## 1962 0.03842171 44.33084 3.791681 -0.002357276 37.47668 3.623719
## 1963 0.03038334 45.38310 3.815140 0.023459088 37.83464 3.633225
## 1964 0.02980590 46.19565 3.832886 0.017746036 38.83770 3.659392
## 1965 0.03657839 47.55459 3.861878 0.028992514 39.88557 3.686015
## 1966 0.03384750 48.40740 3.879653 0.017774431 40.90002 3.711131
## 1967 0.01553764 47.72939 3.865547 -0.014105327 40.99052 3.713341
## 1968 0.02270632 48.04525 3.872143 0.006595991 41.01070 3.713833
## 1969 0.04083356 48.94956 3.890790 0.018647000 42.65650 3.753180
## 1970 0.07418353 45.74480 3.823078 -0.067712272 44.08087 3.786026
## 1971 0.07344873 46.43686 3.838093 0.015015376 46.00562 3.828763
## 1972 0.04432169 47.24497 3.855346 0.017252779 47.21491 3.854710
## 1973 0.06109056 51.29779 3.937648 0.082301493 50.11473 3.914315
## 1974 0.07022807 63.28156 4.147594 0.209946198 57.62508 4.053958
## 1975 0.05511894 64.68216 4.169485 0.021891495 60.33713 4.099948
## 1976 0.03252718 68.29934 4.223900 0.054414622 62.64479 4.137481
## 1977 0.03053614 69.60283 4.242805 0.018905236 63.85867 4.156672
## 1978 0.03484424 68.37260 4.224972 -0.017833118 65.01419 4.174606
## 1979 0.04189156 74.16675 4.306316 0.081343746 67.98199 4.219243
## 1980 0.05307803 83.52666 4.425166 0.118850018 72.01478 4.276871
## 1981 0.04090427 93.30771 4.535903 0.110736801 76.05873 4.331506
## 1982 0.04479226 95.80007 4.562263 0.026360673 79.18888 4.371836
## 1983 0.02769244 96.44129 4.568934 0.006671032 80.80458 4.392034
## 1984 0.01969615 101.15689 4.616673 0.047738209 83.34629 4.423004
## 1985 0.02102470 103.51975 4.639762 0.023089804 85.58104 4.449464
## 1986 0.02955436 91.60731 4.517511 -0.122251369 84.67929 4.438871
## 1987 0.01271550 87.25912 4.468882 -0.048628943 83.87666 4.429347
## 1988 0.01676333 89.03423 4.489021 0.020138824 85.36485 4.446934
## 1989 0.02838400 93.68763 4.539966 0.050945196 87.48460 4.471463
## 1990 0.03340231 92.49129 4.527114 -0.012851657 87.56185 4.472345
## 1991 0.03038444 95.10680 4.555000 0.027885942 88.80248 4.486415
## 1992 0.05165305 93.11671 4.533854 -0.021146825 89.69274 4.496390
## 2019 0.02133392 101.80637 4.623073 -0.001192641 102.62202 4.631053
## 2020 0.02112047 99.62199 4.601383 -0.021689726 102.96784 4.634417
## 2021 0.01603797 100.09663 4.606136 0.004753091 103.33265 4.637953
## 2022 NA NA NA NA NA NA
## Px_dl X X_l X_dl M M_l
## 1960 NA NA NA NA NA NA
## 1961 -0.0090118725 NA NA NA NA NA
## 1962 0.0193020552 NA NA NA NA NA
## 1963 0.0095062072 NA NA NA NA NA
## 1964 0.0261664791 NA NA NA NA NA
## 1965 0.0266230468 NA NA NA NA NA
## 1966 0.0251160901 NA NA NA NA NA
## 1967 0.0022101291 NA NA NA NA NA
## 1968 0.0004923268 NA NA NA NA NA
## 1969 0.0393465802 NA NA NA NA NA
## 1970 0.0328462459 NA NA NA NA NA
## 1971 0.0427375268 NA NA NA NA NA
## 1972 0.0259462268 NA NA NA NA NA
## 1973 0.0596051801 NA NA NA NA NA
## 1974 0.1396430792 NA NA NA NA NA
## 1975 0.0459897278 NA NA NA NA NA
## 1976 0.0375328989 NA NA NA NA NA
## 1977 0.0191917850 NA NA NA NA NA
## 1978 0.0179331517 NA NA NA NA NA
## 1979 0.0446372189 NA NA NA NA NA
## 1980 0.0576286931 NA NA NA NA NA
## 1981 0.0546344154 NA NA NA NA NA
## 1982 0.0403300868 NA NA NA NA NA
## 1983 0.0201977016 NA NA NA NA NA
## 1984 0.0309704489 NA NA NA NA NA
## 1985 0.0264596394 NA NA NA NA NA
## 1986 -0.0105927232 NA NA NA NA NA
## 1987 -0.0095236078 NA NA NA NA NA
## 1988 0.0175870474 NA NA NA NA NA
## 1989 0.0245282828 NA NA NA NA NA
## 1990 0.0008826527 NA NA NA NA NA
## 1991 0.0140692130 422.599 6.046424 NA 402.716 5.998232
## 1992 0.0099752717 421.179 6.043058 -0.003365817 414.858 6.027936
## 2019 0.0077278413 1570.869 7.359384 0.008713304 1379.447 7.229438
## 2020 0.0033641322 1380.899 7.230490 -0.128894233 1253.059 7.133343
## 2021 0.0035367408 1522.837 7.328330 0.097840306 1360.312 7.215469
## 2022 NA NA NA NA NA NA
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1960 NA NA NA NA NA NA
## 1961 NA NA NA NA NA NA
## 1962 NA NA NA NA NA NA
## 1963 NA NA NA NA NA NA
## 1964 NA NA NA NA NA NA
## 1965 NA NA NA NA NA NA
## 1966 NA NA NA NA NA NA
## 1967 NA NA NA NA NA NA
## 1968 NA NA NA NA NA NA
## 1969 NA NA NA NA NA NA
## 1970 NA NA NA NA NA NA
## 1971 NA NA NA NA NA NA
## 1972 NA NA NA NA NA NA
## 1973 NA NA NA NA NA NA
## 1974 NA NA NA NA NA NA
## 1975 NA NA NA NA NA NA
## 1976 NA NA NA NA NA NA
## 1977 NA NA NA NA NA NA
## 1978 NA NA NA NA NA NA
## 1979 NA NA NA NA NA NA
## 1980 NA NA NA NA NA NA
## 1981 NA NA NA NA NA NA
## 1982 NA NA NA NA NA NA
## 1983 NA NA NA NA NA NA
## 1984 NA NA NA NA NA NA
## 1985 NA NA NA NA NA NA
## 1986 NA NA NA NA NA NA
## 1987 NA NA NA NA NA NA
## 1988 NA NA NA NA NA NA
## 1989 NA NA NA NA NA NA
## 1990 NA NA NA NA NA NA
## 1991 NA 0.5956763 -0.5180579 NA 42.62952 3.752547
## 1992 0.02970469 0.6033096 -0.5053247 0.012733188 45.46457 3.816933
## 2019 0.01890390 0.5807344 -0.5434618 0.010087864 61.56968 4.120170
## 2020 -0.09609493 0.5800144 -0.5447024 -0.001240592 62.80592 4.140049
## 2021 0.08212632 0.5744767 -0.5542957 -0.009593322 63.21199 4.146494
## 2022 NA NA NA NA NA NA
## ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm
## 1960 NA 52.83543 3.967182 NA NA NA
## 1961 NA 53.74501 3.984251 0.0170688407 0.015065125 0.070302706
## 1962 NA 55.07111 4.008625 0.0243744118 0.021659331 0.040778986
## 1963 NA 55.54587 4.017209 0.0085838384 -0.013952881 0.006924250
## 1964 NA 58.09439 4.062069 0.0448599840 0.008420443 0.012059868
## 1965 NA 59.86838 4.092148 0.0300793537 -0.002369467 0.007585873
## 1966 NA 60.60388 4.104359 0.0122104240 0.007341659 0.016073069
## 1967 NA 60.82166 4.107946 0.0035870732 0.016315456 0.029642969
## 1968 NA 63.25220 4.147130 0.0391839900 -0.006103664 0.016110329
## 1969 NA 66.32176 4.194518 0.0473881450 0.020699581 0.022186559
## 1970 NA 67.99133 4.219380 0.0248620985 0.100558518 0.141895804
## 1971 NA 68.76521 4.230698 0.0113177621 0.027722151 0.058433358
## 1972 NA 70.34678 4.253437 0.0227391319 0.008693448 0.027068913
## 1973 NA 72.09539 4.277990 0.0245530231 -0.022696313 -0.021210930
## 1974 NA 72.35137 4.281534 0.0035443090 -0.070303119 -0.139718130
## 1975 NA 72.18869 4.279283 -0.0022510462 0.024098233 0.033227447
## 1976 NA 75.24968 4.320812 0.0415283038 -0.016881723 -0.021887447
## 1977 NA 76.91258 4.342669 0.0218578339 0.000286549 0.011630901
## 1978 NA 77.96332 4.356239 0.0135690406 0.035766270 0.052677358
## 1979 NA 79.39086 4.374383 0.0181447058 -0.036706527 -0.039452188
## 1980 NA 78.85640 4.367628 -0.0067547475 -0.061221325 -0.065771993
## 1981 NA 78.53588 4.363556 -0.0040728356 -0.056102386 -0.069832535
## 1982 NA 78.06191 4.357502 -0.0060533885 0.013969414 0.018431584
## 1983 NA 79.17973 4.371720 0.0142180613 0.013526670 0.021021411
## 1984 NA 80.46449 4.387816 0.0160956950 -0.016767760 -0.028042055
## 1985 NA 81.14120 4.396191 0.0083747999 0.003369836 -0.002065107
## 1986 NA 81.51970 4.400845 0.0046538940 0.111658646 0.151805725
## 1987 NA 81.44907 4.399978 -0.0008667207 0.039105336 0.061344444
## 1988 NA 83.17206 4.420912 0.0209335452 -0.002551777 -0.003375490
## 1989 NA 84.77392 4.439988 0.0190763932 -0.026416913 -0.022561197
## 1990 NA 86.77552 4.463325 0.0233366137 0.013734309 0.046253970
## 1991 NA 88.85054 4.486956 0.0236311226 -0.013816729 0.002498495
## 1992 0.06438624 90.12068 4.501150 0.0141940663 0.031122097 0.072799880
## 2019 0.03142179 102.27748 4.627690 -0.0041618798 0.008920482 0.022526565
## 2020 0.01987987 95.91437 4.563456 -0.0642336972 0.025053858 0.042810192
## 2021 0.00644465 100.75677 4.612709 0.0492535555 -0.001216350 0.011284881
## 2022 NA NA NA NA NA NA
## Trade
## 1960 NA
## 1961 NA
## 1962 NA
## 1963 NA
## 1964 NA
## 1965 NA
## 1966 NA
## 1967 NA
## 1968 NA
## 1969 NA
## 1970 NA
## 1971 NA
## 1972 NA
## 1973 NA
## 1974 NA
## 1975 NA
## 1976 NA
## 1977 NA
## 1978 NA
## 1979 NA
## 1980 NA
## 1981 NA
## 1982 NA
## 1983 NA
## 1984 NA
## 1985 NA
## 1986 NA
## 1987 NA
## 1988 NA
## 1989 NA
## 1990 NA
## 1991 0.3724531
## 1992 0.3701549
## 2019 0.9104059
## 2020 0.8690054
## 2021 0.8984586
## 2022 NA
DEU <- DEU_df[34:59,]
DEU[!complete.cases(DEU),]
## [1] WS WS_l WS_dl PS PS_l PS_dl Y
## [8] Y_l Y_dl Yrw Yrw_l Yrw_dl Tax Yf
## [15] Yf_l Yf_dl C C_l C_dl W W_l
## [22] W_dl R R_l R_dl It It_l It_dl
## [29] Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l Ipr_dl Ips
## [36] Ips_l Ips_dl I I_l I_dl r r_l
## [43] r_dl P P_l P_dl Pm Pm_l Pm_dl
## [50] Px Px_l Px_dl X X_l X_dl M
## [57] M_l M_dl rulc rulc_l rulc_dl ulc ulc_l
## [64] ulc_dl Tau Tau_l Tau_dl dPxdPm dPdPm Trade
## <0 rows> (or 0-length row.names)
DEU %>% head()
## WS WS_l WS_dl PS PS_l PS_dl
## 1993 0.6548756 -0.4233100 0.0022835500 0.3451244 -1.063850 -0.004318767
## 1994 0.6470786 -0.4352874 -0.0119774520 0.3529214 -1.041510 0.022340307
## 1995 0.6466922 -0.4358849 -0.0005974211 0.3533078 -1.040416 0.001094441
## 1996 0.6443945 -0.4394441 -0.0035592752 0.3556055 -1.033933 0.006482237
## 1997 0.6359522 -0.4526318 -0.0131877094 0.3640478 -1.010470 0.023463203
## 1998 0.6330377 -0.4572252 -0.0045934014 0.3669623 -1.002496 0.007973900
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1993 2236.495 7.712665 -0.009841443 21122060210480 30.68134 0.00511825
## 1994 2290.127 7.736363 0.023697366 21714141156460 30.70898 0.02764571
## 1995 2325.276 7.751594 0.015231467 22370999766659 30.73879 0.02980175
## 1996 2344.365 7.759770 0.008175835 22950590507829 30.76436 0.02557820
## 1997 2386.180 7.777449 0.017679185 23601800210285 30.79234 0.02797932
## 1998 2434.358 7.797438 0.019989306 24050244547741 30.81117 0.01882218
## Tax Yf Yf_l Yf_dl C C_l C_dl
## 1993 183.737 2052.758 7.626940 -0.015835888 1296.220 7.167208 0.0006181417
## 1994 199.713 2090.414 7.645117 0.018177878 1314.646 7.181323 0.0141150913
## 1995 201.007 2124.269 7.661183 0.016065611 1334.995 7.196683 0.0153601187
## 1996 201.371 2142.994 7.669959 0.008776173 1356.305 7.212519 0.0158365440
## 1997 204.607 2181.573 7.687801 0.017842260 1366.399 7.219934 0.0074147217
## 1998 211.864 2222.494 7.706385 0.018583813 1386.106 7.234254 0.0143195647
## W W_l W_dl R R_l R_dl It
## 1993 1344.301 7.203630 -0.013552338 708.4569 6.563089 -0.02015465 488.1461
## 1994 1352.662 7.209830 0.006200426 737.7517 6.603607 0.04051818 505.5972
## 1995 1373.748 7.225298 0.015468190 750.5208 6.620767 0.01716005 504.6277
## 1996 1380.934 7.230515 0.005216898 762.0604 6.636026 0.01525841 502.4463
## 1997 1387.376 7.235170 0.004654550 794.1968 6.677331 0.04130546 505.0518
## 1998 1406.923 7.249160 0.013990411 815.5714 6.703889 0.02655771 525.3508
## It_l It_dl Itcurr Itcurr_l Itcurr_dl Ipr Ipr_l
## 1993 6.190615 -0.046446581 421.198 6.043103 -0.018211686 366.848 5.904948
## 1994 6.225740 0.035125559 441.679 6.090583 0.047480342 388.096 5.961253
## 1995 6.223821 -0.001919375 445.973 6.100258 0.009675038 396.118 5.981712
## 1996 6.219489 -0.004332161 442.442 6.092309 -0.007949030 393.662 5.975493
## 1997 6.224661 0.005172230 444.213 6.096304 0.003994795 398.265 5.987118
## 1998 6.264066 0.039405232 459.252 6.129599 0.033294902 412.749 6.022840
## Ipr_dl Ips Ips_l Ips_dl I I_l
## 1993 -0.018294321 0.8709633 -0.1381554 -0.00008263553 425.1573 6.052459
## 1994 0.056305138 0.8786834 -0.1293306 0.00882479639 444.2599 6.096410
## 1995 0.020459415 0.8882107 -0.1185463 0.01078437679 448.2157 6.105275
## 1996 -0.006219474 0.8897483 -0.1168167 0.00172955609 447.0507 6.102672
## 1997 0.011624940 0.8965631 -0.1091866 0.00763014505 452.8108 6.115474
## 1998 0.035722047 0.8987419 -0.1067594 0.00242714528 472.1548 6.157307
## I_dl r r_l r_dl P P_l
## 1993 -0.046529217 2.525573 1.771743 0.019647839 78.28724 4.360385
## 1994 0.043950355 4.727822 2.089805 0.318062778 79.88859 4.380633
## 1995 0.008865002 4.764439 2.094325 0.004519692 81.47894 4.400345
## 1996 -0.002602605 5.599937 2.192263 0.097937969 81.95737 4.406199
## 1997 0.012802375 5.343759 2.163240 -0.029022874 82.18784 4.409007
## 1998 0.041832377 3.860201 1.976262 -0.186978022 82.74953 4.415818
## P_dl Pm Pm_l Pm_dl Px Px_l
## 1993 0.038126617 91.61958 4.517645 -0.0162086032 89.77044 4.497256
## 1994 0.020248330 91.45985 4.515900 -0.0017449622 90.33229 4.503495
## 1995 0.019711592 91.25540 4.513662 -0.0022378766 91.41958 4.515460
## 1996 0.005854642 91.20712 4.513133 -0.0005291717 91.03108 4.511201
## 1997 0.002808187 93.46776 4.537617 0.0244835467 91.81364 4.519761
## 1998 0.006810927 90.98120 4.510653 -0.0269636191 91.19735 4.513026
## Px_dl X X_l X_dl M M_l
## 1993 0.0008658668 396.195 5.981907 -0.06115141 387.240 5.959045
## 1994 0.0062392029 427.567 6.058111 0.07620449 419.024 6.037928
## 1995 0.0119647855 455.816 6.122089 0.06397822 448.189 6.105215
## 1996 -0.0042587611 482.503 6.178987 0.05689792 466.522 6.145305
## 1997 0.0085599254 541.698 6.294709 0.11572151 509.495 6.233420
## 1998 -0.0067349945 583.291 6.368686 0.07397755 557.469 6.323407
## M_dl rulc rulc_l rulc_dl ulc ulc_l
## 1993 -0.06889164 0.6010750 -0.5090356 -0.0037108953 47.05650 3.851349
## 1994 0.07888354 0.5906495 -0.5265326 -0.0174969406 47.18615 3.854100
## 1995 0.06728682 0.5907893 -0.5262959 0.0002367225 48.13688 3.874049
## 1996 0.04009016 0.5890438 -0.5292548 -0.0029589364 48.27648 3.876944
## 1997 0.08811486 0.5814214 -0.5422794 -0.0130246344 47.78577 3.866728
## 1998 0.08998686 0.5779440 -0.5482783 -0.0059988948 47.82459 3.867540
## ulc_dl Tau Tau_l Tau_dl dPxdPm
## 1993 0.0344157216 89.02085 4.488871 -0.0122790754 0.017074470
## 1994 0.0027513898 90.20580 4.502094 0.0132230832 0.007984165
## 1995 0.0199483142 90.50950 4.505455 0.0033610932 0.014202662
## 1996 0.0028957060 90.46379 4.504950 -0.0005051033 -0.003729589
## 1997 -0.0102164471 91.37842 4.515009 0.0100596575 -0.015923621
## 1998 0.0008120318 91.82324 4.519865 0.0048560267 0.020228625
## dPdPm Trade
## 1993 0.054335220 0.3502959
## 1994 0.021993293 0.3696699
## 1995 0.021949468 0.3887732
## 1996 0.006383814 0.4048111
## 1997 -0.021675359 0.4405338
## 1998 0.033774546 0.4686082
DEU %>% head(100)
## WS WS_l WS_dl PS PS_l PS_dl
## 1993 0.6548756 -0.4233100 0.0022835500 0.3451244 -1.0638503 -0.004318767
## 1994 0.6470786 -0.4352874 -0.0119774520 0.3529214 -1.0415100 0.022340307
## 1995 0.6466922 -0.4358849 -0.0005974211 0.3533078 -1.0404156 0.001094441
## 1996 0.6443945 -0.4394441 -0.0035592752 0.3556055 -1.0339334 0.006482237
## 1997 0.6359522 -0.4526318 -0.0131877094 0.3640478 -1.0104702 0.023463203
## 1998 0.6330377 -0.4572252 -0.0045934014 0.3669623 -1.0024963 0.007973900
## 1999 0.6401756 -0.4460128 0.0112124289 0.3598244 -1.0221390 -0.019642796
## 2000 0.6495396 -0.4314915 0.0145213282 0.3504604 -1.0485075 -0.026368482
## 2001 0.6408141 -0.4450159 -0.0135243630 0.3591859 -1.0239152 0.024592287
## 2002 0.6383157 -0.4489222 -0.0039063887 0.3616843 -1.0169836 0.006931612
## 2003 0.6402775 -0.4458536 0.0030686749 0.3597225 -1.0224224 -0.005438809
## 2004 0.6283168 -0.4647108 -0.0188572699 0.3716832 -0.9897133 0.032709136
## 2005 0.6231104 -0.4730315 -0.0083206630 0.3768896 -0.9758031 0.013910220
## 2006 0.6083016 -0.4970845 -0.0240529511 0.3916984 -0.9372631 0.038539938
## 2007 0.6005277 -0.5099466 -0.0128621176 0.3994723 -0.9176108 0.019652383
## 2008 0.6114669 -0.4918944 0.0180521762 0.3885331 -0.9453770 -0.027766246
## 2009 0.6404493 -0.4455854 0.0463090013 0.3595507 -1.0229000 -0.077522941
## 2010 0.6272676 -0.4663820 -0.0207966552 0.3727324 -0.9868945 0.036005428
## 2011 0.6243784 -0.4709987 -0.0046166699 0.3756216 -0.9791730 0.007721552
## 2012 0.6366872 -0.4514768 0.0195219408 0.3633128 -1.0124911 -0.033318171
## 2013 0.6379298 -0.4495270 0.0019498145 0.3620702 -1.0159173 -0.003426147
## 2014 0.6350984 -0.4539753 -0.0044483264 0.3649016 -1.0081276 0.007789663
## 2015 0.6374442 -0.4502885 0.0036867789 0.3625558 -1.0145769 -0.006449305
## 2016 0.6379087 -0.4495601 0.0007283992 0.3620913 -1.0158589 -0.001281957
## 2017 0.6403651 -0.4457168 0.0038433331 0.3596349 -1.0226660 -0.006807076
## 2018 0.6478182 -0.4341452 0.0115715694 0.3521818 -1.0436077 -0.020941741
## Y Y_l Y_dl Yrw Yrw_l Yrw_dl
## 1993 2236.495 7.712665 -0.009841443 21122060210480 30.68134 0.005118250
## 1994 2290.127 7.736363 0.023697366 21714141156460 30.70898 0.027645713
## 1995 2325.276 7.751594 0.015231467 22370999766659 30.73879 0.029801752
## 1996 2344.365 7.759770 0.008175835 22950590507829 30.76436 0.025578200
## 1997 2386.180 7.777449 0.017679185 23601800210285 30.79234 0.027979323
## 1998 2434.358 7.797438 0.019989306 24050244547741 30.81117 0.018822176
## 1999 2480.415 7.816181 0.018742818 24661554915554 30.83627 0.025100385
## 2000 2552.228 7.844722 0.028540818 25643737704971 30.87532 0.039053848
## 2001 2595.558 7.861557 0.016834819 26092386504422 30.89266 0.017344169
## 2002 2590.407 7.859570 -0.001986516 26459851213860 30.90665 0.013984969
## 2003 2571.923 7.852409 -0.007161138 26951574240670 30.92506 0.018413173
## 2004 2602.527 7.864238 0.011829028 27780292663497 30.95535 0.030285163
## 2005 2621.314 7.871431 0.007192823 28484540321319 30.98038 0.025034623
## 2006 2721.306 7.908867 0.037436193 29416232180877 31.01257 0.032185142
## 2007 2802.512 7.938271 0.029404246 30371435559606 31.04452 0.031955910
## 2008 2829.479 7.947848 0.009576438 30565938470916 31.05091 0.006383720
## 2009 2668.280 7.889189 -0.058658526 29434123516995 31.01318 -0.037731602
## 2010 2779.786 7.930129 0.040939876 30364599633747 31.04430 0.031122779
## 2011 2888.869 7.968620 0.038491130 30975131682852 31.06421 0.019907235
## 2012 2900.989 7.972807 0.004186637 31224821413772 31.07223 0.008028658
## 2013 2913.412 7.977080 0.004273190 31611788036280 31.08455 0.012316753
## 2014 2978.256 7.999093 0.022012991 32184758346255 31.10251 0.017962907
## 2015 3030.070 8.016341 0.017247827 32845353701172 31.12283 0.020317298
## 2016 3097.641 8.038396 0.022055133 33432591937880 31.14055 0.017720936
## 2017 3173.998 8.062747 0.024351138 34217026656709 31.16374 0.023192145
## 2018 3222.479 8.077906 0.015158947 34863149324820 31.18245 0.018707002
## Tax Yf Yf_l Yf_dl C C_l
## 1993 183.737 2052.758 7.626940 -0.015835888 1296.220 7.167208
## 1994 199.713 2090.414 7.645117 0.018177878 1314.646 7.181323
## 1995 201.007 2124.269 7.661183 0.016065611 1334.995 7.196683
## 1996 201.371 2142.994 7.669959 0.008776173 1356.305 7.212519
## 1997 204.607 2181.573 7.687801 0.017842260 1366.399 7.219934
## 1998 211.864 2222.494 7.706385 0.018583813 1386.106 7.234254
## 1999 227.168 2253.247 7.720128 0.013742298 1422.157 7.259930
## 2000 231.759 2320.469 7.749525 0.029397033 1445.710 7.276356
## 2001 234.543 2361.015 7.766847 0.017322291 1463.014 7.288254
## 2002 235.946 2354.461 7.764067 -0.002779785 1442.666 7.274248
## 2003 240.605 2331.318 7.754189 -0.009878054 1448.754 7.278459
## 2004 238.710 2363.817 7.768033 0.013843912 1458.048 7.284854
## 2005 241.117 2380.197 7.774939 0.006905572 1469.103 7.292407
## 2006 250.591 2470.715 7.812263 0.037324325 1488.971 7.305841
## 2007 274.177 2528.335 7.835316 0.023053401 1485.286 7.303363
## 2008 279.142 2550.337 7.843981 0.008664524 1490.413 7.306809
## 2009 279.789 2388.491 7.778417 -0.065563722 1488.971 7.305841
## 2010 282.563 2497.223 7.822935 0.044517529 1499.546 7.312918
## 2011 300.350 2588.519 7.858841 0.035906583 1527.425 7.331339
## 2012 305.714 2595.275 7.861448 0.002606587 1550.177 7.346124
## 2013 310.005 2603.407 7.864576 0.003128488 1555.785 7.349736
## 2014 318.815 2659.441 7.885871 0.021294978 1572.128 7.360185
## 2015 332.754 2697.316 7.900012 0.014141254 1602.250 7.379164
## 2016 341.442 2756.199 7.921608 0.021595352 1638.621 7.401610
## 2017 351.805 2822.193 7.945270 0.023661686 1660.572 7.414917
## 2018 362.694 2859.785 7.958502 0.013232205 1681.722 7.427574
## C_dl W W_l W_dl R R_l
## 1993 0.0006181417 1344.301 7.203630 -0.013552338 708.4569 6.563089
## 1994 0.0141150913 1352.662 7.209830 0.006200426 737.7517 6.603607
## 1995 0.0153601187 1373.748 7.225298 0.015468190 750.5208 6.620767
## 1996 0.0158365440 1380.934 7.230515 0.005216898 762.0604 6.636026
## 1997 0.0074147217 1387.376 7.235170 0.004654550 794.1968 6.677331
## 1998 0.0143195647 1406.923 7.249160 0.013990411 815.5714 6.703889
## 1999 0.0256763562 1442.474 7.274115 0.024954727 810.7733 6.697989
## 2000 0.0164258172 1507.236 7.318033 0.043918362 813.2325 6.701017
## 2001 0.0118981410 1512.972 7.321831 0.003797928 848.0433 6.742932
## 2002 -0.0140059006 1502.889 7.315145 -0.006686173 851.5715 6.747083
## 2003 0.0042110859 1492.691 7.308335 -0.006809379 838.6275 6.731767
## 2004 0.0063946782 1485.226 7.303322 -0.005013357 878.5911 6.778320
## 2005 0.0075534556 1483.126 7.301907 -0.001415091 897.0714 6.799135
## 2006 0.0134332669 1502.940 7.315178 0.013271374 967.7751 6.875000
## 2007 -0.0024779311 1518.335 7.325370 0.010191283 1009.9999 6.917705
## 2008 0.0034459165 1559.447 7.352086 0.026716700 990.8902 6.898604
## 2009 -0.0009679854 1529.707 7.332832 -0.019254720 858.7837 6.755517
## 2010 0.0070771183 1566.427 7.356553 0.023720873 930.7959 6.836040
## 2011 0.0184209154 1616.215 7.387842 0.031289913 972.3037 6.879668
## 2012 0.0147858069 1652.378 7.409971 0.022128527 942.8966 6.848957
## 2013 0.0036111234 1660.791 7.415049 0.005078302 942.6160 6.848659
## 2014 0.0104498742 1689.007 7.431896 0.016846652 970.4342 6.877744
## 2015 0.0189787758 1719.388 7.449724 0.017828033 977.9275 6.885436
## 2016 0.0224461431 1758.203 7.472048 0.022323751 997.9957 6.905749
## 2017 0.0133070869 1807.234 7.499553 0.027505019 1014.9591 6.922604
## 2018 0.0126561471 1852.621 7.524357 0.024803774 1007.1643 6.914894
## R_dl It It_l It_dl Itcurr Itcurr_l
## 1993 -0.020154655 488.1461 6.190615 -0.046446581 421.198 6.043103
## 1994 0.040518185 505.5972 6.225740 0.035125559 441.679 6.090583
## 1995 0.017160052 504.6277 6.223821 -0.001919375 445.973 6.100258
## 1996 0.015258411 502.4463 6.219489 -0.004332161 442.442 6.092309
## 1997 0.041305463 505.0518 6.224661 0.005172230 444.213 6.096304
## 1998 0.026557712 525.3508 6.264066 0.039405232 459.252 6.129599
## 1999 -0.005900498 547.8919 6.306078 0.042011775 474.477 6.162213
## 2000 0.003028551 559.3441 6.326765 0.020686843 487.502 6.189294
## 2001 0.041914578 544.6804 6.300199 -0.026565647 473.140 6.159391
## 2002 0.004151827 511.5354 6.237417 -0.062782409 442.301 6.091991
## 2003 -0.015316863 503.2340 6.221055 -0.016361521 431.772 6.067898
## 2004 0.046553048 501.0526 6.216711 -0.004344185 431.938 6.068282
## 2005 0.020815792 505.5366 6.225620 0.008909354 436.534 6.078866
## 2006 0.075864263 543.5897 6.298195 0.072574295 472.315 6.157646
## 2007 0.042705784 563.2222 6.333674 0.035479487 501.323 6.217251
## 2008 -0.019101722 572.1295 6.349365 0.015691143 517.013 6.248068
## 2009 -0.143086662 518.0190 6.250012 -0.099353443 471.232 6.155351
## 2010 0.080522956 545.3469 6.301422 0.051410185 501.148 6.216901
## 2011 0.043628135 585.6420 6.372709 0.071286575 548.701 6.307554
## 2012 -0.030711585 584.3089 6.370430 -0.002278900 557.877 6.324139
## 2013 -0.000297659 576.7952 6.357487 -0.012942517 559.500 6.327044
## 2014 0.029084641 595.4582 6.389331 0.031843929 586.665 6.374454
## 2015 0.007691949 605.9410 6.406783 0.017451428 605.941 6.406783
## 2016 0.020313396 628.9668 6.444078 0.037295852 636.421 6.455860
## 2017 0.016854610 644.3577 6.468254 0.024175534 665.889 6.501123
## 2018 -0.007709536 666.5957 6.502184 0.033929709 707.719 6.562047
## Itcurr_dl Ipr Ipr_l Ipr_dl Ips Ips_l
## 1993 -0.0182116858 366.848 5.904948 -0.018294321 0.8709633 -0.1381554
## 1994 0.0474803420 388.096 5.961253 0.056305138 0.8786834 -0.1293306
## 1995 0.0096750382 396.118 5.981712 0.020459415 0.8882107 -0.1185463
## 1996 -0.0079490297 393.662 5.975493 -0.006219474 0.8897483 -0.1168167
## 1997 0.0039947947 398.265 5.987118 0.011624940 0.8965631 -0.1091866
## 1998 0.0332949019 412.749 6.022840 0.035722047 0.8987419 -0.1067594
## 1999 0.0326140658 425.304 6.052804 0.029964547 0.8963638 -0.1094089
## 2000 0.0270812482 438.500 6.083360 0.030555604 0.8994835 -0.1059346
## 2001 -0.0299030652 423.944 6.049601 -0.033758441 0.8960223 -0.1097900
## 2002 -0.0674006820 394.062 5.976508 -0.073093114 0.8909363 -0.1154824
## 2003 -0.0240929746 384.947 5.953106 -0.023402595 0.8915516 -0.1147920
## 2004 0.0003843883 388.023 5.961065 0.007958954 0.8983303 -0.1072174
## 2005 0.0105842051 392.443 5.972391 0.011326688 0.8989976 -0.1064750
## 2006 0.0787798713 423.515 6.048589 0.076197629 0.8966791 -0.1090572
## 2007 0.0596044681 452.027 6.113742 0.065152980 0.9016682 -0.1035087
## 2008 0.0308174153 463.232 6.138228 0.024486096 0.8959775 -0.1098400
## 2009 -0.0927174775 413.093 6.023673 -0.114555259 0.8766234 -0.1316778
## 2010 0.0615509249 440.692 6.088346 0.064673470 0.8793650 -0.1285552
## 2011 0.0906521999 486.171 6.186560 0.098214195 0.8860399 -0.1209933
## 2012 0.0165848414 497.074 6.208739 0.022178495 0.8910100 -0.1153996
## 2013 0.0029050198 498.245 6.211092 0.002353016 0.8905183 -0.1159516
## 2014 0.0474104307 525.268 6.263909 0.052816685 0.8953457 -0.1105453
## 2015 0.0323286631 541.093 6.293591 0.029682559 0.8929797 -0.1131915
## 2016 0.0490776724 567.747 6.341676 0.048084729 0.8920934 -0.1141844
## 2017 0.0452626959 592.732 6.384742 0.043066461 0.8901363 -0.1163806
## 2018 0.0609241323 628.179 6.442825 0.058082800 0.8876108 -0.1192220
## Ips_dl I I_l I_dl r r_l
## 1993 -0.00008263553 425.1573 6.052459 -0.046529217 2.5255730 1.7717426
## 1994 0.00882479639 444.2599 6.096410 0.043950355 4.7278219 2.0898053
## 1995 0.01078437679 448.2157 6.105275 0.008865002 4.7644388 2.0943250
## 1996 0.00172955609 447.0507 6.102672 -0.002602605 5.5999368 2.1922630
## 1997 0.00763014505 452.8108 6.115474 0.012802375 5.3437592 2.1632401
## 1998 0.00242714528 472.1548 6.157307 0.041832377 3.8602013 1.9762621
## 1999 -0.00264951847 491.1105 6.196669 0.039362256 4.1374856 2.0139699
## 2000 0.00347435628 503.1208 6.220830 0.024161199 5.7598662 2.2099637
## 2001 -0.00385537557 488.0458 6.190409 -0.030421022 3.4665297 1.9201599
## 2002 -0.00569243171 455.7454 6.121934 -0.068474841 3.3551269 1.9036953
## 2003 0.00069037979 448.6591 6.106263 -0.015671141 2.6990242 1.8008090
## 2004 0.00757456546 450.1107 6.109494 0.003230380 2.9072179 1.8346174
## 2005 0.00074248238 454.4762 6.119145 0.009651836 2.9228396 1.8371087
## 2006 -0.00258224246 487.4255 6.189138 0.069992052 3.3475666 1.9025680
## 2007 0.00554851192 507.8395 6.230166 0.041027999 2.4146943 1.7527092
## 2008 -0.00633131939 512.6151 6.239525 0.009359823 3.0454352 1.8564472
## 2009 -0.02183778178 454.1076 6.118334 -0.121191225 1.3496211 1.5486557
## 2010 0.00312254464 479.5590 6.172867 0.054532729 2.0803991 1.6930285
## 2011 0.00756199521 518.9022 6.251715 0.078848571 1.5231802 1.5848787
## 2012 0.00559365308 520.6251 6.255030 0.003314753 0.0045085 1.2119493
## 2013 -0.00055200423 513.6467 6.241536 -0.013494521 -0.3911804 1.0866541
## 2014 0.00540625391 533.1410 6.278786 0.037250183 -0.6890209 0.9807663
## 2015 -0.00264610372 541.0930 6.293591 0.014805325 -1.2150954 0.7610040
## 2016 -0.00099294344 561.0972 6.329894 0.036302908 -1.0743615 0.8246833
## 2017 -0.00219623535 573.5662 6.351873 0.021979298 -0.7197912 0.9691596
## 2018 -0.00284133212 591.6775 6.382962 0.031088376 -1.0954619 0.8153903
## r_dl P P_l P_dl Pm Pm_l
## 1993 0.019647839 78.28724 4.360385 0.038126617 91.61958 4.517645
## 1994 0.318062778 79.88859 4.380633 0.020248330 91.45985 4.515900
## 1995 0.004519692 81.47894 4.400345 0.019711592 91.25540 4.513662
## 1996 0.097937969 81.95737 4.406199 0.005854642 91.20712 4.513133
## 1997 -0.029022874 82.18784 4.409007 0.002808187 93.46776 4.537617
## 1998 -0.186978022 82.74953 4.415818 0.006810927 90.98120 4.510653
## 1999 0.037707841 83.02964 4.419198 0.003379371 89.61361 4.495507
## 2000 0.195993788 82.63721 4.414460 -0.004737631 96.21858 4.566623
## 2001 -0.289803822 83.70223 4.427266 0.012805596 96.82084 4.572862
## 2002 -0.016464616 84.85617 4.440958 0.013692023 94.33082 4.546808
## 2003 -0.102886264 85.98895 4.454219 0.013261134 92.04352 4.522262
## 2004 0.033808358 86.93550 4.465166 0.010947655 91.76168 4.519195
## 2005 0.002491283 87.29631 4.469308 0.004141709 94.33200 4.546820
## 2006 0.065459375 87.64469 4.473291 0.003982800 96.96658 4.574366
## 2007 -0.149858896 89.18964 4.490765 0.017473848 97.10139 4.575756
## 2008 0.103738016 89.99854 4.499793 0.009028564 99.79167 4.603085
## 2009 -0.307791490 91.65943 4.518080 0.018286497 93.14385 4.534145
## 2010 0.144372863 92.25170 4.524521 0.006440796 97.48761 4.579725
## 2011 -0.108149790 93.23927 4.535169 0.010648245 102.69699 4.631783
## 2012 -0.372929413 94.63359 4.550012 0.014843528 104.71460 4.651239
## 2013 -0.125295196 96.49681 4.569510 0.019497505 103.01817 4.634905
## 2014 -0.105887877 98.29344 4.587957 0.018447292 101.49204 4.619980
## 2015 -0.219762230 100.00000 4.605170 0.017212922 100.00000 4.605170
## 2016 0.063679219 101.17701 4.616872 0.011701340 97.54992 4.580364
## 2017 0.144476324 102.23666 4.627290 0.010418833 100.08611 4.606031
## 2018 -0.153769232 103.78251 4.642297 0.015007084 101.92786 4.624265
## Pm_dl Px Px_l Px_dl X X_l
## 1993 -0.0162086032 89.77044 4.497256 0.0008658668 396.195 5.981907
## 1994 -0.0017449622 90.33229 4.503495 0.0062392029 427.567 6.058111
## 1995 -0.0022378766 91.41958 4.515460 0.0119647855 455.816 6.122089
## 1996 -0.0005291717 91.03108 4.511201 -0.0042587611 482.503 6.178987
## 1997 0.0244835467 91.81364 4.519761 0.0085599254 541.698 6.294709
## 1998 -0.0269636191 91.19735 4.513026 -0.0067349945 583.291 6.368686
## 1999 -0.0151457670 90.41270 4.504385 -0.0086411922 614.095 6.420150
## 2000 0.0711153656 93.09772 4.533650 0.0292650414 698.842 6.549425
## 2001 0.0062397333 93.68834 4.539974 0.0063239609 738.447 6.604549
## 2002 -0.0260542336 93.08109 4.533471 -0.0065026826 769.677 6.645971
## 2003 -0.0245465001 92.53942 4.527635 -0.0058363395 784.157 6.664609
## 2004 -0.0030667590 92.38954 4.526014 -0.0016208898 874.582 6.773746
## 2005 0.0276257236 93.33961 4.536245 0.0102307322 933.067 6.838477
## 2006 0.0275459505 94.31570 4.546648 0.0104031537 1047.766 6.954416
## 2007 0.0013892176 94.91499 4.552982 0.0063339389 1140.888 7.039562
## 2008 0.0273290527 95.89941 4.563300 0.0103182165 1163.033 7.058787
## 2009 -0.0689396799 93.51656 4.538139 -0.0251613266 996.946 6.904697
## 2010 0.0455802608 95.69917 4.561210 0.0230711621 1140.604 7.039313
## 2011 0.0520575387 98.19119 4.586917 0.0257068465 1235.998 7.119634
## 2012 0.0194556964 99.96097 4.604780 0.0178632970 1271.770 7.148165
## 2013 -0.0163331840 99.40304 4.599183 -0.0055971483 1284.546 7.158161
## 2014 -0.0149249335 99.20644 4.597203 -0.0019797138 1346.155 7.205008
## 2015 -0.0148102153 100.00000 4.605170 0.0079672363 1419.545 7.258092
## 2016 -0.0248059298 99.22943 4.597435 -0.0077355191 1453.614 7.281808
## 2017 0.0256666702 100.88225 4.613954 0.0165193045 1524.591 7.329481
## 2018 0.0182343699 101.83203 4.623325 0.0093707257 1557.241 7.350671
## X_dl M M_l M_dl rulc rulc_l
## 1993 -0.061151407 387.240 5.959045 -0.068891637 0.6010750 -0.5090356
## 1994 0.076204487 419.024 6.037928 0.078883542 0.5906495 -0.5265326
## 1995 0.063978218 448.189 6.105215 0.067286821 0.5907893 -0.5262959
## 1996 0.056897919 466.522 6.145305 0.040090160 0.5890438 -0.5292548
## 1997 0.115721512 509.495 6.233420 0.088114860 0.5814214 -0.5422794
## 1998 0.073977554 557.469 6.323407 0.089986857 0.5779440 -0.5482783
## 1999 0.051463435 606.871 6.408316 0.084909351 0.5815453 -0.5420664
## 2000 0.129275040 672.463 6.510947 0.102630843 0.5905571 -0.5266889
## 2001 0.055124653 678.058 6.519233 0.008285739 0.5829081 -0.5397258
## 2002 0.041421614 660.439 6.492905 -0.026328065 0.5801750 -0.5444254
## 2003 0.018638309 697.699 6.547788 0.054883012 0.5803792 -0.5440737
## 2004 0.109136803 752.339 6.623187 0.075399243 0.5706860 -0.5609160
## 2005 0.064730952 797.099 6.680979 0.057791867 0.5657947 -0.5695240
## 2006 0.115938548 885.903 6.786607 0.105628577 0.5522863 -0.5936888
## 2007 0.085146628 940.900 6.846837 0.060229400 0.5417765 -0.6129017
## 2008 0.019224341 962.685 6.869726 0.022889391 0.5511427 -0.5957615
## 2009 -0.154089921 869.356 6.767753 -0.101973548 0.5732934 -0.5563577
## 2010 0.134616620 981.255 6.888832 0.121079657 0.5635063 -0.5735767
## 2011 0.080320794 1053.037 6.959434 0.070601285 0.5594630 -0.5807779
## 2012 0.028530890 1054.108 6.960450 0.001016541 0.5695914 -0.5628360
## 2013 0.009995718 1082.321 6.986863 0.026412898 0.5700502 -0.5620309
## 2014 0.046847032 1124.937 7.025482 0.038619225 0.5671127 -0.5671972
## 2015 0.053084017 1190.410 7.082053 0.056570752 0.5674418 -0.5666170
## 2016 0.023716472 1242.074 7.124538 0.042484777 0.5675943 -0.5663484
## 2017 0.047673308 1306.475 7.175088 0.050550108 0.5693872 -0.5631945
## 2018 0.021189488 1353.615 7.210534 0.035446121 0.5749054 -0.5535497
## rulc_dl ulc ulc_l ulc_dl Tau Tau_l
## 1993 -0.0037108953 47.05650 3.851349 0.0344157216 89.02085 4.488871
## 1994 -0.0174969406 47.18615 3.854100 0.0027513898 90.20580 4.502094
## 1995 0.0002367225 48.13688 3.874049 0.0199483142 90.50950 4.505455
## 1996 -0.0029589364 48.27648 3.876944 0.0028957060 90.46379 4.504950
## 1997 -0.0130246344 47.78577 3.866728 -0.0102164471 91.37842 4.515009
## 1998 -0.0059988948 47.82459 3.867540 0.0008120318 91.82324 4.519865
## 1999 0.0062119090 48.28550 3.877131 0.0095912800 91.89869 4.520687
## 2000 0.0153775433 48.80200 3.887771 0.0106399121 92.61835 4.528487
## 2001 -0.0130368914 48.79071 3.887540 -0.0002312955 93.72832 4.540400
## 2002 -0.0046996573 49.23143 3.896532 0.0089923653 93.42165 4.537123
## 2003 0.0003517594 49.90620 3.910145 0.0136128931 93.04251 4.533056
## 2004 -0.0168423853 49.61288 3.904250 -0.0058947301 93.71806 4.540291
## 2005 -0.0086079137 49.39179 3.899784 -0.0044662049 94.21847 4.545616
## 2006 -0.0241648194 48.40496 3.879602 -0.0201820199 97.00463 4.574759
## 2007 -0.0192129625 48.32085 3.877863 -0.0017391147 98.48008 4.589854
## 2008 0.0171402623 49.60204 3.904032 0.0261688258 98.20749 4.587082
## 2009 0.0394038055 52.54775 3.961722 0.0576903028 92.42876 4.526438
## 2010 -0.0172190028 51.98442 3.950944 -0.0107782067 95.88932 4.563195
## 2011 -0.0072012166 52.16392 3.954391 0.0034470286 98.59086 4.590979
## 2012 0.0179418900 53.90248 3.987176 0.0327854182 98.03696 4.585345
## 2013 0.0008051127 55.00802 4.007479 0.0203026173 97.76457 4.582562
## 2014 -0.0051663393 55.74346 4.020760 0.0132809531 99.13339 4.596466
## 2015 0.0005802058 56.74418 4.038553 0.0177931278 100.00000 4.605170
## 2016 0.0002686188 57.42749 4.050523 0.0119699583 101.12504 4.616358
## 2017 0.0031538808 58.21225 4.064096 0.0135727134 102.40745 4.628959
## 2018 0.0096448271 59.66513 4.088748 0.0246519111 102.70404 4.631851
## Tau_dl dPxdPm dPdPm Trade
## 1993 -0.0122790754 0.01707447003 0.054335220 0.3502959
## 1994 0.0132230832 0.00798416512 0.021993293 0.3696699
## 1995 0.0033610932 0.01420266210 0.021949468 0.3887732
## 1996 -0.0005051033 -0.00372958936 0.006383814 0.4048111
## 1997 0.0100596575 -0.01592362131 -0.021675359 0.4405338
## 1998 0.0048560267 0.02022862455 0.033774546 0.4686082
## 1999 0.0008213685 0.00650457479 0.018525138 0.4922426
## 2000 0.0078005613 -0.04185032420 -0.075852997 0.5372972
## 2001 0.0119130299 0.00008422759 0.006565863 0.5457420
## 2002 -0.0032772282 0.01955155103 0.039746256 0.5520816
## 2003 -0.0040666907 0.01871016062 0.037807634 0.5761665
## 2004 0.0072344582 0.00144586916 0.014014414 0.6251313
## 2005 0.0053253870 -0.01739499146 -0.023484015 0.6600377
## 2006 0.0291424322 -0.01714279684 -0.023563151 0.7105665
## 2007 0.0150956133 0.00494472124 0.016084630 0.7428293
## 2008 -0.0027718841 -0.01701083618 -0.018300489 0.7512754
## 2009 -0.0606442363 0.04377835336 0.087226177 0.6994401
## 2010 0.0367563659 -0.02250909869 -0.039139465 0.7633174
## 2011 0.0277839630 -0.02635069220 -0.041409294 0.7923637
## 2012 -0.0056340154 -0.00159239941 -0.004612168 0.8017535
## 2013 -0.0027822364 0.01073603574 0.035830689 0.8124038
## 2014 0.0139040477 0.01294521968 0.033372226 0.8297111
## 2015 0.0087038539 0.02277745164 0.032023137 0.8613514
## 2016 0.0111876047 0.01707041066 0.036507269 0.8702390
## 2017 0.0126016331 -0.00914736575 -0.015247838 0.8919558
## 2018 0.0028919893 -0.00886364422 -0.003227286 0.9032971
adf.DEU.WS <- adf.test((DEU$WS), alternative = c("stationary"), k = 2)
adf.DEU.PS <- adf.test((DEU$PS), alternative = c("stationary"), k = 2)
adf.DEU.Y <- adf.test((DEU$Y), alternative = c("stationary"), k = 2)
adf.DEU.Yrw <- adf.test((DEU$Yrw), alternative = c("stationary"), k = 2)
adf.DEU.r <- adf.test((DEU$r), alternative = c("stationary"), k = 2)
adf.DEU.R <- adf.test((DEU$R), alternative = c("stationary"), k = 2)
adf.DEU.Tau <- adf.test((DEU$Tau), alternative = c("stationary"), k = 2)
adf.DEU.rulc <- adf.test((DEU$rulc), alternative = c("stationary"), k = 2)
adf.DEU.ulc <- adf.test((DEU$ulc), alternative = c("stationary"), k = 2)
adf.DEU.P <- adf.test((DEU$P), alternative = c("stationary"), k = 2)
adf.DEU.Pm <- adf.test((DEU$Pm), alternative = c("stationary"), k = 2)
adf.DEU.Px <- adf.test((DEU$Px), alternative = c("stationary"), k = 2)
adf.DEU.X <- adf.test((DEU$X), alternative = c("stationary"), k = 2)
adf.DEU.M <- adf.test((DEU$M), alternative = c("stationary"), k = 2)
adf.DEU.I <- adf.test((DEU$I), alternative = c("stationary"), k = 2)
adf.DEU.C <- adf.test((DEU$C), alternative = c("stationary"), k = 2)
adf.DEU.Ipr <- adf.test((DEU$Ipr), alternative = c("stationary"), k = 2)
adf.DEU.Ips <- adf.test((DEU$Ips), alternative = c("stationary"), k = 2)
adf.DEU.It <- adf.test((DEU$It), alternative = c("stationary"), k = 2)
adf.DEU.Itcurr <- adf.test((DEU$Itcurr), alternative = c("stationary"), k = 2)
adf.DEU.Yf <- adf.test((DEU$Yf), alternative = c("stationary"), k = 2)
adf.DEU.W <- adf.test((DEU$W), alternative = c("stationary"), k = 2)
adf.DEU.WS.pval <- adf.DEU.WS$p.value
adf.DEU.PS.pval <- adf.DEU.PS$p.value
adf.DEU.Y.pval <- adf.DEU.Y$p.value
adf.DEU.Yrw.pval <- adf.DEU.Yrw$p.value
adf.DEU.r.pval <- adf.DEU.r$p.value
adf.DEU.R.pval <- adf.DEU.R$p.value
adf.DEU.Tau.pval <- adf.DEU.Tau$p.value
adf.DEU.rulc.pval <- adf.DEU.rulc$p.value
adf.DEU.ulc.pval <- adf.DEU.ulc$p.value
adf.DEU.P.pval <- adf.DEU.P$p.value
adf.DEU.Pm.pval <- adf.DEU.Pm$p.value
adf.DEU.Px.pval <- adf.DEU.Px$p.value
adf.DEU.X.pval <- adf.DEU.X$p.value
adf.DEU.M.pval <- adf.DEU.M$p.value
adf.DEU.I.pval <- adf.DEU.I$p.value
adf.DEU.C.pval <- adf.DEU.C$p.value
adf.DEU.Ipr.pval <- adf.DEU.Ipr$p.value
adf.DEU.Ips.pval <- adf.DEU.Ips$p.value
adf.DEU.It.pval <- adf.DEU.It$p.value
adf.DEU.Itcurr.pval <- adf.DEU.Itcurr$p.value
adf.DEU.Yf.pval <- adf.DEU.Yf$p.value
adf.DEU.W.pval <- adf.DEU.W$p.value
adf.DEU_non <- rbind(adf.DEU.WS.pval,adf.DEU.PS.pval,adf.DEU.Y.pval,adf.DEU.Yrw.pval,adf.DEU.r.pval,adf.DEU.R.pval,adf.DEU.Tau.pval,adf.DEU.rulc.pval,adf.DEU.ulc.pval,adf.DEU.P.pval,adf.DEU.Pm.pval,adf.DEU.Px.pval,adf.DEU.X.pval,adf.DEU.M.pval,adf.DEU.I.pval,adf.DEU.C.pval,adf.DEU.Ipr.pval,adf.DEU.Ips.pval,adf.DEU.It.pval,adf.DEU.Itcurr.pval,adf.DEU.Yf.pval,adf.DEU.W.pval)
colnames(adf.DEU_non) <- c("DEU")
rownames(adf.DEU_non) <- c("WS","PS","Y","Yrw","r","R","Tau","rulc","ulc","P","Pm","Px","X","M","I","C","Ipr","Ips","It","Itcurr","Yf","W")
adf.DEU_non
## DEU
## WS 0.86004899
## PS 0.86004899
## Y 0.59119652
## Yrw 0.62089914
## r 0.15288052
## R 0.50575957
## Tau 0.16361264
## rulc 0.89259978
## ulc 0.97908107
## P 0.91190501
## Pm 0.09626546
## Px 0.43832145
## X 0.08623035
## M 0.26789207
## I 0.77607299
## C 0.79563835
## Ipr 0.99000000
## Ips 0.29185817
## It 0.84047659
## Itcurr 0.99000000
## Yf 0.45192503
## W 0.95953492
adf.DEU.WS_dl <- adf.test((DEU$WS_dl), alternative = c("stationary"), k = 2)
adf.DEU.PS_dl <- adf.test((DEU$PS_dl), alternative = c("stationary"), k = 2)
adf.DEU.Y_dl <- adf.test((DEU$Y_dl), alternative = c("stationary"), k = 2)
adf.DEU.Yrw_dl <- adf.test((DEU$Yrw_dl), alternative = c("stationary"), k = 2)
adf.DEU.r_dl <- adf.test((DEU$r_dl), alternative = c("stationary"), k = 2)
adf.DEU.R_dl <- adf.test((DEU$R_dl), alternative = c("stationary"), k = 2)
adf.DEU.Tau_dl <- adf.test((DEU$Tau_dl), alternative = c("stationary"), k = 2)
adf.DEU.rulc_dl <- adf.test((DEU$rulc_dl), alternative = c("stationary"), k = 2)
adf.DEU.ulc_dl <- adf.test((DEU$ulc_dl), alternative = c("stationary"), k = 2)
adf.DEU.P_dl <- adf.test((DEU$P_dl), alternative = c("stationary"), k = 2)
adf.DEU.Pm_dl <- adf.test((DEU$Pm_dl), alternative = c("stationary"), k = 2)
adf.DEU.Px_dl <- adf.test((DEU$Px_dl), alternative = c("stationary"), k = 2)
adf.DEU.X_dl <- adf.test((DEU$X_dl), alternative = c("stationary"), k = 2)
adf.DEU.M_dl <- adf.test((DEU$M_dl), alternative = c("stationary"), k = 2)
adf.DEU.I_dl <- adf.test((DEU$I_dl), alternative = c("stationary"), k = 2)
adf.DEU.C_dl <- adf.test((DEU$C_dl), alternative = c("stationary"), k = 2)
adf.DEU.Ipr_dl <- adf.test((DEU$Ipr_dl), alternative = c("stationary"), k = 2)
adf.DEU.Ips_dl <- adf.test((DEU$Ips_dl), alternative = c("stationary"), k = 2)
adf.DEU.It_dl <- adf.test((DEU$It_dl), alternative = c("stationary"), k = 2)
adf.DEU.Itcurr_dl <- adf.test((DEU$Itcurr_dl), alternative = c("stationary"), k = 2)
adf.DEU.Yf_dl <- adf.test((DEU$Yf_dl), alternative = c("stationary"), k = 2)
adf.DEU.W_dl <- adf.test((DEU$W_dl), alternative = c("stationary"), k = 2)
adf.DEU.WS_dl.pval <- adf.DEU.WS_dl$p.value
adf.DEU.PS_dl.pval <- adf.DEU.PS_dl$p.value
adf.DEU.Y_dl.pval <- adf.DEU.Y_dl$p.value
adf.DEU.Yrw_dl.pval <- adf.DEU.Yrw_dl$p.value
adf.DEU.r_dl.pval <- adf.DEU.r_dl$p.value
adf.DEU.R_dl.pval <- adf.DEU.R_dl$p.value
adf.DEU.Tau_dl.pval <- adf.DEU.Tau_dl$p.value
adf.DEU.rulc_dl.pval <- adf.DEU.rulc_dl$p.value
adf.DEU.ulc_dl.pval <- adf.DEU.ulc_dl$p.value
adf.DEU.P_dl.pval <- adf.DEU.P_dl$p.value
adf.DEU.Pm_dl.pval <- adf.DEU.Pm_dl$p.value
adf.DEU.Px_dl.pval <- adf.DEU.Px_dl$p.value
adf.DEU.X_dl.pval <- adf.DEU.X_dl$p.value
adf.DEU.M_dl.pval <- adf.DEU.M_dl$p.value
adf.DEU.I_dl.pval <- adf.DEU.I_dl$p.value
adf.DEU.C_dl.pval <- adf.DEU.C_dl$p.value
adf.DEU.Ipr_dl.pval <- adf.DEU.Ipr_dl$p.value
adf.DEU.Ips_dl.pval <- adf.DEU.Ips_dl$p.value
adf.DEU.It_dl.pval <- adf.DEU.It_dl$p.value
adf.DEU.Itcurr_dl.pval <- adf.DEU.Itcurr_dl$p.value
adf.DEU.Yf_dl.pval <- adf.DEU.Yf_dl$p.value
adf.DEU.W_dl.pval <- adf.DEU.W_dl$p.value
adf.DEU_dl <- rbind(adf.DEU.WS_dl.pval,adf.DEU.PS_dl.pval,adf.DEU.Y_dl.pval,adf.DEU.Yrw_dl.pval,adf.DEU.r_dl.pval,adf.DEU.R_dl.pval,adf.DEU.Tau_dl.pval,adf.DEU.rulc_dl.pval,adf.DEU.ulc_dl.pval,adf.DEU.P_dl.pval,adf.DEU.Pm_dl.pval,adf.DEU.Px_dl.pval,adf.DEU.X_dl.pval,adf.DEU.M_dl.pval,adf.DEU.I_dl.pval,adf.DEU.C_dl.pval,adf.DEU.Ipr_dl.pval,adf.DEU.Ips_dl.pval,adf.DEU.It_dl.pval,adf.DEU.Itcurr_dl.pval,adf.DEU.Yf_dl.pval,adf.DEU.W_dl.pval)
colnames(adf.DEU_dl) <- c("DEU")
rownames(adf.DEU_dl) <- c("dlog(WS)","dlog(PS)","dlog(Y)","dlog(Yrw)","dlog(r)","dlog(R)","dlog(Tau)","dlog(rulc)","dlog(ulc)","dlog(P)","dlog(Pm)","dlog(Px)","dlog(X)","dlog(M)","dlog(I)","dlog(C)","dlog(Ipr)","dlog(Ips)","dlog(It)","dlog(Itcurr)","dlog(Yf)","dlog(W)")
adf.DEU_dl
## DEU
## dlog(WS) 0.22110748
## dlog(PS) 0.21171932
## dlog(Y) 0.01613985
## dlog(Yrw) 0.18899723
## dlog(r) 0.38297983
## dlog(R) 0.02636520
## dlog(Tau) 0.01000000
## dlog(rulc) 0.30287079
## dlog(ulc) 0.04039743
## dlog(P) 0.01000000
## dlog(Pm) 0.01725213
## dlog(Px) 0.01005472
## dlog(X) 0.01804490
## dlog(M) 0.04808087
## dlog(I) 0.04299713
## dlog(C) 0.27225115
## dlog(Ipr) 0.08894074
## dlog(Ips) 0.32749349
## dlog(It) 0.03505028
## dlog(Itcurr) 0.08052713
## dlog(Yf) 0.01236768
## dlog(W) 0.21978930
adf.DEU <- NULL
adf.DEU <- rbind(adf.DEU_non,adf.DEU_dl)
#Consumption (C)
DEU_consumption <- dynlm(DEU$C_dl~DEU$R_dl+DEU$W_dl)
DEU_CR <- summary(DEU_consumption)$coefficients["DEU$R_dl","Estimate"]
DEU_CR <- 0
DEU_CW <- summary(DEU_consumption)$coefficients["DEU$W_dl","Estimate"]
DEU_Ceffekt <- (DEU_CR*mean(DEU$C/DEU$R))-(DEU_CW*mean(DEU$C/DEU$W))
summary(DEU_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$C_dl ~ DEU$R_dl + DEU$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.017456 -0.002183 0.001133 0.003859 0.011117
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.005785 0.001747 3.311 0.00305 **
## DEU$R_dl 0.006351 0.034649 0.183 0.85616
## DEU$W_dl 0.353144 0.097550 3.620 0.00144 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.006948 on 23 degrees of freedom
## Multiple R-squared: 0.3967, Adjusted R-squared: 0.3442
## F-statistic: 7.561 on 2 and 23 DF, p-value: 0.002995
#Investments (I)
DEU_investment <- dynlm(DEU$I_dl~DEU$PS_dl+DEU$Y_l)
DEU_iPS <- summary(DEU_investment)$coefficients["DEU$PS_dl","Estimate"]
DEU_iPS <- 0
DEU_Ieffekt <- DEU_iPS*mean(DEU$I/DEU$R)
summary(DEU_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$I_dl ~ DEU$PS_dl + DEU$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.080739 -0.013879 0.003975 0.018308 0.059330
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.11594 0.55219 -2.021 0.05508 .
## DEU$PS_dl 0.97991 0.28654 3.420 0.00234 **
## DEU$Y_l 0.14268 0.06994 2.040 0.05300 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03548 on 23 degrees of freedom
## Multiple R-squared: 0.3733, Adjusted R-squared: 0.3188
## F-statistic: 6.849 on 2 and 23 DF, p-value: 0.004639
#Price deflator (P)
DEU_deflator <- dynlm(DEU$P_dl~L(DEU$ulc_dl)+DEU$Pm_dl)
DEU_ePULC <- summary(DEU_deflator)$coefficients["L(DEU$ulc_dl)","Estimate"]
summary(DEU_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$P_dl ~ L(DEU$ulc_dl) + DEU$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0107634 -0.0035730 -0.0002309 0.0032898 0.0193942
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.010634 0.001692 6.284 0.00000206 ***
## L(DEU$ulc_dl) 0.191310 0.091804 2.084 0.0485 *
## DEU$Pm_dl -0.093423 0.050778 -1.840 0.0787 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.006756 on 23 degrees of freedom
## Multiple R-squared: 0.3821, Adjusted R-squared: 0.3284
## F-statistic: 7.112 on 2 and 23 DF, p-value: 0.003938
#Export price deflator (Px)
DEU_exportdeflator <- dynlm(DEU$Px_dl~DEU$ulc_dl+DEU$Pm_dl)
DEU_ePX <- summary(DEU_exportdeflator)$coefficients["DEU$ulc_dl","Estimate"]
DEU_ePX <- 0
summary(DEU_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$Px_dl ~ DEU$ulc_dl + DEU$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0068596 -0.0030547 0.0003621 0.0022479 0.0098626
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.002564 0.001094 2.344 0.0281 *
## DEU$ulc_dl 0.086882 0.059349 1.464 0.1567
## DEU$Pm_dl 0.405470 0.032827 12.352 0.0000000000124 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.004368 on 23 degrees of freedom
## Multiple R-squared: 0.8837, Adjusted R-squared: 0.8736
## F-statistic: 87.41 on 2 and 23 DF, p-value: 0.00000000001789
#Exports (X)
DEU_exports <- dynlm(DEU$X_dl~L(DEU$dPxdPm)+DEU$Yrw_dl)
DEU_eXP <- summary(DEU_exports)$coefficients["L(DEU$dPxdPm)","Estimate"]
DEU_Xeffekt <- -(DEU_eXP*DEU_ePX*(1/(1-DEU_ePULC))*mean(DEU$Yf/DEU$Y)*(mean(DEU$X/DEU$Y)/mean(DEU$rulc)))
summary(DEU_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$X_dl ~ L(DEU$dPxdPm) + DEU$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.05381 -0.01432 0.00210 0.01311 0.03721
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.014232 0.008728 -1.631 0.1166
## L(DEU$dPxdPm) -0.602713 0.286547 -2.103 0.0466 *
## DEU$Yrw_dl 3.357465 0.377336 8.898 0.0000000066 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02197 on 23 degrees of freedom
## Multiple R-squared: 0.8755, Adjusted R-squared: 0.8647
## F-statistic: 80.87 on 2 and 23 DF, p-value: 0.00000000003932
#Imports (M)
DEU_imports <- dynlm(DEU$M_dl~DEU$dPdPm+DEU$Y_dl)
DEU_eMP <- summary(DEU_imports)$coefficients["DEU$dPdPm","Estimate"]
DEU_eMP <- 0
DEU_Meffekt <- -(DEU_eMP*DEU_ePULC*(1/(1-DEU_ePULC))*mean(DEU$Yf/DEU$Y)*(mean(DEU$M/DEU$Y)/mean(DEU$rulc)))
summary(DEU_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$M_dl ~ DEU$dPdPm + DEU$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.059453 -0.019706 0.006085 0.017786 0.055710
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.020866 0.009093 2.295 0.0312 *
## DEU$dPdPm -0.207281 0.227779 -0.910 0.3723
## DEU$Y_dl 1.934922 0.405943 4.766 0.0000833 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02914 on 23 degrees of freedom
## Multiple R-squared: 0.7044, Adjusted R-squared: 0.6787
## F-statistic: 27.4 on 2 and 23 DF, p-value: 0.00000082
names(DEU_consumption$coefficients) <- sub("DEU$","",names(DEU_consumption$coefficients),fixed=TRUE)
names(DEU_investment$coefficients) <- sub("DEU$","",names(DEU_investment$coefficients),fixed=TRUE)
names(DEU_deflator$coefficients) <- sub("DEU$","",names(DEU_deflator$coefficients),fixed=TRUE)
names(DEU_exportdeflator$coefficients) <- sub("DEU$","",names(DEU_exportdeflator$coefficients),fixed=TRUE)
names(DEU_exports$coefficients) <- sub("DEU$","",names(DEU_exports$coefficients),fixed=TRUE)
names(DEU_imports$coefficients) <- sub("DEU$","",names(DEU_imports$coefficients),fixed=TRUE)
DEU_Xeffekt
## [1] 0
DEU_Meffekt
## [1] 0
#Nettoeksport (NX)
DEU_NXeffekt <- DEU_Xeffekt - DEU_Meffekt
DEU_NXeffekt
## [1] 0
#Nettoeffekten
DEU_Neteffekt = DEU_Ceffekt + DEU_Ieffekt + DEU_NXeffekt
DEU_Neteffekt
## [1] -0.3391751
DEU_Lukket <- DEU_Ceffekt + DEU_Ieffekt
DEU_Lukket_Konklusion <- ifelse(DEU_Lukket > 0, "Profit-led domestic", "Wage-led domestic")
DEU_Lukket_Konklusion
## [1] "Wage-led domestic"
DEU_Def <- ifelse(DEU_Neteffekt > 0, "Profit-led", "Wage-led")
DEU_Def
## [1] "Wage-led"
summary(ur.df(y=DEU_consumption$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -2.8420 NA NA NA
## z.diff.lag1 1.7193 NA NA NA
## z.diff.lag2 1.0481 NA NA NA
## z.diff.lag3 1.8394 NA NA NA
## z.diff.lag4 1.8386 NA NA NA
## z.diff.lag5 1.7780 NA NA NA
## z.diff.lag6 1.6775 NA NA NA
## z.diff.lag7 2.2211 NA NA NA
## z.diff.lag8 2.1873 NA NA NA
## z.diff.lag9 1.2132 NA NA NA
## z.diff.lag10 1.2046 NA NA NA
## z.diff.lag11 1.1508 NA NA NA
## z.diff.lag12 0.6576 NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared: 1, Adjusted R-squared: NaN
## F-statistic: NaN on 13 and 0 DF, p-value: NA
##
##
## Value of test-statistic is: NaN
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DEU_investment$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -0.2508 NA NA NA
## z.diff.lag1 -0.2319 NA NA NA
## z.diff.lag2 0.9238 NA NA NA
## z.diff.lag3 0.5585 NA NA NA
## z.diff.lag4 0.2566 NA NA NA
## z.diff.lag5 0.5581 NA NA NA
## z.diff.lag6 0.2641 NA NA NA
## z.diff.lag7 0.1781 NA NA NA
## z.diff.lag8 0.7104 NA NA NA
## z.diff.lag9 0.3543 NA NA NA
## z.diff.lag10 -0.4948 NA NA NA
## z.diff.lag11 0.3951 NA NA NA
## z.diff.lag12 0.8092 NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared: 1, Adjusted R-squared: NaN
## F-statistic: NaN on 13 and 0 DF, p-value: NA
##
##
## Value of test-statistic is: NaN
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DEU_exports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 0.6099 NA NA NA
## z.diff.lag1 -1.1062 NA NA NA
## z.diff.lag2 -0.9819 NA NA NA
## z.diff.lag3 -1.6845 NA NA NA
## z.diff.lag4 -1.5306 NA NA NA
## z.diff.lag5 -1.1819 NA NA NA
## z.diff.lag6 -1.6295 NA NA NA
## z.diff.lag7 -2.4738 NA NA NA
## z.diff.lag8 -2.1386 NA NA NA
## z.diff.lag9 -1.9101 NA NA NA
## z.diff.lag10 -1.5539 NA NA NA
## z.diff.lag11 -0.8103 NA NA NA
## z.diff.lag12 -0.4501 NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared: 1, Adjusted R-squared: NaN
## F-statistic: NaN on 13 and 0 DF, p-value: NA
##
##
## Value of test-statistic is: NaN
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
summary(ur.df(y=DEU_imports$residuals, type="none", lags=12, selectlags = "Fixed"))
##
## ###############################################
## # Augmented Dickey-Fuller Test Unit Root Test #
## ###############################################
##
## Test regression none
##
##
## Call:
## lm(formula = z.diff ~ z.lag.1 - 1 + z.diff.lag)
##
## Residuals:
## ALL 13 residuals are 0: no residual degrees of freedom!
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## z.lag.1 -1.6051 NA NA NA
## z.diff.lag1 0.6201 NA NA NA
## z.diff.lag2 0.6269 NA NA NA
## z.diff.lag3 0.8004 NA NA NA
## z.diff.lag4 0.8292 NA NA NA
## z.diff.lag5 0.8985 NA NA NA
## z.diff.lag6 0.9448 NA NA NA
## z.diff.lag7 1.0200 NA NA NA
## z.diff.lag8 0.7198 NA NA NA
## z.diff.lag9 0.3970 NA NA NA
## z.diff.lag10 0.6986 NA NA NA
## z.diff.lag11 0.2426 NA NA NA
## z.diff.lag12 0.4112 NA NA NA
##
## Residual standard error: NaN on 0 degrees of freedom
## Multiple R-squared: 1, Adjusted R-squared: NaN
## F-statistic: NaN on 13 and 0 DF, p-value: NA
##
##
## Value of test-statistic is: NaN
##
## Critical values for test statistics:
## 1pct 5pct 10pct
## tau1 -2.62 -1.95 -1.61
plot(DEU_consumption)
plot(DEU_investment)
plot(DEU_deflator)
plot(DEU_exportdeflator)
plot(DEU_exports)
plot(DEU_imports)
bptest(DEU_consumption)
##
## studentized Breusch-Pagan test
##
## data: DEU_consumption
## BP = 0.025729, df = 2, p-value = 0.9872
bptest(DEU_investment)
##
## studentized Breusch-Pagan test
##
## data: DEU_investment
## BP = 2.2964, df = 2, p-value = 0.3172
bptest(DEU_deflator)
##
## studentized Breusch-Pagan test
##
## data: DEU_deflator
## BP = 3.4635, df = 2, p-value = 0.177
bptest(DEU_exportdeflator)
##
## studentized Breusch-Pagan test
##
## data: DEU_exportdeflator
## BP = 1.5306, df = 2, p-value = 0.4652
bptest(DEU_exports)
##
## studentized Breusch-Pagan test
##
## data: DEU_exports
## BP = 0.39097, df = 2, p-value = 0.8224
bptest(DEU_imports)
##
## studentized Breusch-Pagan test
##
## data: DEU_imports
## BP = 2.2136, df = 2, p-value = 0.3306
resettest(DEU_consumption)
##
## RESET test
##
## data: DEU_consumption
## RESET = 0.70079, df1 = 2, df2 = 21, p-value = 0.5074
resettest(DEU_investment)
##
## RESET test
##
## data: DEU_investment
## RESET = 3.8753, df1 = 2, df2 = 21, p-value = 0.03694
resettest(DEU_deflator)
##
## RESET test
##
## data: DEU_deflator
## RESET = 2.1836, df1 = 2, df2 = 21, p-value = 0.1375
resettest(DEU_exportdeflator)
##
## RESET test
##
## data: DEU_exportdeflator
## RESET = 1.0282, df1 = 2, df2 = 21, p-value = 0.375
resettest(DEU_exports)
##
## RESET test
##
## data: DEU_exports
## RESET = 0.81423, df1 = 2, df2 = 21, p-value = 0.4565
resettest(DEU_imports)
##
## RESET test
##
## data: DEU_imports
## RESET = 0.38484, df1 = 2, df2 = 21, p-value = 0.6853
DEU_regtab <- matrix(c(DEU_Ceffekt, DEU_Ieffekt, DEU_Lukket, DEU_Xeffekt, DEU_Meffekt, DEU_NXeffekt, DEU_Neteffekt,DEU_Lukket_Konklusion, DEU_Def),ncol=9,byrow=TRUE)
colnames(DEU_regtab) <- c("consumption", "investment", "Lukket neteffekt","exports", "imports", "netexports", "neteffect","Lukket konklusion","Konklusion")
rownames(DEU_regtab) <- c("DEU")
DEU_regtab <- as.table(DEU_regtab)
DEU_regtab
## consumption investment Lukket neteffekt exports imports
## DEU -0.339175051515256 0 -0.339175051515256 0 0
## netexports neteffect Lukket konklusion Konklusion
## DEU 0 -0.339175051515256 Wage-led domestic Wage-led
DEU_smoke <- matrix(c(mean(DEU$C/DEU$R), mean(DEU$C/DEU$W), mean(DEU$I/DEU$R), DEU_CR, DEU_CW, DEU_iPS, DEU_ePULC, (1/(1-DEU_ePULC)), DEU_eXP, DEU_ePX, DEU_eMP, mean(DEU$Yf/DEU$Y), mean(DEU$X/DEU$Y), mean(DEU$rulc), (mean(DEU$X/DEU$Y)/mean(DEU$rulc))),ncol=15,byrow=TRUE)
colnames(DEU_smoke) <- c("C/R", "C/W", "I/R", "CR", "CW", "iPS", "ePULC", "1/1-epulc", "eXP", "ePX", "eMP", "Yf/Y", "X/Y", "RULC", "(X/Y)/rulc")
rownames(DEU_smoke) <- c("DEU")
DEU_smoke <- as.table(DEU_smoke)
DEU_smoke
## C/R C/W I/R CR CW iPS
## DEU 1.6729150 0.9604451 0.5553943 0.0000000 0.3531436 0.0000000
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## DEU 0.1913100 1.2365679 -0.6027131 0.0000000 0.0000000 0.9031965
## X/Y RULC (X/Y)/rulc
## DEU 0.3453776 0.5734815 0.6022470
summary(DEU_consumption)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$C_dl ~ DEU$R_dl + DEU$W_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.017456 -0.002183 0.001133 0.003859 0.011117
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.005785 0.001747 3.311 0.00305 **
## R_dl 0.006351 0.034649 0.183 0.85616
## W_dl 0.353144 0.097550 3.620 0.00144 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.006948 on 23 degrees of freedom
## Multiple R-squared: 0.3967, Adjusted R-squared: 0.3442
## F-statistic: 7.561 on 2 and 23 DF, p-value: 0.002995
summary(DEU_investment)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$I_dl ~ DEU$PS_dl + DEU$Y_l)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.080739 -0.013879 0.003975 0.018308 0.059330
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -1.11594 0.55219 -2.021 0.05508 .
## PS_dl 0.97991 0.28654 3.420 0.00234 **
## Y_l 0.14268 0.06994 2.040 0.05300 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.03548 on 23 degrees of freedom
## Multiple R-squared: 0.3733, Adjusted R-squared: 0.3188
## F-statistic: 6.849 on 2 and 23 DF, p-value: 0.004639
summary(DEU_deflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$P_dl ~ L(DEU$ulc_dl) + DEU$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0107634 -0.0035730 -0.0002309 0.0032898 0.0193942
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.010634 0.001692 6.284 0.00000206 ***
## L(ulc_dl) 0.191310 0.091804 2.084 0.0485 *
## Pm_dl -0.093423 0.050778 -1.840 0.0787 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.006756 on 23 degrees of freedom
## Multiple R-squared: 0.3821, Adjusted R-squared: 0.3284
## F-statistic: 7.112 on 2 and 23 DF, p-value: 0.003938
summary(DEU_exportdeflator)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$Px_dl ~ DEU$ulc_dl + DEU$Pm_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.0068596 -0.0030547 0.0003621 0.0022479 0.0098626
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.002564 0.001094 2.344 0.0281 *
## ulc_dl 0.086882 0.059349 1.464 0.1567
## Pm_dl 0.405470 0.032827 12.352 0.0000000000124 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.004368 on 23 degrees of freedom
## Multiple R-squared: 0.8837, Adjusted R-squared: 0.8736
## F-statistic: 87.41 on 2 and 23 DF, p-value: 0.00000000001789
summary(DEU_exports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$X_dl ~ L(DEU$dPxdPm) + DEU$Yrw_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.05381 -0.01432 0.00210 0.01311 0.03721
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.014232 0.008728 -1.631 0.1166
## L(dPxdPm) -0.602713 0.286547 -2.103 0.0466 *
## Yrw_dl 3.357465 0.377336 8.898 0.0000000066 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02197 on 23 degrees of freedom
## Multiple R-squared: 0.8755, Adjusted R-squared: 0.8647
## F-statistic: 80.87 on 2 and 23 DF, p-value: 0.00000000003932
summary(DEU_imports)
##
## Time series regression with "numeric" data:
## Start = 1, End = 26
##
## Call:
## dynlm(formula = DEU$M_dl ~ DEU$dPdPm + DEU$Y_dl)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.059453 -0.019706 0.006085 0.017786 0.055710
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 0.020866 0.009093 2.295 0.0312 *
## dPdPm -0.207281 0.227779 -0.910 0.3723
## Y_dl 1.934922 0.405943 4.766 0.0000833 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.02914 on 23 degrees of freedom
## Multiple R-squared: 0.7044, Adjusted R-squared: 0.6787
## F-statistic: 27.4 on 2 and 23 DF, p-value: 0.00000082
AUT_Trade <- AUT$Trade %>% mean()
BEL_Trade <- BEL$Trade %>% mean()
DNK_Trade <- DNK$Trade %>% mean()
FIN_Trade <- FIN$Trade %>% mean()
FRA_Trade <- FRA$Trade %>% mean()
GRC_Trade <- GRC$Trade %>% mean()
IRL_Trade <- IRL$Trade %>% mean()
ITA_Trade <- ITA$Trade %>% mean()
LUX_Trade <- LUX$Trade %>% mean()
NLD_Trade <- NLD$Trade %>% mean()
PRT_Trade <- PRT$Trade %>% mean()
ESP_Trade <- ESP$Trade %>% mean()
SWE_Trade <- SWE$Trade %>% mean()
GBR_Trade <- GBR$Trade %>% mean()
USA_Trade <- USA$Trade %>% mean()
DEU_Trade <- DEU$Trade %>% mean()
tradereg <- rbind(AUT_Trade,BEL_Trade,DNK_Trade,FIN_Trade,FRA_Trade,GRC_Trade,IRL_Trade,ITA_Trade,LUX_Trade,NLD_Trade,PRT_Trade,ESP_Trade,SWE_Trade,GBR_Trade,USA_Trade,DEU_Trade)
tradetotal <- cbind(Lande,tradereg)
tradetotal <- as.data.frame(tradetotal)
colnames(tradetotal) <- c("lande","meantrade")
tradetotal2 <- tradetotal[order(tradetotal$meantrade),]
tradetotal2 %>% head(16)
## lande meantrade
## USA_Trade USA 0.160309515316253
## FRA_Trade FRA 0.355156077520868
## ITA_Trade ITA 0.390994908995643
## GBR_Trade GBR 0.398810550447995
## ESP_Trade ESP 0.443170969223464
## FIN_Trade FIN 0.461944783048263
## GRC_Trade GRC 0.507123102324045
## PRT_Trade PRT 0.555723033113101
## SWE_Trade SWE 0.585438313975627
## AUT_Trade AUT 0.646891269856967
## DEU_Trade DEU 0.64776519696279
## DNK_Trade DNK 0.670594855088332
## NLD_Trade NLD 0.944666853509354
## BEL_Trade BEL 1.10885057961
## IRL_Trade IRL 1.17031474100036
## LUX_Trade LUX 2.96500473904317
write.csv(tradetotal2,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/tradetotal2.csv", row.names = FALSE)
Her ses en samling over alle vores resultat-tabeller
regtabtotal <- rbind(AUT_regtab,BEL_regtab,DNK_regtab,FIN_regtab,FRA_regtab,GRC_regtab,IRL_regtab,ITA_regtab,LUX_regtab,NLD_regtab,PRT_regtab,ESP_regtab,SWE_regtab,GBR_regtab,USA_regtab,DEU_regtab)
regtabtotal
## consumption investment Lukket neteffekt
## AUT "-0.307975667166831" "0.358728098156485" "0.0507524309896539"
## BEL "-0.164150578239597" "0.366380487752166" "0.202229909512569"
## DNK "-0.164202968964362" "0.51494110594295" "0.350738136978588"
## FIN "-0.212002599652354" "0.0628502571301414" "-0.149152342522213"
## FRA "-0.253128693895561" "0.166737862622821" "-0.0863908312727399"
## GRC "-0.466609515873891" "0" "-0.466609515873891"
## IRL "-0.30621615726918" "0.381316630290997" "0.0751004730218173"
## ITA "-0.307364904852754" "0.405997101186717" "0.0986321963339636"
## LUX "-0.0332165846869567" "0.415157606845512" "0.381941022158556"
## NLD "-0.328292807643207" "0.206276261116581" "-0.122016546526626"
## PRT "-0.251598745040635" "0" "-0.251598745040635"
## ESP "-0.291119919577315" "0" "-0.291119919577315"
## SWE "-0.292965118668464" "-0.331418305062981" "-0.624383423731445"
## GBR "-0.280552719300364" "0.158193849731167" "-0.122358869569198"
## USA "-0.097647639083685" "0" "-0.097647639083685"
## DEU "-0.339175051515256" "0" "-0.339175051515256"
## exports imports netexports
## AUT "0.284560572664439" "0.443770696791004" "-0.159210124126565"
## BEL "0" "0" "0"
## DNK "-0.0182209156862252" "0" "-0.0182209156862252"
## FIN "0.0793218499803654" "0" "0.0793218499803654"
## FRA "0.290398542502207" "0" "0.290398542502207"
## GRC "0.187152498813869" "0.478291615604291" "-0.291139116790422"
## IRL "0" "-0.227602497215577" "0.227602497215577"
## ITA "0.303108219521421" "-0.38189092697295" "0.684999146494371"
## LUX "0" "0" "0"
## NLD "0" "0" "0"
## PRT "0" "-0.357798545960897" "0.357798545960897"
## ESP "0.427343778194796" "-0.500882998472134" "0.92822677666693"
## SWE "0.109135915707448" "0" "0.109135915707448"
## GBR "0.199212536911048" "0" "0.199212536911048"
## USA "0.0684110478031558" "0" "0.0684110478031558"
## DEU "0" "0" "0"
## neteffect Lukket konklusion Konklusion
## AUT "-0.108457693136911" "Profit-led domestic" "Wage-led"
## BEL "0.202229909512569" "Profit-led domestic" "Profit-led"
## DNK "0.332517221292363" "Profit-led domestic" "Profit-led"
## FIN "-0.0698304925418476" "Wage-led domestic" "Wage-led"
## FRA "0.204007711229467" "Wage-led domestic" "Profit-led"
## GRC "-0.757748632664313" "Wage-led domestic" "Wage-led"
## IRL "0.302702970237394" "Profit-led domestic" "Profit-led"
## ITA "0.783631342828335" "Profit-led domestic" "Profit-led"
## LUX "0.381941022158556" "Profit-led domestic" "Profit-led"
## NLD "-0.122016546526626" "Wage-led domestic" "Wage-led"
## PRT "0.106199800920262" "Wage-led domestic" "Profit-led"
## ESP "0.637106857089615" "Wage-led domestic" "Profit-led"
## SWE "-0.515247508023996" "Wage-led domestic" "Wage-led"
## GBR "0.0768536673418502" "Wage-led domestic" "Profit-led"
## USA "-0.0292365912805291" "Wage-led domestic" "Wage-led"
## DEU "-0.339175051515256" "Wage-led domestic" "Wage-led"
smoketotal <- rbind(AUT_smoke,BEL_smoke,DNK_smoke,FIN_smoke,FRA_smoke,GRC_smoke,IRL_smoke,ITA_smoke,LUX_smoke,NLD_smoke,PRT_smoke,ESP_smoke,SWE_smoke,GBR_smoke,USA_smoke,DEU_smoke)
smoketotal
## C/R C/W I/R CR CW iPS
## AUT 1.9261097 0.9184808 0.7100548 0.1419816 0.6330538 0.50521182
## BEL 1.8771665 0.8552613 0.6643603 0.1396306 0.4983981 0.55147864
## DNK 1.6483727 0.8331795 0.5125213 0.2574956 0.7065125 1.00472140
## FIN 1.7721851 0.8473726 0.6968785 0.1856743 0.6385052 0.09018825
## FRA 1.9681887 0.8626101 0.6693664 0.1536958 0.6441277 0.24909806
## GRC 1.8026390 1.3569940 0.3634173 0.2322642 0.6523965 0.00000000
## IRL 1.4196922 0.8717130 0.5365411 0.1662901 0.6221049 0.71069415
## ITA 1.7474412 1.0298775 0.5286747 0.1914205 0.6232401 0.76795257
## LUX 0.8709657 0.6300752 0.3671491 0.1181951 0.2161019 1.13076015
## NLD 1.7450832 0.8046459 0.5586767 0.1925828 0.8256623 0.36922297
## PRT 2.0352530 1.1131361 0.5422046 0.2772657 0.7329783 0.00000000
## ESP 1.9002515 1.0408302 0.5112398 0.2600981 0.7545627 0.00000000
## SWE 1.5013259 0.8770756 0.5806044 0.1080935 0.5190529 -0.57081600
## GBR 1.8063573 1.0126717 0.4640836 0.2234315 0.6755890 0.34087364
## USA 1.8791605 1.0364496 0.4307388 0.2363488 0.5227317 0.00000000
## DEU 1.6729150 0.9604451 0.5553943 0.0000000 0.3531436 0.00000000
## ePULC 1/1-epulc eXP ePX eMP Yf/Y
## AUT 0.5453441 2.199465 -1.6008133 0.17062549 -0.7644633 0.9048058
## BEL 0.5896183 2.436756 0.0000000 -0.05684191 0.0000000 0.9100708
## DNK 0.6612738 2.952237 -0.5981608 -0.01877693 0.0000000 0.8892996
## FIN 0.5349219 2.150177 -0.7168953 0.15325921 0.0000000 0.9240691
## FRA 0.8240505 5.683447 -0.5620236 0.35332847 0.0000000 0.9070664
## GRC 0.6427698 2.799315 -1.2498936 0.13526318 -0.5362425 0.8810981
## IRL 0.4753653 1.906088 0.0000000 0.15033871 0.2702690 0.9219420
## ITA 0.8642218 7.364954 -0.3009952 0.43124911 0.1987966 0.9234565
## LUX 0.0000000 1.000000 -0.1517531 0.00000000 -0.6877307 0.9040526
## NLD 0.5830374 2.398297 0.0000000 0.70959666 0.0000000 0.9206594
## PRT 0.7793232 4.531515 0.0000000 0.26163388 0.2234085 0.8955345
## ESP 0.8819825 8.473321 -0.3655447 0.40086786 0.1958202 0.9262527
## SWE 0.6363445 2.749855 -0.5175607 0.16341801 0.0000000 0.8582063
## GBR 0.7509329 4.014983 -0.5341795 0.29293439 0.0000000 0.9335395
## USA 0.7590974 4.151055 -0.6561925 0.22558618 0.0000000 0.9580389
## DEU 0.1913100 1.236568 -0.6027131 0.00000000 0.0000000 0.9031965
## X/Y RULC (X/Y)/rulc
## AUT 0.31996727 0.6112065 0.5348831
## BEL 0.55791853 0.6246805 0.8931262
## DNK 0.36493793 0.5905960 0.6179147
## FIN 0.22657610 0.6235657 0.3633556
## FRA 0.17894256 0.6308169 0.2836680
## GRC 0.22503547 0.5013997 0.4488145
## IRL 0.61183243 0.5539909 1.1044089
## ITA 0.20031416 0.5834293 0.3433392
## LUX 1.63756860 0.5246002 3.1215554
## NLD 0.49853152 0.6274543 0.7945304
## PRT 0.26271636 0.5786048 0.4540515
## ESP 0.22220206 0.5979923 0.3715801
## SWE 0.29646609 0.5422133 0.5467703
## GBR 0.20308280 0.5979027 0.3396586
## USA 0.07186168 0.6183814 0.1162093
## DEU 0.34537755 0.5734815 0.6022470
write.table(regtabtotal, "D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/regtab.txt", sep="\t")
write.table(smoketotal, "D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/smoke.txt", sep="\t")
reggie <- as.data.frame(regtabtotal)
reggie$consumption <- round(as.numeric(as.character(reggie$consumption)),digits=3)
reggie$investment <- round(as.numeric(as.character(reggie$investment)),digits=3)
reggie$`Lukket neteffekt` <- round(as.numeric(as.character(reggie$`Lukket neteffekt`)),digits=3)
reggie$exports <- round(as.numeric(as.character(reggie$exports)),digits=3)
reggie$imports <- round(as.numeric(as.character(reggie$imports)),digits=3)
reggie$netexports <- round(as.numeric(as.character(reggie$netexports)),digits=3)
reggie$neteffect <- round(as.numeric(as.character(reggie$neteffect)),digits=3)
reggie %>% glimpse()
## Observations: 16
## Variables: 9
## $ consumption <dbl> -0.308, -0.164, -0.164, -0.212, -0.253, -0...
## $ investment <dbl> 0.359, 0.366, 0.515, 0.063, 0.167, 0.000, ...
## $ `Lukket neteffekt` <dbl> 0.051, 0.202, 0.351, -0.149, -0.086, -0.46...
## $ exports <dbl> 0.285, 0.000, -0.018, 0.079, 0.290, 0.187,...
## $ imports <dbl> 0.444, 0.000, 0.000, 0.000, 0.000, 0.478, ...
## $ netexports <dbl> -0.159, 0.000, -0.018, 0.079, 0.290, -0.29...
## $ neteffect <dbl> -0.108, 0.202, 0.333, -0.070, 0.204, -0.75...
## $ `Lukket konklusion` <fct> Profit-led domestic, Profit-led domestic, ...
## $ Konklusion <fct> Wage-led, Profit-led, Profit-led, Wage-led...
write.table(reggie, "D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/reggie.txt", sep="\t")
adf.samlet <- NULL
adf.samlet <- cbind(adf.AUT,adf.BEL,adf.DNK,adf.FIN,adf.FRA,adf.GRC,adf.IRL,adf.ITA,adf.LUX,adf.NLD,adf.PRT,adf.ESP,adf.SWE,adf.GBR,adf.USA,adf.DEU)
adf.samlet
## AUT BEL DNK FIN FRA
## WS 0.56797267 0.01000000 0.39711327 0.51582543 0.84562299
## PS 0.56797267 0.01000000 0.39711327 0.51582543 0.84562299
## Y 0.61684431 0.53894832 0.33064006 0.46868561 0.52177225
## Yrw 0.55316530 0.25380606 0.35939230 0.65547883 0.65886614
## r 0.69033762 0.50252575 0.09894894 0.57210914 0.90497764
## R 0.63869620 0.07927323 0.38753305 0.63376426 0.92275215
## Tau 0.52499587 0.97367662 0.66856713 0.95501094 0.80703511
## rulc 0.67415022 0.01000000 0.62196476 0.52634664 0.88194283
## ulc 0.61913833 0.25709158 0.55645797 0.92161077 0.74780436
## P 0.49494096 0.21906778 0.48747067 0.79241085 0.50430647
## Pm 0.71104497 0.30044120 0.47882822 0.91338003 0.83797221
## Px 0.72036872 0.37287202 0.45573477 0.96761085 0.87312983
## X 0.95115097 0.77070717 0.58168171 0.64936905 0.84943074
## M 0.96495729 0.88923086 0.74546701 0.86781501 0.95451766
## I 0.59288909 0.29362011 0.08314385 0.08568598 0.31948307
## C 0.80293622 0.19275067 0.04154395 0.38240704 0.39824099
## Ipr 0.97209763 0.80350006 0.04382303 0.31201723 0.46065983
## Ips 0.87568474 0.68112925 0.49380137 0.16820610 0.72763400
## It 0.41105158 0.47484493 0.08728796 0.06253567 0.19721763
## Itcurr 0.98979710 0.95680610 0.05562404 0.38158749 0.31631605
## Yf 0.55838297 0.48235124 0.40653066 0.52899586 0.59582599
## W 0.02590657 0.31379140 0.16709002 0.29559460 0.40586531
## dlog(WS) 0.03446441 0.08423274 0.01000000 0.01000000 0.11183116
## dlog(PS) 0.04327349 0.07994039 0.01000000 0.01000000 0.09075478
## dlog(Y) 0.11756054 0.01000000 0.02620517 0.02626102 0.04775760
## dlog(Yrw) 0.01000000 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(r) 0.01000000 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(R) 0.01460777 0.02378420 0.01000000 0.01000000 0.04573899
## dlog(Tau) 0.11853721 0.01000000 0.01907560 0.02018798 0.01174742
## dlog(rulc) 0.02993245 0.05550679 0.01000000 0.01000000 0.15734144
## dlog(ulc) 0.33686442 0.22937945 0.23212349 0.25725272 0.46202034
## dlog(P) 0.13906346 0.06400132 0.44518808 0.24869489 0.47660890
## dlog(Pm) 0.01000000 0.03060071 0.04704967 0.03846620 0.14124860
## dlog(Px) 0.04311749 0.02274642 0.08001424 0.03920176 0.38916518
## dlog(X) 0.01000000 0.01000000 0.01000000 0.01000000 0.02450894
## dlog(M) 0.01000000 0.01000000 0.04148903 0.01000000 0.02291392
## dlog(I) 0.01682294 0.02458770 0.03830831 0.01000000 0.02690750
## dlog(C) 0.02310321 0.01000000 0.04147062 0.04789002 0.07503781
## dlog(Ipr) 0.01000000 0.02213720 0.02755360 0.01199730 0.02382367
## dlog(Ips) 0.03520360 0.02815860 0.04309108 0.01000000 0.01278992
## dlog(It) 0.02699915 0.03248560 0.02795302 0.01000000 0.02525444
## dlog(Itcurr) 0.01000000 0.03812250 0.01882491 0.01184197 0.02435901
## dlog(Yf) 0.14509039 0.01000000 0.03186404 0.03662119 0.10526324
## dlog(W) 0.22787844 0.03033068 0.07633237 0.01000000 0.24240799
## GRC IRL ITA LUX NLD
## WS 0.83008333 0.50378796 0.87363499 0.51935623 0.40353010
## PS 0.83008333 0.50378796 0.87363499 0.51935623 0.40353010
## Y 0.50261041 0.96394273 0.98663492 0.56078934 0.49313925
## Yrw 0.56804789 0.34355301 0.26796207 0.58221481 0.24998779
## r 0.51929450 0.61412880 0.74457126 0.23964411 0.43100905
## R 0.73762465 0.99000000 0.97622334 0.42898513 0.37943212
## Tau 0.43204943 0.83807846 0.96667431 0.79306182 0.84741324
## rulc 0.87295981 0.32821033 0.94281508 0.42597467 0.48193572
## ulc 0.93302436 0.99000000 0.96020679 0.65272447 0.01588127
## P 0.95192476 0.59629271 0.98705517 0.63084399 0.03764604
## Pm 0.42611026 0.24751945 0.55271240 0.01645738 0.04792070
## Px 0.79769457 0.26375212 0.93555892 0.26011782 0.07364182
## X 0.60623606 0.99000000 0.41145838 0.09785622 0.93415077
## M 0.68308597 0.99000000 0.47691907 0.22132829 0.88747325
## I 0.78784504 0.71968803 0.65067459 0.23528469 0.09016174
## C 0.92103175 0.51491722 0.97628150 0.60717388 0.37332516
## Ipr 0.83671259 0.56231224 0.84551141 0.38445246 0.13239125
## Ips 0.32559448 0.19033826 0.55480613 0.38654048 0.54303099
## It 0.74849444 0.63146828 0.68713745 0.18997884 0.16824469
## Itcurr 0.79880642 0.48311390 0.85156153 0.38974675 0.25177920
## Yf 0.47346085 0.98775707 0.96143379 0.59722322 0.53532651
## W 0.45259840 0.34150047 0.64601531 0.47066208 0.37347420
## dlog(WS) 0.12516419 0.02145193 0.01000000 0.04104442 0.01000000
## dlog(PS) 0.11146830 0.01000000 0.01000000 0.03516497 0.01000000
## dlog(Y) 0.60069733 0.30026523 0.03528315 0.36285493 0.09487517
## dlog(Yrw) 0.29602560 0.01000000 0.01000000 0.13486923 0.01000000
## dlog(r) 0.32519406 0.01000000 0.01000000 0.02020395 0.02385848
## dlog(R) 0.60892769 0.01754412 0.01000000 0.04906234 0.01000000
## dlog(Tau) 0.67561756 0.24701188 0.02583018 0.31007311 0.01711845
## dlog(rulc) 0.21957081 0.02076826 0.02622507 0.06859394 0.01000000
## dlog(ulc) 0.45064239 0.14554801 0.34898516 0.33126571 0.39051141
## dlog(P) 0.33812130 0.45566142 0.49900394 0.40769663 0.53520134
## dlog(Pm) 0.02902880 0.08104895 0.06393381 0.01346015 0.04715945
## dlog(Px) 0.05446993 0.21918373 0.07560116 0.01624743 0.07516683
## dlog(X) 0.24254964 0.12778865 0.01000000 0.08821310 0.01000000
## dlog(M) 0.48681335 0.04497963 0.01706094 0.13417461 0.02201279
## dlog(I) 0.64869193 0.03861790 0.05287906 0.01000000 0.01000000
## dlog(C) 0.58848458 0.07557573 0.05525318 0.50501592 0.30924397
## dlog(Ipr) 0.71865586 0.08298669 0.16132067 0.01000000 0.01000000
## dlog(Ips) 0.04156621 0.01000000 0.01000000 0.01490369 0.01000000
## dlog(It) 0.46532393 0.04337843 0.15583112 0.01796396 0.01000000
## dlog(Itcurr) 0.50903601 0.09023967 0.34370203 0.01207158 0.01000000
## dlog(Yf) 0.68728993 0.28598249 0.04700310 0.38175952 0.07408409
## dlog(W) 0.68722124 0.04709417 0.12622009 0.55150119 0.06382843
## PRT ESP SWE GBR USA
## WS 0.50971813 0.01000000 0.55594128 0.50256586 0.14727279
## PS 0.50971813 0.01000000 0.55594128 0.50256586 0.14727279
## Y 0.52845778 0.42427329 0.94008888 0.59894258 0.75063640
## Yrw 0.48090271 0.29251439 0.24597992 0.62081531 0.64619086
## r 0.32791071 0.53039595 0.89241127 0.56394057 0.72717372
## R 0.24365182 0.35450848 0.07988192 0.25798017 0.90110005
## Tau 0.07881049 0.25037330 0.48520648 0.71476222 0.64256632
## rulc 0.46599332 0.01000000 0.81426862 0.53668267 0.09430572
## ulc 0.59499074 0.96465845 0.77220767 0.40154074 0.83164226
## P 0.59757098 0.82246775 0.79102370 0.47452317 0.35795379
## Pm 0.29905806 0.02411503 0.56026960 0.64134215 0.79691168
## Px 0.30749404 0.41888352 0.57393598 0.58467983 0.78904372
## X 0.97445453 0.61445078 0.66490600 0.81239839 0.86446891
## M 0.47280397 0.66484723 0.92955009 0.74367133 0.90638954
## I 0.53869343 0.45001072 0.62743069 0.06132643 0.40754783
## C 0.62907486 0.38961419 0.95415156 0.46999129 0.88874702
## Ipr 0.49489428 0.42210839 0.97585614 0.05740594 0.75205114
## Ips 0.56250103 0.25798347 0.07314448 0.71481404 0.31639286
## It 0.61690375 0.45443342 0.79151686 0.07232361 0.46636119
## Itcurr 0.52601405 0.38143671 0.99000000 0.21137751 0.77863650
## Yf 0.49952653 0.49915364 0.90696403 0.50550390 0.70162132
## W 0.46407123 0.27396630 0.93576868 0.57133761 0.51369211
## dlog(WS) 0.02068038 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(PS) 0.02303049 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(Y) 0.53302850 0.26314884 0.01462179 0.01000000 0.01000000
## dlog(Yrw) 0.07806157 0.03929903 0.01000000 0.01000000 0.01000000
## dlog(r) 0.07551683 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(R) 0.03848169 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(Tau) 0.70194486 0.44288103 0.03952552 0.01000000 0.01000000
## dlog(rulc) 0.01000000 0.01000000 0.01000000 0.01000000 0.01000000
## dlog(ulc) 0.75505073 0.06711822 0.01519439 0.08211543 0.05409671
## dlog(P) 0.73357655 0.69677226 0.18574975 0.31132783 0.29298829
## dlog(Pm) 0.01000000 0.04642549 0.02878673 0.14116250 0.06478720
## dlog(Px) 0.01000000 0.17981606 0.01066969 0.20820023 0.07141159
## dlog(X) 0.04321573 0.53111674 0.01078184 0.01000000 0.01000000
## dlog(M) 0.30445631 0.30092707 0.02289827 0.01000000 0.01000000
## dlog(I) 0.42290877 0.19873184 0.02510804 0.01000000 0.01000000
## dlog(C) 0.48184499 0.22799563 0.12152481 0.04435590 0.01093446
## dlog(Ipr) 0.47293246 0.27334015 0.04288613 0.01164540 0.01000000
## dlog(Ips) 0.01000000 0.01161244 0.04894810 0.01000000 0.01000000
## dlog(It) 0.46009203 0.27148704 0.01741872 0.01000000 0.01000000
## dlog(Itcurr) 0.51302956 0.35872375 0.03416446 0.01041577 0.01000000
## dlog(Yf) 0.40548087 0.20049026 0.01000000 0.01000000 0.01000000
## dlog(W) 0.38307142 0.09432435 0.04768002 0.05527507 0.01000000
## DEU
## WS 0.86004899
## PS 0.86004899
## Y 0.59119652
## Yrw 0.62089914
## r 0.15288052
## R 0.50575957
## Tau 0.16361264
## rulc 0.89259978
## ulc 0.97908107
## P 0.91190501
## Pm 0.09626546
## Px 0.43832145
## X 0.08623035
## M 0.26789207
## I 0.77607299
## C 0.79563835
## Ipr 0.99000000
## Ips 0.29185817
## It 0.84047659
## Itcurr 0.99000000
## Yf 0.45192503
## W 0.95953492
## dlog(WS) 0.22110748
## dlog(PS) 0.21171932
## dlog(Y) 0.01613985
## dlog(Yrw) 0.18899723
## dlog(r) 0.38297983
## dlog(R) 0.02636520
## dlog(Tau) 0.01000000
## dlog(rulc) 0.30287079
## dlog(ulc) 0.04039743
## dlog(P) 0.01000000
## dlog(Pm) 0.01725213
## dlog(Px) 0.01005472
## dlog(X) 0.01804490
## dlog(M) 0.04808087
## dlog(I) 0.04299713
## dlog(C) 0.27225115
## dlog(Ipr) 0.08894074
## dlog(Ips) 0.32749349
## dlog(It) 0.03505028
## dlog(Itcurr) 0.08052713
## dlog(Yf) 0.01236768
## dlog(W) 0.21978930
barplot_consumption <-ggplot(data=reggie, aes(x=Lande, y=consumption)) + geom_bar(stat="identity", fill="steelblue")
barplot_consumption
barplot_investment <-ggplot(data=reggie, aes(x=Lande, y=investment)) + geom_bar(stat="identity", fill="steelblue")
barplot_investment
barplot_neteffekt_lukket <-ggplot(data=reggie, aes(x=Lande, y=`Lukket neteffekt`)) + geom_bar(stat="identity", fill="steelblue")
barplot_neteffekt_lukket
barplot_exports <-ggplot(data=reggie, aes(x=Lande, y=exports)) + geom_bar(stat="identity", fill="steelblue")
barplot_exports
barplot_imports <-ggplot(data=reggie, aes(x=Lande, y=imports)) + geom_bar(stat="identity", fill="steelblue")
barplot_imports
barplot_netexports <-ggplot(data=reggie, aes(x=Lande, y=netexports)) + geom_bar(stat="identity", fill="steelblue")
barplot_netexports
barplot_neteffect <-ggplot(data=reggie, aes(x=Lande, y=neteffect)) + geom_bar(stat="identity", fill="steelblue")
barplot_neteffect
barplot_konklusion_lukket <- ggplot(data=reggie,aes(x=factor(`Lukket konklusion`)))+
geom_bar(stat="count", width=0.7, fill="steelblue")
barplot_konklusion_lukket
barplot_konklusion <- ggplot(data=reggie,aes(x=factor(Konklusion)))+
geom_bar(stat="count", width=0.7, fill="steelblue")+
theme_minimal()
barplot_konklusion
write.csv(AUT,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/AUT.csv", row.names = FALSE)
write.csv(BEL,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/BEL.csv", row.names = FALSE)
write.csv(DNK,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/DNK.csv", row.names = FALSE)
write.csv(FIN,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/FIN.csv", row.names = FALSE)
write.csv(FRA,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/FRA.csv", row.names = FALSE)
write.csv(GRC,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/GRC.csv", row.names = FALSE)
write.csv(IRL,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/IRL.csv", row.names = FALSE)
write.csv(ITA,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/ITA.csv", row.names = FALSE)
write.csv(LUX,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/LUX.csv", row.names = FALSE)
write.csv(NLD,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/NLD.csv", row.names = FALSE)
write.csv(PRT,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/PRT.csv", row.names = FALSE)
write.csv(ESP,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/ESP.csv", row.names = FALSE)
write.csv(SWE,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/SWE.csv", row.names = FALSE)
write.csv(GBR,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/GBR.csv", row.names = FALSE)
write.csv(USA,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/USA.csv", row.names = FALSE)
write.csv(DEU,"D:/Installs/Data/OneDrive/Universitet - AAU/10. Semester/udskrifter/DEU.csv", row.names = FALSE)